>> 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