Problem setting port speeds with POSIX

[Ray Seals]

I'm trying to change the inbound and outbound port speeds of a serial port 
using POSIX.  I'm trying to write a small perl script to drive an LCD 
display.  The reason I open it as DisplayIO is because I need to print to 
standard IO.  At the moment all I'm trying to do is change the port speed but 
I don't seem to be having much luck with this.

Below is the code I'm using.  Can someone give me some suggestions:

#########################################################################
#! /usr/bin/perl -w
 
use strict;
use POSIX;
 
my $termios;
my $inspeed;
my $outspeed;
 
my $SerialFileName = '/dev/ttyS1' ; # com1 or ttyS0 (com2)
 
unless (open (DisplayIO, "+> $SerialFileName")) {
        die "Sorry, I was unable to open the display\n";
        }
 
$termios = POSIX::Termios->new;
 
$termios->getattr(1);
 
$outspeed = $termios->getoflag;
$inspeed = $termios->getiflag;
 
print "The current outbound port speed is $outspeed\n";
print "The current inbound port speed is $inspeed\n";
 
$termios->setospeed(&POSIX::B19200);
$termios->setispeed(&POSIX::B19200);
 
$termios->setattr(1, TCSANOW);
 
$outspeed = $termios->getoflag;
$inspeed = $termios->getiflag;
 
print "The new outbound port speed is $outspeed\n";
print "The new inbound port speed is $inspeed\n";
 
sleep 1;
 
 
while(){
 
# keep an infinite loop running until I control C out of it.
 
}
 
close (DisplayIO) ;
 
exit 0 ;

#######################################

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]