http://qs321.pair.com?node_id=387927


in reply to adding a column of integers

awk '{s += $0} END {print s}'

perl -le '$"="+"; print eval "@{[<>]}"'

[download]

In Section Seekers of Perl Wisdom