[Roma.pm] saluti e piccola domanda :)

[Flavio Poletti]

Ti sei lasciato sfuggire lo spazio prima del for!

  ps aux | perl -lane '$.-1&&$1{$F[5]}++}{print"$_ $1{$_}"for keys%1'

L'ordinamento non mi sembra così necessario, ma se proprio lo fosse
probabilmente andrebbe fatto numerico e non lessicografico:

   for sort{$a<=>$b}keys%1

> 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.
> _______________________________________________
> Roma mailing list
> Roma at pm.org
> http://mail.pm.org/mailman/listinfo/roma
>