[Roma.pm] saluti e piccola domanda :)

[Ortolani Dante]

va bhe qui qui si lanciano sassi....

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

Saluti
[LucaS]


> oha at oha.it wrote:
> > visto che non mi sentivo di tornare in questa lista senza un pezzo
> > di codice, ma non ho trovato algoritmi differenti da quelli
> > suggeriti da marco (ciao!) vi propongo almeno una variante di
> > stile:
> >
> > @_ = `ps aux`; shift; map { ($_) = split; $c{$_}++; } @_; map {
> > print "$_ $c{$_}n"; } sort {$c{$b} <=> $c{$a}} keys %c
>
> carino!! Fabrizio
> _______________________________________________
> Roma mailing list Roma at pm.org
> http://mail.pm.org/mailman/listinfo/roma
>
>
>


Luca Dante Ortolani
-------------------------------------
Direzione Amministrativa e Commerciale
Ecosystem S.p.A.