我已经用 Perl 编写了下面的代码,但它没有给出理想的输出。我正在处理一个数组和两个数组哈希之间的比较。
给定示例输入文件:
1) file1.txt
A6416 A2318
A84665 A88
2) hashone.pl
%hash1=(
A6416=>['E65559', 'C11162.1', 'c002gnj.3',],
A88=>['E77522', 'M001103', 'C1613.1', 'c001hyf.2',],
A84665=>['E138347', 'M032578', 'C7275.1', 'c009xpt.3',],
A2318=>['E128591', 'C43644.1', 'C47705.1', 'c003vnz.4',],
);
3) hashtwo.pl
%hash2=(
15580=>['C7275.1', 'E138347', 'M032578', 'c001jnm.3', 'c009xpt.2'],
3178=>['C1613.1', 'E77522','M001103', 'c001hyf.2', 'c001hyg.2'],
24406=>['C11162.1', 'E65559', 'M003010', 'c002gnj.2'],
12352=>['C43644.1', 'C47705.1', 'E128591','M001458', 'c003vnz.3'],
);
我的目标是实现所描述的任务:
从 file1.txt 中,我必须在 %hash1 中找到对应的 ID。例如,A6416 (file1.txt) 是 %hash1 中的键。接下来,我必须在 %hash2 中找到 A6416 ['E65559', 'C11162.1', 'c002gnj.3',] 的值。如果在 %hash2 中找到大多数(超过 50%)值,我将 A6416 替换为 %hash2 中的相应键。
Example:
A6416 A2318
A84665 A88
Output:
24406 12352
15580 3178
请注意 %hash1 和 %hash2 的键是不同的(它们不重叠)。但是值是相同的(它们重叠)。
#!/usr/bin/perl -w
use strict;
use warnings;
open FH, "file1.txt" || die "Error\n";
my %hash1 = do 'hashone.pl';
my %hash2 = do 'hashtwo.pl';
chomp(my @array=<FH>);
foreach my $amp (@array)
{
if ($amp =~ /(\d+)(\s?)/)
{
if (exists ($hash1{$1}))
{
for my $key (keys %hash2)
{
for my $i ( 0 .. $#{ $hash2{$key} } )
{
if ((@{$hash1{$1}}) eq ($hash2{$key}[$i]))
{
print "$key";
}
}
}
}
}
}
close FH;
1;
高度赞赏有关此问题的任何指导。谢谢!