我正在寻找一个命令，它将接受(作为输入)多行文本，每行包含一个整数，并输出这些整数的和。
作为一点背景知识，我有一个日志文件，其中包括计时测量。通过grepping的相关行和一点sed重新格式化，我可以列出该文件中的所有时间。我想算出总数。我可以将这个中间输出输出到任何命令，以便进行最终求和。我过去一直使用expr，但除非它在RPN模式下运行，否则我不认为它会处理这个问题(即使这样也会很棘手)。
我怎样才能得到整数的和?
当前回答
下面是一个漂亮而干净的Raku(以前称为Perl 6)一行程序:
say [+] slurp.lines
我们可以这样使用它:
% seq 10 | raku -e "say [+] slurp.lines"
55
它是这样工作的:
不带任何参数的Slurp默认从标准输入读取;它返回一个字符串。在字符串上调用lines方法将返回字符串的行列表。
+周围的括号将+转换为一个约简元操作符，将列表缩减为一个值:列表中值的和。Say然后用换行符将其打印到标准输出。
需要注意的一点是，我们从未显式地将行转换为数字——raku足够聪明，可以为我们做到这一点。然而，这意味着我们的代码在输入绝对不是数字时中断:
% echo "1\n2\nnot a number" | raku -e "say [+] slurp.lines"
Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏not a number' (indicated by ⏏)
in block <unit> at -e line 1
其他回答
Rebol中的一句话:
rebol -q --do 's: 0 while [d: input] [s: s + to-integer d] print s' < infile.txt
不幸的是，上述在Rebol 3中还不能工作(INPUT不能流化STDIN)。
下面是一个在Rebol 3中也适用的临时解决方案:
rebol -q --do 's: 0 foreach n to-block read %infile.txt [s: s + n] print s'
BASH解决方案，如果你想让它成为一个命令(例如，如果你需要经常这样做):
addnums () {
local total=0
while read val; do
(( total += val ))
done
echo $total
}
然后使用:
addnums < /tmp/nums
以下操作应该可以工作(假设您的数字是每行上的第二个字段)。
awk 'BEGIN {sum=0} \
{sum=sum + $2} \
END {print "tot:", sum}' Yourinputfile.txt
替代纯Perl，相当可读，不需要包或选项:
perl -e "map {$x += $_} <> and print $x" < infile.txt
sed 's/^/.+/' infile | bc | tail -1
