[Roma.pm] saluti e piccola domanda :)

[oha at oha.it]

>/^(S+)/ && $c{$1}++ for `ps aux --no-headers`;
>print "$_ $c{$_}nn" for sort {$c{$b} <=> $c{$a}} keys %c;

puoi evitare --no-headers con:
$_=`ps aux`; s/n(S+)/$c{$1}++/ge;
print "$_ $c{$_}nn" for sort {$c{$b} <=> $c{$a}} keys %c;

(tra l'altro l'uso del for in questo modo e' disponibile solo con le recenti versioni di perl, IIRW)

oppure fare quasi tutto con la shell

ps aux --no-headers | perl -ne '($_)=split; print "$_n"' | sort | uniq -c

anche se non so se il -c in uniq sia disponibile ovunque
e almeno cosi' abbiamo usato anche il fatidico -n di perl :)

Oha