[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