perl -lnE'/;/;$,=$&;++$m{$`}{$'}}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a
' tabela.txt
Esse funciona
Just another Perl Hacker,
Fernando (SmokeMachine)
Em 1 de junho de 2012 13:17, Fernando Oliveira
<fernandocor...@gmail.com>escreveu:
> Tem algo errado
>
>
>
>
> Just another Perl Hacker,
> Fernando (SmokeMachine)
>
>
> 2012/6/1 Fernando Oliveira <fernandocor...@gmail.com>
>
>> perl -lnE'/;/;$,=$&;++$m{$`}{$´}}{say X=>@a=keys%m;say
>> $_,@{$m{$_}}{@a}for@a' tabela.txt
>>
>> tinha esquecido o ";"
>>
>>
>>
>>
>> Just another Perl Hacker,
>> Fernando (SmokeMachine)
>>
>>
>> 2012/6/1 Fernando Oliveira <fernandocor...@gmail.com>
>>
>>> perl -lnE'/;/;$,=$&++$m{$`}{$´}}{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
