[SP-pm] Ajuda em matriz

eden edencardim em gmail.com
Quinta Agosto 9 07:48:59 PDT 2007


On 8/9/07, Marco Lima <marco.lima em e-via.com.br> wrote:
> perl -ne
> '/([^x]+)x+(\d+)x+(\w)/;$_{$1}+=$3eq"V"?$2:-$2;END{print"@{[%_]}\n"}' data

78, já que vale não usar Data::Dumper:

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

-- 
edenc.vox.com


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