Você pode utilizar o File::Find. Abaixo está uma implementação rápida:<br><br>use strict;<br>use warnings;<br>use File::Find;<br><br>sub wanted {<br> next unless m/pom\.xml/i;<br> print $File::Find::name, "\n";
<br>}<br><br>find(\&wanted, "/meu/diretorio");<br><br>E, claro, também vale a dica do *maior* monge do Brasil (mda ;) que acabei de receber :)<br><br><div><span class="gmail_quote">Em 25/07/06, <b class="gmail_sendername">
Paola Montini</b> <<a href="mailto:PMontini@ymf.com.br">PMontini@ymf.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;">
<div>
<div>
<p><font face="Palatino Linotype" size="2">Olá Pessoal....</font>
<br> <font face="Palatino Linotype" size="2">Preciso da ajuda de vocês....</font>
<br> <font face="Palatino Linotype" size="2">Tenho uma raiz de diretório que se estende em n pastas e mais n subpastas e assim por diante, sei que dentro delas existem n arquivos com o nome POM.xml( arquivo do Maven).
</font></p>
<p> <font face="Palatino Linotype" size="2">Preciso através de um script PERL encontrar todos os arquivos POM.xml dentro dessa raiz de diretórios.</font>
<br> <font face="Palatino Linotype" size="2">Já tentei com find mas não sei... não está funcionando....</font>
</p>
<p><font face="Palatino Linotype" size="2">Please me help é super urgente!!!!!</font>
<br><font face="Palatino Linotype" size="2">Abs</font>
</p>
<br>
<p><font color="#000080" face="Wingdings" size="2">b</font><font color="#000080" face="Palatino Linotype" size="2">Paola Montini</font>
<br><font color="#000080" face="Palatino Linotype" size="2">YMF-Consultoria</font>
<br><font color="#000080" face="Palatino Linotype" size="2">Fone: 5010-9220</font>
</p>
</div>
</div><br>_______________________________________________<br>Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br><br></blockquote></div><br><br clear="all"><br>-- <br>Igor Sutton Lopes<br>t: +55 51 9627.0779<br>e: <a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>