O meu ainda tá menor...
Em 22/02/2011, às 14:55, Renato Santos escreveu:
> perl -nale '@x=split/,/;push(@{$z->{shift em x}}, em x);END{for(keys%{$z}){print"$_ => ".join",",@{$z->{$_}}}}'arquivo.txt
Just Another Perl Hacker
Fernando Corrêa de Oliveira
fernandocorrea em gmail.com