18 May
2007
18 May
'07
7:49 p.m.
Frank Gerlach frankgerlach@gmail.com (Mi 16 Mai 2007 15:15:25 CEST):
mit perl: $summe=0; while(<>){ $summe=$summe+$_; } print $summe;
#! /usr/bin/perl $summe += $_ while <>; print $summe, "\n";
oder:
perl -ne '$summe += $_; END { print $summe, "\n" }' <FILE
--
Heiko