Richard Lee schreef:
> while (<FH>) {
> local $/ = "\n\n";
> ++$count;
That $count is already in $. (see perlvar)
> my $fgh =~ /fgh\s+(\S+)/;
> my $ijk =~ /ijk\s+(\S+)/;
> my $lmk =~ /lmk\s+(\S+)/;
You might want to use a hash:
$fil{$1} = $2 while m/\b(fgh|ijk|lmk)\s+(\S+)/g;
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
