Se a segunda coluna tiver mais elementos inexistentes na 1a, esses não aparecem. Continuamos assim? ou voltamos do inicio?
Just another Perl Hacker, Fernando (SmokeMachine) 2012/6/1 Fernando Oliveira <fernandocor...@gmail.com> > Mas e então? O arquivo foi aceito? > > E tem mais uma coisa: desde a 1a tacada do Stanislaw, se os elementos de > antes do ";" forem diferentes do de depois, a tabela fica errada... > > > Just another Perl Hacker, > Fernando (SmokeMachine) > > > 2012/6/1 Fernando Oliveira <fernandocor...@gmail.com> > >> Então façamos como arquivo: >> >> #!perl -ln >> $m{$`}{$'}=/;/;$,=$&}{print X=>@a=keys%m;print$_,@{$m{$_}}{@a}for@a >> >> >> >> Just another Perl Hacker, >> Fernando (SmokeMachine) >> >> >> 2012/6/1 Stanislaw Pusep <creakt...@gmail.com> >> >>> Em bash, pelo menos, teria que rodar como: >>> >>> perl -MEnglish -lnE'$m{$`}{$POSTMATCH}=/;/;$,=$&}{say >>> X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt >>> >>> ABS() >>> >>> >>> >>> >>> On Fri, Jun 1, 2012 at 1:31 PM, Fernando Oliveira < >>> fernandocor...@gmail.com> wrote: >>> >>>> C:\>perl -lnE"$m{$`}{$'}=/;/;$,=$&}{say >>>> X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a" tabela.txt >>>> >>>> >>>> >>>> Just another Perl Hacker, >>>> Fernando (SmokeMachine) >>>> >>>> >>>> 2012/6/1 Fernando Oliveira <fernandocor...@gmail.com> >>>> >>>>> bom... aqui no windows funfa... :P >>>>> no windows eu to usando o "" no -e... >>>>> >>>>> >>>>> >>>>> Just another Perl Hacker, >>>>> Fernando (SmokeMachine) >>>>> >>>>> >>>>> 2012/6/1 breno <br...@rio.pm.org> >>>>> >>>>>> Ha! Alguém consegue usar $' na shell sem escapar? >>>>>> >>>>>> >>>>>> >>>>>> On Fri, Jun 1, 2012 at 1:24 PM, Stanislaw Pusep >>>>>> <creakt...@gmail.com>wrote: >>>>>> >>>>>>> C:\> :( >>>>>>> >>>>>>> ABS() >>>>>>> >>>>>>> >>>>>>> >>>>>>> On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira < >>>>>>> fernandocor...@gmail.com> 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 <br...@rio.pm.org> >>>>>>>> >>>>>>>>> perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";say >>>>>>>>> >>>>>>>>> X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt >>>>>>>>> >>>>>>>> >>>>>>>> >>>>>>>> _______________________________________________ >>>>>>>> Rio-pm mailing list >>>>>>>> Rio-pm@pm.org >>>>>>>> http://mail.pm.org/mailman/listinfo/rio-pm >>>>>>>> >>>>>>> >>>>>>> >>>>>>> _______________________________________________ >>>>>>> Rio-pm mailing list >>>>>>> Rio-pm@pm.org >>>>>>> http://mail.pm.org/mailman/listinfo/rio-pm >>>>>>> >>>>>> >>>>>> >>>>>> _______________________________________________ >>>>>> Rio-pm mailing list >>>>>> Rio-pm@pm.org >>>>>> http://mail.pm.org/mailman/listinfo/rio-pm >>>>>> >>>>> >>>>> >>>> >>>> _______________________________________________ >>>> Rio-pm mailing list >>>> Rio-pm@pm.org >>>> http://mail.pm.org/mailman/listinfo/rio-pm >>>> >>> >>> >>> _______________________________________________ >>> Rio-pm mailing list >>> Rio-pm@pm.org >>> http://mail.pm.org/mailman/listinfo/rio-pm >>> >> >> >
_______________________________________________ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm