[Roma.pm] saluti e piccola domanda :)
oha at oha.it
oha at oha.it
Wed Apr 18 05:25:21 PDT 2007
>/^(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
More information about the Roma
mailing list