sub scan_dir {
my ($new_date,$last_date,$found,$scantype,@lines,@filename,@new_array);
opendir(HOMEDIR, "$base_dir");
@filename = readdir(HOMEDIR);
closedir(HOMEDIR);
Dein Problem kannst du hier anpacken.
opendir(HOMEDIR, "$base_dir") or die("$!");
erwäge dass das Directory nicht gelesen werden kann.
foreach ( readdir(HOMEDIR) ){
$_ =~ /^./ and next;
# damit übergehe ich alles, was mit einem . beginnt, ergo .htaccess
push( @filelist, $_);
}
closedir(HOMEDIR);
Achtung. Ich habe diesen Code nicht getestet.
mfg Beat
--
Selber klauen ist schöner!
Selber klauen ist schöner!