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