in reply to Re: strict
in thread strict

i can make the program work when i use 
my $line;
my @lines;

[download]
but i cant seem to make 
#!/opt/perl5/bin/perl -w

use strict;

#my $line;
my @lines;

while(my $line=<> and $line ne ".\n"){
    push @lines,$line;
}
foreach(reverse @lines){ 
       print;                 
}

[download]
work am i doing something wrong?? i keep getting this error 
Global symbol "$line" requires explicit package name at day1_test.1.pl
+ line 8.
Value of <HANDLE> construct can be "0"; test with defined() at day1_te
+st.1.pl line 8.
Execution of day1_test.1.pl aborted due to compilation errors.

[download]
snowrider

Replies are listed 'Best First'.
Re: Re: Re: strict
by arturo (Vicar) on Feb 02, 2001 at 01:47 UTC

    Whoops. The problem is that the second way I gave you won't work because the my $line part of it will fail -- and the variable won't be declared -- if you read in a blank line from the file you're looking through. So you could get a loop with the same logic by changing it to: 

    while (my $line = <> ) {
    push @lines, $line unless $line eq ".\n";
}

    [download]

    HTH

    Philosophy can be made out of anything. Or less -- Jerry A. Fodor

[reply]
[d/l]
[select]
      thank you you have been a big help!! snowrider
[reply]

In Section Seekers of Perl Wisdom