-1<br>perl -aF/x+/ -ne 'END{print%x}($z,$a,$b,$_)=@F;$x{$a}+=/V/?$b:-$b' data<br><br><br><div><span class="gmail_quote">Em 09/08/07, <b class="gmail_sendername">Marco Lima</b> <<a href="mailto:marco.lima@e-via.com.br">
marco.lima@e-via.com.br</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">perl -aF/x+/ -pe '$_=$F[3];$x{$F[1]}+=/V/?$F[2]:-$F[2];$_="@{[%x]}\n"' data
<br><br>ou<br><br>perl -aF/x+/ -ne 'END{print%x}$_=$F[3];$x{$F[1]}+=/V/?$F[2]:-$F[2]' data<br><br><br>eden escreveu:<br>> On 8/9/07, Nelson Ferraz <<a href="mailto:nferraz@gmail.com">nferraz@gmail.com</a>> wrote:
<br>><br>>>> perl -aF/x+/ -ne 'END{print%x}$x{$F[1]}+=$F[3]=~/V/?$F[2]:-$F[2]' data<br>>>><br>>> ou ainda:<br>>><br>>> perl -aF/x+/ -ne 'END{print%x}$x{$F[1]}+=$F[2]*(2*$F[3]=~/V/-1)' data
<br>>><br>><br>> Bem, a contagem conta *todos* os caracteres, inclusive o comando<br>> 'perl' e os switches, então ainda estou na frente por 2 chars :P<br>><br>> perl -ne'END{print%d}($k,$v,$_)=/([^x]+)/g;$d{$k}+=/V/?$v:-$v' data
<br>><br>><br><br>_______________________________________________<br>SaoPaulo-pm mailing list<br><a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm">
http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando