[SP-pm] Ajuda em matriz

[eden]

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