我有以下的file.txt文件:
AAAA
BBBB
AAAA
CCCC
EEEE
AAAA
我已经编写了一个脚本来计算重复次数,将它们从高到低排序并打印出来。例如:
AAAA : 3
BBBB : 1
CCCC : 1
EEEE : 1
这段脚本是:
use v5.14;
use strict;
my %map;
chomp(my @chks = <FILE>);
foreach my $load (@chks) {
$map{$load} += 1;
}
foreach my $key (sort keys %map) {
say "$key : $map{$key} "
}
但是输出结果却像这样:
: 3
: 1
: 1
: 1
为什么它无法看到$key的值?