Re: another help on input record separator clarity please

"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."