我有2个数组,我想用它来制作哈希
use warnings;
use strict;
use List::MoreUtils;
use Tie::IxHash;
my %KEY_VALUE;
tie %KEY_VALUE,'Tie::IxHash';
my @KEY= qw(
0
0
5
1
1
1
2
2
2
2
3
4
);
my @VALUE= qw(
A
B
C
D
E
F
G
H
I
J
K
L
);
@KEY_VALUE{@KEY}=@VALUE;
print join("\t",%KEY_VALUE);
我得到的结果是:
0 B 5 C 1 F 2 J 3 K 4 L
这是因为%KEY_VALUE的值不断更新,在这种情况下,它只能有1个Key和1个Value.
所以,我想知道是否有一种方法可以保存所有值及其相应的键.
预期结果:
0 A B 5 C 1 D E F 2 G H I J 3 K …我如何按顺序将这些数组保存到这个Hash Of Arrays中,而不是按字母顺序排序,只需按照数组保存即可.
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - 计算器不会让我张贴,因为没有足够的细节,所以我做到了这一点 -
#!/usr/bin/perl
use warnings;
use strict;
use Tie::IxHash;
use Data::Dumper;
my @NAME= qw(AA AB AC BA BB BC CA CB CC AA AB AC BA BB BC CA CB CC AA AB AC BA BB BC CA CB CC AD CD CE CF BD BE);
my @FAMILY= qw(A A A B B B C C C A A A B B B C C C A A A B B B C …