>
>
> Try:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my $print_line = 0;
>
> while( <DATA> ){
> if( /banana/ ){
> $print_line = 1;
> }elsif( $print_line ){
> print;
> }
> }
>
> __DATA__
> orange
> peach
> banana
> apple
> pear
> mango
>
>
> --
Thanks, this is similar to Jeff's response, sets a flag to start printing
thanks all for the help
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
