[Cascavel-pm] RES: Re: Acesso aleatório à arquivos

[Marco Lima]

Perl -nE 'if((/\w+)(\,.*)/){$z{$1}.=$2}END{say"$_=>$z{$_}"for key%z}' arquivo.txt

Nao contei e nem testei pq estou no trânsito! Mas da para passar a idéia . . . Fernando testa e arruma, mas eu quero credito!  

Me diz aí se pelo menos acertei no green!

Eden: 
perl -F, -nalE'push@{$z{shift em F}}, em F}{$"=",";say"$_ => @{$z{$_}}"for
keys%z' arquivo.txt

-- 
   Eden Cardim       Need help with your Catalyst or DBIx::Class project?
  Code Monkey                    http://www.shadowcat.co.uk/catalyst/
 Shadowcat Systems Ltd.  Want a managed development or deployment platform?
http://blog.edencardim.com/            http://www.shadowcat.co.uk/servers/
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm