Hi,
I am trying to step through each line of a file that contains orders that
were place through a internet shopping cart. I have this code:
open(ORDER,$order) or die "Error opening \"$order\": $OS_ERROR\n";
print "HI\n";
while (defined($_ = <ORDER>)) {
print "Hi there \n";
I am trying to test each line against a bunch of if statements and then go
onto the next order when the line matches a rag expression and then the data
for the order is dumped to MySql database. Now, when I execute the Perl
program, it will print the first "Hi", but fails to print the second "Hi
There". I know that I am missing something here, but what is it?
TEA
Trevor
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
