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

Responder a