[SP-pm] Ajuda em matriz

[Nelson Ferraz]

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

On Aug 9, 2007, at 5:16 PM, Marco Lima wrote:

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