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:[
On Tue, Mar 07, 2000 at 04:10:26PM -0600, Robert Canary wrote:
| 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);
|
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
