19 May
2007
19 May
'07
6:26 a.m.
Frank Gerlach wrote:
#! /usr/bin/perl $summe += $_ while <>; print $summe, "\n";
oder:
perl -ne '$summe += $_; END { print $summe, "\n" }' <FILE
Bitte noch eine kryptischere variante. Vielleicht mit awk ?
awk '{s=s+$1} END {print s}' FILE
Ich denke, (ohne Eigenlob, ganz objektiv), dass mein perl Skript am einfachsten zu verstehen ist. Man sollte nicht immer alles in eine Zeile packen......
Nicht immer ist Lesbarkeit das Ziel :-)
Ciao, Thomas
--
Thomas Köhler Email: jean-luc@picard.franken.de
<>< WWW: http://gott-gehabt.de
IRC: tkoehler
PGP public key available from Homepage!