note
2teez
Hi,
<p>
The script below could do want you want like so:
<code>
use warnings;
use strict;
my ( $file1, $file2 ) = @ARGV;
my $matched_word = {};
open my $fh, '<', $file1 or die "can't open file: $!";
while (<$fh>) {
s/^\s+?|\s+?$//;
if (m{(.+?)\s+?.+?=(.+?)\s+?.*?$}) {
push @{ $matched_word->{$1} }, $2;
}
}
close $fh or die "can't close file: $!";
open $fh, '<', $file2 or die "can't open file: $!";
while (<$fh>) {
s/^\s+?|\s+?$//;
my ( $value1, $value2 ) = split /\s+?\|\s+?/, $_;
print $value1, " ", @{ $matched_word->{$value1} }, " ", $value2, $/
if exists $matched_word->{$value1};
}
close $fh or die "can't close file: $!";
</code>
<code>
OUTPUT
Q197F8 IIV3-002R PF04947.9
Q91G88 IIV6-006L PF01486.12 PF00319.13
</code>
Please, I need also point out some other things I think might be good you look out for<br>
1. Please, use 3 - arugment open function,<br>
2. Please, don't use "DATA" as your filehandles, it is used by perl, see [doc://SelfLoader],<br>
3. use lexical variable instead of BAREWORDs,<br>
4. You might not need Modern::Perl, since you have used <code>use warnings;use strict;</code> or vise versa<br/>
</p>
990508
990508