[Roma.pm] saluti e piccola domanda :)

[oha at oha.it]

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

trovato un algoritmo diverso (oviamente sfavorevole, ma mooolto piu' divertente)

$_ = `ps aux`; s/^.*n/n/; s/(S+).*/$1 1/g;
while(s/n(S+) (d+)(.*)n(1) (d+)/"n$1 ".($2+$5).$3;/sge){}
print substr $_, 1;

Oha