[SP-pm] Ajuda em matriz

[Marco Lima]

perl -aF/x+/ -pe '$_=$F[3];$x{$F[1]}+=/V/?$F[2]:-$F[2];$_="@{[%x]}\n"' data

ou

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


eden escreveu:
> On 8/9/07, Nelson Ferraz <nferraz em gmail.com> wrote:
>   
>>> 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
>>     
>
> Bem, a contagem conta *todos* os caracteres, inclusive o comando
> 'perl' e os switches, então ainda estou na frente por 2 chars :P
>
> perl -ne'END{print%d}($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v' data
>
>