珀尔 : Counting Duplicates

Question

我有以下文件.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的值？

Answer 1

答案是您的输入文件来自使用 CR LF 作为行终止符的 Windows 平台。当在同一平台上使用 Perl 读取文件时，通常会在输入时删除 CR，但如果您使用 Linux 系统读取文件，那么它将保留在原位。 Perl 的 chomp 将只删除 LF，将 CR 留在每个散列键值的末尾。这将导致输出在打印 key 时被覆盖

解决方案是使用 :crlf PerlIO 层打开文件，或者使用 chomp

该程序肯定还有更多内容，因为您不会在任何地方打开 FILE。此外，您按照散列键的词法顺序而不是值的数字顺序对输出进行排序

这是我编写代码的方式。 :crlf 层导致 CR LF 行尾在输入时仅转换为 LF，chomp 现在将正常运行，只留下每行中的文本

use strict;
use warnings 'all';

my $filename = 'myfile.txt';

my @chks = do {
    open my $fh, '<:crlf', $filename or die qq{Unable to open "$filename" for input: $!};
    <$fh>;
};

chomp @chks;

my %map;

++$map{$_} for @chks;

for my $key ( sort { $map{$b} <=> $map{$a} } keys %map ) {
    print "$key : $map{$key}\n";
}

输出

AAAA : 3
CCCC : 1
BBBB : 1
EEEE : 1

正如我所说，除了使用 :crlf 层，您还可以使用 chomp @chks 替换为 s/\R\z//for @chks 。 \R 将匹配来自任何系统的任何行终止符:在本例中为 CR LF 字符对