[Cascavel-pm] RES: Re: Acesso aleatório à arquivos

[Fernando Corrêa de Oliveira]

estupidez a minha...

perl -nE '$z{$`}.=$&if/,.*/;END{say"$_=>$z{$_}"for keys%z}' arquivo.txt

Em 22/02/2011, às 19:19, Daniel de Oliveira Mantovani escreveu:

> 2011/2/22 Marco Lima <braun.lima em gmail.com>:
>> Perl -nE 'if((/\w+)(\,.*)/){$z{$1}.=$2}END{say"$_=>$z{$_}"for key%z}' arquivo.txt
>> 
> 
> fail
> 
>> Nao contei e nem testei pq estou no trânsito! Mas da para passar a idéia . . . Fernando testa e arruma, mas eu quero credito!
>> 
>> Me diz aí se pelo menos acertei no green!
>> 
>> Eden:
>> perl -F, -nalE'push@{$z{shift em F}}, em F}{$"=",";say"$_ => @{$z{$_}}"for
>> keys%z' arquivo.txt
>> 
>> --
>>    Eden Cardim       Need help with your Catalyst or DBIx::Class project?
>>   Code Monkey                    http://www.shadowcat.co.uk/catalyst/
>>  Shadowcat Systems Ltd.  Want a managed development or deployment platform?
>> http://blog.edencardim.com/            http://www.shadowcat.co.uk/servers/
>> _______________________________________________
>> Cascavel-pm mailing list
>> Cascavel-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>> 
>> _______________________________________________
>> Cascavel-pm mailing list
>> Cascavel-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>> 
> 
> 
> 
> -- 
> "If you’ve never written anything thoughtful, then you’ve never had
> any difficult, important, or interesting thoughts. That’s the secret:
> people who don’t write, are people who don’t think."
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

Just Another Perl Hacker
Fernando Corrêa de Oliveira
fernandocorrea em gmail.com