[Roma.pm] saluti e piccola domanda :)

[marcos rebelo]

ok try

ps aux --no-headers | perl -ple '($_)=split' | sort | uniq -c


Marcos

On 4/18/07, oha at oha.it <oha at oha.it> wrote:
> >/^(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
>
> _______________________________________________
> Roma mailing list
> Roma at pm.org
> http://mail.pm.org/mailman/listinfo/roma
>


-- 
Marcos Rebelo
http://oleber.freehostia.com