On Friday, April 19, 2002, at 02:13 , Timothy Johnson wrote:
>
> In that case, you could always change
>
> ### my $nextLine = <FH>;
>
> to
>
> ### my $nextLine = <FH> unless $nextline =~ /^$prefix/;
Contract negotiable!!!!
I'm actually having problems getting that to work...
"File "Jeeves:Users:drieux:perl:ThisAndTheNextLine.pl"; Line 48: Global
symbol "$nextLine" requires explicit package name
"
but the Version 0.2 is up with
###
### while(<FH>) {
### if( /^$prefix/ ) {
### print "$_";
### my $nextLine = $_;
### while ( $nextLine =~ /^$prefix/ ){
### $nextLine = <FH>;
### print "$nextLine";
### }
### }
### } # end while
###
which will get the wombat ....
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
