Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Pathologically Eclectic Rubbish Lister
 
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 cooling their heels in the Monastery: (4)
As of 2014-04-21 05:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (490 votes), past polls