[SP-pm] Ajuda em matriz

[Marco Lima]

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

iiiii !!!

Mago & Fglock

Marco Lima escreveu:
> perl -ne 'END{print%_}sub{$_{$_[1]}+=pop=~/V/?pop:-pop}->(split/x+/)' data
>
> 58 ! =P
>
> Mago & Fglock
>
> eden escreveu:
>   
>> 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
>>
>>   
>>     
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
>