perl -n0aE'-MARGV&&$#F&&say$ARGV' -F/teste/ /*.pl # -1<br>ou<br>perl -n0aE'-M&&$#F&&say for$ARGV' -F/teste/ /*.pl # q tb é -1!!!<br><div class="gmail_quote">2008/6/19 Lucas Mateus <<a href="mailto:lucasmateus.oliveira@gmail.com">lucasmateus.oliveira@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Ganhei um caracter<br><br>perl -n0aE'-MARGV&&@F-1&&say$ARGV' -F/teste/ /*.pl<div>
<div></div><div class="Wj3C7c"><br><br><br><br><div class="gmail_quote">2008/6/19 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">sim, mas desde o inicio todos fazem isso... se for p/ não fazer, então basta<br>perl -n0aE'say$ARGV if-MARGV&&@F-1' -F/teste/ /dir/*<br>
<br><div class="gmail_quote"><div>2008/6/19 Eden Cardim <<a href="mailto:edencardim@gmail.com" target="_blank">edencardim@gmail.com</a>>:<br>
</div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>2008/6/19 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>>:<br>
</div><div><div></div><div><div>> Matando as variaveis, essa é a minha tacada:<br>
><br>
> perl -naE'say$ARGV if-MARGV&&@F-1' -F/teste/ /dir/*<br>
<br>
</div>Isso vai imprimir nomes de arquivos duplicados se tiver mais de 1<br>
ocorrência de "teste" no conteúdo.<br>
<font color="#888888"><br>
--<br>
</font><div><div></div><div><a href="http://edenc.vox.com" target="_blank">edenc.vox.com</a><br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></div></div></div></blockquote></div><br><br clear="all"><br>-- <br><div><div></div><div>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<a href="http://perl-e.org">http://perl-e.org</a>