Perl: Como parar File :: Find entrando no diretório recursivamente?
Eu estava olhando para PerlFile::Find
módulo e tentei da seguinte forma:
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
find({wanted => \&listfiles,
no_chdir => 1}, ".");
sub listfiles{
print $File::Find::name,"\n";
}
Agora, quando eu corro, recebo a saída abaixo:
Noob@Noob:~/tmp$ perl test.pl
.
./test.txt
./test.pl
./test1.txt
./hello
./hello/temp.txt
Agora, eu estava pensando que, ao definirno_chdir=>1
Eu farei meu código para não entrar em nenhum diretório se ele encontrar um. Mas a saída mostra claramente que meu código está entrandohello
diretório e listando seus arquivos.
Então, como eu mudo meu código para me comportar comols
e não entra em nenhum diretório. Também estou ficando./
na frente dos meus nomes de arquivos / diretórios, isso pode ser removido?
Eu estou usando o Perl 5.14.