[Cascavel-pm] Listando sub-diretorios ...
Juliano Dantas
juliano.dantas em gmail.com
Segunda Março 12 13:03:04 PDT 2007
Caros colegas,
criei o codigo abaixo, para coletar os nomes dos sub-diretorios existentes
abaixo do diretorio principal, porém o mesmo não esta retornando esses
valores.
Algum colega poderia avaliar o meu codigo e indicar se existe algo errado ou
uma sugestão para melhorar o codigo, fazendo com que, o mesmo funcione?
opendir (DIR,"$dir_orig") or die "Nao foi possivel abrir o diretorio [
$dir_orig ]. Erro: $! \n";
@subdir = grep { /^\./ && /^\../ && -d "$dir_orig/$_" } readdir(DIR);
closedir DIR;
foreach $subdir (@subdir)
{
print "diretorio: " . $subdir . "\n";
}
Grato,
--
Juliano Dantas Almeida Silva
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070312/b4d298c1/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm