Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Win32::SerialPort faster connection than 115200 baud

by BrowserUk (Pope)
on Feb 09, 2006 at 17:50 UTC ( #529147=note: print w/ replies, xml ) Need Help??


in reply to Win32::SerialPort faster connection than 115200 baud

You'll need to modify Win32::CommPort. It contains a table of what it believes are the valid values for baudrate:

COMMPROP=> [ qw( BAUD_USER BAUD_075 BAUD_110 BAUD_134_5 BAUD_150 BAUD_300 BAUD_600 BAUD_1200 BAUD_1800 BAUD_2400 BAUD_4800 BAUD_7200 BAUD_9600 BAUD_14400 BAUD_19200 BAUD_38400 BAUD_56K BAUD_57600 BAUD_115200 BAUD_128K

You'll need to add the value(s) that you are trying to set to prevent it from rejecting the attempts.

There is also a second table of baudrate-like values just below that may need updating also.


Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.


Comment on Re: Win32::SerialPort faster connection than 115200 baud
Download Code
Re^2: Win32::SerialPort faster connection than 115200 baud
by rob_au (Abbot) on Feb 09, 2006 at 21:49 UTC
    After the Win32::SerialPort object has been created, alternate permissable baud rates can be set in the following manner:
    $object->{'_L_BAUD'}{2400} = 2400;
    Where the newly permissable baud rate in this example is 2400 - This behaviour is documented in the perl-win32-porters mailing list at http://aspn.activestate.com/ASPN/Mail/Message/perl-win32-porters/2716767 where this behaviour is described with respect to the manner by which permissable baud rates are determined for a given serial device.

     

    perl -le "print unpack'N', pack'B32', '00000000000000000000001000000000'"

      It would be a good idea to suggest that link be added to the pod under the heading "Known limitations" where it says:

      Since everything is (sometimes convoluted but still pure) Perl, you can fix flaws and change limits if required. But please file a bug report if you do.

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://529147]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2015-07-03 21:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (56 votes), past polls