>
> >
> ># 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;
> }
> yes that works, thanks. Are there other ways using control structures? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
