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 <[email protected]>
> 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 <
> [email protected]> 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 <[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
>>
>
>
> _______________________________________________
> 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
