如何在以下程序中使用哈希计数后保持实际列表的顺序?例如,
使用哈希,我统计了每个元素的出现次数。
而我想要的是:
但是下面的程序告诉我不同的结果。
<DATA>
是什么意思?a
b
e
a
c
d
a
c
d
b
etc.
使用哈希,我统计了每个元素的出现次数。
而我想要的是:
a 3
b 2
e 1
c 2
d 2
但是下面的程序告诉我不同的结果。
my (%count, $line, @array_1, @array_2);
while ($line = <DATA>) {
$count{$line}++ if ( $line =~ /\S/ );
}
@array_1 = keys(%count);
@array_2 = values(%count);
for(my $i=0; $i<$#array_1; $i++)
{
print "$array_1[$i]\t $array_2[$i]";
}