C:\>perl -lnE"$m{$`}{$'}=/;/;$,=$&}{say
X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a" tabela.txtJust another Perl Hacker, Fernando (SmokeMachine) 2012/6/1 Fernando Oliveira <[email protected]> > bom... aqui no windows funfa... :P > no windows eu to usando o "" no -e... > > > > Just another Perl Hacker, > Fernando (SmokeMachine) > > > 2012/6/1 breno <[email protected]> > >> Ha! Alguém consegue usar $' na shell sem escapar? >> >> >> >> On Fri, Jun 1, 2012 at 1:24 PM, Stanislaw Pusep <[email protected]>wrote: >> >>> C:\> :( >>> >>> ABS() >>> >>> >>> >>> On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira < >>> [email protected]> wrote: >>> >>>> C:\>perl -lnE"/;/;$,=$&;++$m{$`}{$'}}{say >>>> X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a" tabela.txt >>>> X;Joao;Pedro;Manoel >>>> Joao;;1; >>>> Pedro;;;1 >>>> Manoel;;1; >>>> >>>> >>>> >>>> Just another Perl Hacker, >>>> Fernando (SmokeMachine) >>>> >>>> >>>> 2012/6/1 breno <[email protected]> >>>> >>>>> perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";say >>>>> >>>>> X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt >>>>> >>>> >>>> >>>> _______________________________________________ >>>> Rio-pm mailing list >>>> [email protected] >>>> http://mail.pm.org/mailman/listinfo/rio-pm >>>> >>> >>> >>> _______________________________________________ >>> Rio-pm mailing list >>> [email protected] >>> http://mail.pm.org/mailman/listinfo/rio-pm >>> >> >> >> _______________________________________________ >> Rio-pm mailing list >> [email protected] >> http://mail.pm.org/mailman/listinfo/rio-pm >> > >
_______________________________________________ Rio-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
