Actually, yeah, spoke too soon.
-----Original Message----- From: drieux [mailto:[EMAIL PROTECTED]] Sent: Friday, April 19, 2002 2:52 PM To: [EMAIL PROTECTED] Subject: Re: help parsing file 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] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
