我正在寻找一个命令,它将接受(作为输入)多行文本,每行包含一个整数,并输出这些整数的和。

作为一点背景知识,我有一个日志文件,其中包括计时测量。通过grepping的相关行和一点sed重新格式化,我可以列出该文件中的所有时间。我想算出总数。我可以将这个中间输出输出到任何命令,以便进行最终求和。我过去一直使用expr,但除非它在RPN模式下运行,否则我不认为它会处理这个问题(即使这样也会很棘手)。

我怎样才能得到整数的和?


当前回答

替代纯Perl,相当可读,不需要包或选项:

perl -e "map {$x += $_} <> and print $x" < infile.txt

其他回答

sed 's/^/.+/' infile | bc | tail -1

一个简单的解决方案是编写一个程序来为你做这件事。这可能在python中很快就可以完成,类似于:

sum = 0
file = open("numbers.txt","R")
for line in file.readlines(): sum+=int(line)
file.close()
print sum

我还没有测试该代码,但它看起来是正确的。只需将numbers.txt更改为文件名,将代码保存到一个名为sum.py的文件中,并在控制台中键入"python sum.py"

使用GNU数据集util:

seq 10 | datamash sum 1

输出:

55

如果输入的数据是不规则的,空格和制表符在奇怪的地方,这可能会混淆数据集,然后使用-W开关:

<commands...> | datamash -W sum 1

...或者使用tr清除空白:

<commands...> | tr -d '[[:blank:]]' | datamash sum 1

如果输入足够大,输出将采用科学计数法。

seq 100000000 | datamash sum 1

输出:

5.00000005e+15

要将其转换为十进制,使用——format选项:

seq 100000000 | datamash  --format '%.0f' sum 1

输出:

5000000050000000

《球拍》中的一句俏皮话:

racket -e '(define (g) (define i (read)) (if (eof-object? i) empty (cons i (g)))) (foldr + 0 (g))' < numlist.txt

我知道这是一个老问题,但我很喜欢这个解决方案,愿意与大家分享。

% cat > numbers.txt
1 
2 
3 
4 
5
^D
% cat numbers.txt | perl -lpe '$c+=$_}{$_=$c'
15

如果有兴趣,我将解释它是如何工作的。