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
