[SP-pm] Ajuda em matriz

[Nelson Ferraz]

> perl -aF/x+/ -ne 'END{print%x}$x{$F[1]}+=$F[3]=~/V/?$F[2]:-$F[2]' data

ou ainda:

perl -aF/x+/ -ne 'END{print%x}$x{$F[1]}+=$F[2]*(2*$F[3]=~/V/-1)' data