如何快速求和文件中的所有数字？

一尘不染

linux

我有一个包含数千个数字的文件，每个数字都在自己的行上：

我正在寻找一个脚本，该脚本将打印文件中所有数字的总和。我有一个解决方案，但是效率不是很高。（运行需要几分钟。）我正在寻找一种更有效的解决方案。有什么建议么？

阅读 839

2020-06-02

共1个答案

一尘不染

对于Perl一线软件，它基本上与AymanHourieh的答案中的awk解决方案相同

 % perl -nle '$sum += $_ } END { print $sum'

如果您对Perl单一代码的用途感到好奇，则可以贬低它们：

 %  perl -MO=Deparse -nle '$sum += $_ } END { print $sum'

结果是该程序的更详细的版本，其形式是没人会自己编写的：

BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    $sum += $_;
}
sub END {
    print $sum;
}
-e syntax OK

仅出于傻笑，我尝试了使用包含1,000,000个数字（范围为0-9,999）的文件进行此操作。在我的Mac
Pro上，它几乎立即返回。太糟糕了，因为我希望使用起来mmap会很快，但这是同时的：

use 5.010;
use File::Map qw(map_file);

map_file my $map, $ARGV[0];

$sum += $1 while $map =~ m/(\d+)/g;

say $sum;

2020-06-02