subject:"\[OffTopic\] Perl and Serial Devices"

RE: [OffTopic] Perl and Serial Devices

2000-03-09 Thread Ounsted, Toby

not $fail) { $in = 1; while ($in) { blah blah blah... -Original Message- From: Robert Canary [mailto:[EMAIL PROTECTED]] Sent: 07 March 2000 22:10 To: [EMAIL PROTECTED] Subject:[

[OffTopic] Perl and Serial Devices

2000-03-08 Thread Robert Canary

Hi, Sorry for another perl question I have script here as follows: open (PORTACCESS, "+>>/dev/ttyC0"); print PORTACCESS "AT\&V1" . "\n\r"; alarm(10); while () { print; chomp; /OK|ERROR/ && do { close(PORTACCESS); last; }; } The code works fine, exce