http://qs321.pair.com?node_id=529147


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

[download]

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.

Replies are listed 'Best First'.
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;

    [download]
    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'"

[reply]
[d/l]

      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.
[reply]

In Section Seekers of Perl Wisdom