RE: rows returned and while statement

2005-04-27 Thread Giff Hammar
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

RE: reading an file

2005-03-08 Thread Giff Hammar
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

RedHat, ttyS0 and perl

2005-03-04 Thread Giff Hammar
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