En effet elle se permet de refuser certains repertoires.
#!/usr/local/bin/perl
use strict;
disp($ARGV[0]);
sub disp
{
my $file;
my $dir = shift;
opendir(LDIR, $dir) || die "Cannot open directory $dir: $!";
my @files = readdir(LDIR);
closedir(LDIR);
foreach $file (@files)
{
print "> ${dir}$file\n" if( -d $file && $file =~ /^[^\.]/); # debug
disp("${dir}$file/") if( -d $file && $file =~ /^[^\.]/);
print "${dir}DESC.xml\n" if($file =~ /DESC.xml$/);
}
}
Essayez, vous verrez...
Qqn à une idée du problème?
merci:w
