[Cascavel-pm] File::Linting nao funciona
Igor Sutton
igor.sutton em gmail.com
Quinta Junho 8 08:43:25 PDT 2006
Então faça desta maneira:
<code>
use strict;
use warnings;
my $basedir = "/var/www";
opendir my $dir, $basedir or die "Problemas ao abrir diretório: $!";
while (defined(my $file = readdir($dir))) {
next unless $file =~ m/^filesys/;
print "Arquivo: $file\n";
}
</code>
Outra opção que você tem é o File::Find, que é padrão nas distribuições
Perl. Ficaria mais ou menos assim:
<code>
use strict;
use warnings;
use File::Find;
my $basedir = "/path/to/files";
sub wanted {
next unless m/^filesys/;
print "$_\n";
}
find(\&wanted, $basedir);
</code>
Esta é a maneira que eu julgo mais portável e menos repetitiva.
--
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/5ed21754/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm