[SP-pm] Ajuda em matriz

[Marco Lima]

END{print%x}$_=$F[3];$x{$F[1]}+=$F[2]*(/V/?1:-1)

123456789012345678901234567890123456789012345678=48

esse eh o programa !

mago-mac01:~ marcolima$ perl -aF/x+/ -n prg.pl data

VALE54000PETR4-16000

mago-mac01:~ marcolima$ cat prg.pl

END{print%x}$_=$F[3];$x{$F[1]}+=$F[2]*(/V/?1:-1)

mago-mac01:~ marcolima$ 



eden escreveu:
> On 8/9/07, Marco Lima <marco.lima em e-via.com.br> wrote:
>   
>> 48!
>>
>> perl -aF/x+/ -ne 'END{print%x}$_=$F[3];$x{$F[1]}+=$F[2]*(/V/?1:-1)' data
>>     
>
> 72, no caso...
>
>