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

Fri, 01 Jun 2012 14:46:37 -0700 

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



Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Fernando Oliveira <[email protected]>

> #!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