Timothy Johnson wrote:
>
> In that case, you could always change
>
> ### my $nextLine = <FH>;
>
> to
>
> ### my $nextLine = <FH> unless $nextline =~ /^$prefix/;
That won't work because the $nextLine in $nextLine =~ /^$prefix/ is a
global variable and the $nextLine in my $nextLine = <FH> is local to the
loop.
$ perl -wle'
for my $line ( "> something", "something else", "another thing" ) {
my $nextLine = $line unless $nextLine =~ /^>/;
print $nextLine;
}
'
Name "main::nextLine" used only once: possible typo at -e line 3.
Use of uninitialized value in pattern match (m//) at -e line 3.
> something
Use of uninitialized value in pattern match (m//) at -e line 3.
something else
Use of uninitialized value in pattern match (m//) at -e line 3.
another thing
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
