Re: [Rio-pm] Tratamento de dados para CSV

Fri, 01 Jun 2012 11:34:54 -0700 

#!perl -ln
/;/;$,=$&;$l{$'}//=$i++;$c{$`}[$l{$'}]=1}{print
X=>keys%l;print$_,@{$c{$_}}[0..$i]for keys%c



Just another Perl Hacker,
Fernando (SmokeMachine)


Em 1 de junho de 2012 15:06, Fernando Oliveira
<[email protected]>escreveu:

> /;/;$,=>amp;;$l{
> }//=$i++;$c{[$l{}]=1}{print X=>keys%l;print
> $_,@{$c{$_}}[values%l]for keys%c

_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm

Responder a