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

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

提前为反勾号(“'”)的可读性道歉，但这些在shell中工作，而不是bash，因此更易于粘贴。如果你使用一个接受它的shell， $(command…)格式比' command…所以为了你的理智，请随意修改。

我在bashrc中有一个简单的函数，它将使用awk来计算一些简单的数学项

calc(){
  awk 'BEGIN{print '"$@"' }'
}

这将做 +,-,*,/,^,%, √6,罪恶,因为,括号……(取决于你的awk版本)…你甚至可以用printf和格式化浮点输出，但这是我通常需要的

对于这个特定的问题，我将对每一行简单地这样做:

calc `echo "$@"|tr " " "+"`

所以对每一行求和的代码块看起来像这样:

while read LINE || [ "$LINE" ]; do
  calc `echo "$LINE"|tr " " "+"` #you may want to filter out some lines with a case statement here
done

如果你想逐行求和的话。但是，对于数据文件中的每个数字的总数

VARS=`<datafile`
calc `echo ${VARS// /+}`

顺便说一句，如果我需要在桌面上快速做一些事情，我使用这个:

xcalc() { 
  A=`calc "$@"`
  A=`Xdialog --stdout --inputbox "Simple calculator" 0 0 $A`
  [ $A ] && xcalc $A
}

Python中的一行代码版本:

$ python -c "import sys; print(sum(int(l) for l in sys.stdin))"

简单的php

  cat numbers.txt | php -r "echo array_sum(explode(PHP_EOL, stream_get_contents(STDIN)));"

金桥:

seq 10 | jq -s 'add' # 'add' is equivalent to 'reduce .[] as $item (0; . + $item)'

为了完整起见，这里还有一个R解

seq 1 10 | R -q -e "f <- file('stdin'); open(f); cat(sum(as.numeric(readLines(f))))"