Re: [shell] additions

[Yves Rutschle <debian.anti-spam@rutschle.net>]

On Fri, Dec 03, 2010 at 04:29:06PM +0100, Frédéric Boiteux wrote:
> Le Fri, 3 Dec 2010 16:23:37 +0100,
> "Sylvain L. Sauvage" <Sylvain.L.Sauvage@free.fr> a écrit :
> 
> > awk 'BEGIN {s = 0} {s += $5} END {print s}'
> 
> Ah, oui, mais awk, c'est de la triche ;-P

Et Perl?

ls -l | awk '{print $5}' | perl -nle '$c += $_; END{print $c;}'

Ton cahier des charges n'est pas complet, qu'est-ce qui
n'est pas de la triche?

On peut faire ça aussi:
ls -l | awk '{print $5}' | while read n; do c=$(( c + n )); echo $c; done | tail -n 1

(on devrait pouvoir faire mieux, en imprimant $c après la
boucle et sans le tail, mais je n'arrive pas à "sortir" $c
de la boucle, et je comprend pas pourquoi pour le moment).


Y.