Verzeichnisse rekursiv 'abgrasen'

[Marko Schilde]

opendir (DIR, "$pfad");

@inhalt = readdir (DIR);

foreach $item (@inhalt)

{

if ($item =~ m/.htm/ig $item =~ m/.html/ig)

{

print "$item\n";

}

}

closedir DIR;

Sollte funktionieren wenn ich mich net irgendwo vertippt habe *g*.

HTH, Marko