[PLUG] ok..Trying to get PERL to read/write to a tty port...

["George Gallen" <ggallen@slackinc.com>]

I don't get any error on file open
but the process hangs.
I used stty to set the port to 9600/e/7/1

If I run minicom, and I manually type "W" <ENTER>
I do get a response back from the scale

Any ideas.

#!/usr/local/bin/perl

use CGI qw/:standard/;

my $filename_in="/dev/usb/ttyUSB0";
my $filename_out="/dev/usb/ttyUSB0";

open (SERIALOUT,"+< $filename_out") || die("Can't Open $filename_out! for reading/writing");

print SERIALOUT "W\r";

my $charin = getc(SERIALOUT);
print $charin "\n\n";

George Gallen
Senior Programmer/Analyst
Accounting/Data Division
ggallen@slackinc.com
ph:856.848.1000 Ext 220

SLACK Incorporated - An innovative information, education and management company
http://www.slackinc.com

___________________________________________________________________________
Philadelphia Linux Users Group         --        http://www.phillylinux.org
Announcements - http://lists.phillylinux.org/mailman/listinfo/plug-announce
General Discussion  --   http://lists.phillylinux.org/mailman/listinfo/plug