[Roma.pm] saluti e piccola domanda :)

[Ortolani Dante]

> ps aux | perl -ne '$.-
>    1&&$1{(split)[5]}++;map{print$_.$/if$1{$_}>1}keys%x if eof'

giusto per ricordare "perl -n"

ps aux |
 perl -ne '/^(\S+)/&&$x{$1}++&&eof&&map{print"$_ $x{$_}\n"}keys%x'  

;o)
LucaS

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