- or download this
FILE 1
...
12.02 /home/complex.2out
10.25 /home/complex.1out
etc
- or download this
$string = 'complex';
...
chomp;
/^(\S+\s+\S+)\s+.*($string\.\d+).*$/;
print OUT ($1, $pd_file{$2}) if (exists($pd_file{$2}));
- or download this
complex.1 10.25
complex.2 12.02