You could use this after the while loop:
if ($sth->rows() == 0) {
# First offense code
}
Giff
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: 26 April, 2005 11:24
To: beginners@perl.org
Subject: rows returned and while statement
Ok I have an issue wh
One way:
open(FOO,"filename") || die "Couldn't open filename: !$\n";
while() {
chomp();
($t1,$t2,$t3,$t4,$t5,$t6,$t7,$t8,$t9,$t10,$t11) = split;
$interestingdata = join("|",$t4,$t5,$t6,$t7,$t8);
$atomhash{$t2} = $interestingdata;
}
It would be more enlightening to
know works from the
OS level.
I tried
open(PORT,"+>/dev/ttyS0") or die "Couldn't open serial port\n";
but that didn't work. I'm missing something, but I can't quite put my finger on
what.
Giff
Giff Hammar [EMAIL PROTECT