对于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;