<div><b>Ganhei! =o)</b></div><div>====================================================</div><div>find . -name "*-ERR" -type f | xargs egrep 'GANHEI' | cut -d: -f1 | \</div><div>while read filen</div><div>
do</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>fileNumRows=`wc -l "${filen}" | awk '{print $1}'`</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>fileNumRowsLT=`expr ${fileNumRows} - 1`</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>fileNumZeros=`egrep -c '000000000$' "${filen}"`</div><div><span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>if [ ${fileNumRowsLT} -eq ${fileNumZeros} ]</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>then</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>echo "File has erros: [${filen}]."</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>fi<span class="Apple-tab-span" style="white-space:pre"> </span></div>
<div>done</div><div>====================================================</div><br><div class="gmail_quote">2010/8/16 Roan Brasil Monteiro <span dir="ltr"><<a href="mailto:roanbrasil@gmail.com">roanbrasil@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">:-(<br><br><div class="gmail_quote">Em 16 de agosto de 2010 14:42, Nilson Santos Figueiredo Jr. <span dir="ltr"><<a href="mailto:acid06@gmail.com" target="_blank">acid06@gmail.com</a>></span> escreveu:<div>
<div></div><div class="h5"><br><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204, 204, 204);padding-left:1ex">
<div>2010/8/16 Roan Brasil Monteiro <<a href="mailto:roanbrasil@gmail.com" target="_blank">roanbrasil@gmail.com</a>>:<br>
</div><div>> André não queria utilizar nenhum modulo CPAN, fiz uma aposta com um amigo<br>
> que dava pra fazer em Perl sem nenhum modulo, pois ele disse que Shell<br>
> Script é sussa, eu falei que Perl daria, mas com módulo. Ai ele perguntou se<br>
> dava pra fazer sem módulo, como o Shell Script.<br>
<br>
</div>Os módulos sugeridos são escritos em Perl. Essa aposta não faz o menor sentido.<br>
Se você quer simplesmente ganhar a aposta, copie e cole o código do<br>
módulo no seu script.<br>
<font color="#888888"><br>
-Nilson<br>
</font><div><div></div><div>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</div></div></blockquote></div></div></div><br><br clear="all"><div><div></div><div class="h5"><br>-- <br>Atenciosamente,<br><br>Roan Brasil Monteiro<br><a href="http://roanbrasil.wordpress.com/" target="_blank">http://roanbrasil.wordpress.com/</a><br>
<a href="http://www.gramaro.com.br/" target="_blank">http://www.gramaro.com.br/</a> - Grama em Tapete Salvador Bahia<br>
<br>
</div></div><br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br>