[SP-pm] Ajuda em matriz

eden edencardim em gmail.com
Quinta Agosto 9 06:39:02 PDT 2007


On 8/9/07, eden <edencardim em gmail.com> wrote:
> 94 :)
>
> perl -MData::Dumper -ne
> '($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v;END{print Dumper(\%d)}' data

opa, 91:

perl -MData::Dumper -ne 'END{print
Dumper\%d}($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v' data

-- 
edenc.vox.com


Mais detalhes sobre a lista de discussão SaoPaulo-pm