Então faça desta maneira:<br><br><div><div><span class="e" id="q_10bb410f454a65d8_3"><code></span><br><span class="e" id="q_10bb410f454a65d8_3">use strict;</span><br><span class="e" id="q_10bb410f454a65d8_3">use
warnings;</span><br><span class="e" id="q_10bb410f454a65d8_3"></span><br><span class="e" id="q_10bb410f454a65d8_3">my $basedir = "/var/www";</span><br><span class="e" id="q_10bb410f454a65d8_3"></span><br><span class="e" id="q_10bb410f454a65d8_3">
opendir my $dir, $basedir or die "Problemas ao abrir diretório: $!";</span><br><span class="e" id="q_10bb410f454a65d8_3">while (defined(my $file = readdir($dir))) { <br> next unless $file =~ m/^filesys/;<br></span>
<span class="e" id="q_10bb410f454a65d8_3"> print "Arquivo: $file\n";</span><br><span class="e" id="q_10bb410f454a65d8_3">}</span><br><span class="e" id="q_10bb410f454a65d8_3"></code></span><br><span class="e" id="q_10bb410f454a65d8_3">
</span></div></div><br>Outra opção que você tem é o File::Find, que é padrão nas distribuições Perl. Ficaria mais ou menos assim:<br><br><code><br>use strict;<br>use warnings;<br>use File::Find;<br><br>my $basedir = "/path/to/files";
<br><br>sub wanted {<br> next unless m/^filesys/;<br> print "$_\n";<br>}<br><br>find(\&wanted, $basedir);<br></code><br><br>Esta é a maneira que eu julgo mais portável e menos repetitiva.<br>-- <br>
Igor Sutton Lopes<br><a href="http://www.izut.com/">http://www.izut.com/</a>