我有这样的对(数据排序为 %hash 格式(我有大数据))
G1-G2
G2-G3
D1-D2
D3-D2
G3-D3
G2-D3
Perl 脚本
use strict;
use warnings;
use Data::Dumper;
my %hash;
$hash{'G1'}='G2';
$hash{'G2'}='G3';
$hash{'D1'}='D2';
$hash{'D3'}='D2';
$hash{'G3'}='D3';
$hash{'G2'}='D3';
print Dumper \%hash;
输出
$VAR1 = {
'G1' => 'G2',
'G2' => 'D3',
'D3' => 'D2',
'G3' => 'D3',
'D1' => 'D2'
};
这里缺少 G2-G3 bcz key 哈希重复
我需要添加重复项(我可以使用数组,但大数据系统运行缓慢)
任何快速方法添加对并获取可能对的条件输入
如果 $input='G2'
获取输出 G2->(G3,D3,G1)
如果 $input='D2'
获取输出 D2->(D1,D3)
最佳答案
您是正确的,一个给定的哈希键只能有一个值。但是,该值可以是一个数组,就您而言,这听起来就是您所需要的。所以像:
my %hash;
push @{$hash{G1}}, 'G2';
push @{$hash{G2}}, 'G3';
...
push @{$hash{G2}}, 'D3';
这会让你:
$VAR1 = {
'G1' => [
'G2'
],
'G2' => [
'G3',
'D3'
]
};
这种方法利用了 Perl 的 autovivification ,所以我们不需要在附加到它之前检查哈希键的先前存在。
关于Perl 哈希值 : how to deal with duplicate keys and get possible pair,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17216007/