On Tuesday, August 05, 2003 12:13, Trevor Morrison wrote:
>
>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>)) {
You can replace this line with
while (<ORDER>) {
That will read each line stopping at the end. And $_ will have the line
contents each time.
> 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?
Something regarding your use of defined(), but I'm not really sure what the
problem is...
HTH,
Alan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
