[SP-pm] Ajuda em matriz

[eden]

On 8/9/07, Fernando Oliveira <fernandocorrea em gmail.com> wrote:
> Posso brincar tb?!
>
> já q é não didatico, eu pesso um GOLF!!!
>
> perl -MData::Dumper -ne
> 's#^x{6}(\w+?)x{5}(\d+)x{6}([CV])$#$d{$1}+=$3
> eq"C"?$2:-$2#e;END{print Dumper\%d}' data

94 :)

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

-- 
edenc.vox.com