"Dr.Ruud" schreef:
> Richard Lee:
>> 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;
Looking at your input data, you could also do:
$value{ $1 } = $2 while m/^(\S+)[[:blank:]]+(\S+)/mg;
or even
$value{ $1 } = $2 while m/^(\S+)[[:blank:]]*(\S*)/mg;
See perlre for the m-modifier.
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
