[Roma.pm] saluti e piccola domanda :)

[Ortolani Dante]

Grande Flavio! e questo ci ricorda che sarebbe bene dare una sbirciata  
a "man perlrun" ogni tanto.  
  
Pero' se parliamo di golf dobbiamo rubare ancora qualche carattere per 
cui la forma più corta è questa (anche se l'uso di map era più fico!): 
  
ps aux|perl -lane'$.-1&&$1{$F[5]}++}{print"$_ $1{$_}" for keys%1'  
 
LucaS 
P.s. siamo partiti con una lista ordinata quindi sarebbe più corretto 
un "for sort keys%1" 
 
  
> Dove eravamo?  
> ps aux|perl -lane '$.-1&&$1{$F[5]}++}{map{print"$_ $1{$_}"}keys%1'  
  
> >> oops...  
> >> ps aux | perl -ne '$.-  
> >>    1&&$1{(split)[5]}++;map{print$_.$/if$1{$_}>1}keys%1 if eof'  
  
> > allora... meglio così...  
> > ps aux|perl -ne '$.-1&&$1{(split)[5]}++;eof&&map{print"$_  
> >    $1{$_}$/"}keys%1'  
  
  
Luca Dante Ortolani  
-------------------------------------  
Direzione Amministrativa e Commerciale  
Ecosystem S.p.A.