哈希真的是非常好用的,目前写的很多perl脚本,基本必用哈希。而最常用的,就是将数组push到哈希。
open IN,$file; ## 读取文件
my %hash;
while(<IN>){
chomp;
my @arr=split /\t/,$_;
push @{$hash{$arr[0]}},$arr[1]; ## 将数组存储到hash里面
}
close IN;
foreach my $key (sort keys %hash){
my @arr=@{$hash{$key}}; ## 读取hash的元素
foreach my $i(@arr){
print "$key\t$i\n";
}
}
——————————————————————
A 1
A 2
A 3
B 4
B 5
C 6