# want to print lines from apple on down
while ($line = <DATA>) {
next until $line =~ /^banan/;
print $line;
}
Hello,how about this?
my $ok;
while (<DATA>){
$ok = 1 if /^banan/;
print if $ok;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
