verzeichnisstruktur durchsuchen mit perl

[Rolf]

Ich habe ein kleines perl Programm geschrieben mit dessen Hilfe man eine Datei als textfile einliest, beliebige Daten (z.B. eine e-mail Adresse) aendert, und dann wieder in dem gleichen Format abspeichert. Meine Anwendung bezieht sich auf das Aendern des gleichen Textstring auf ca. 250 Seiten. Leider sind diese Seiten nicht alle im gleichen Verzeichnis und deshalb muss ich die Datei erst in jedes Unterverzeichnis kopieren und dann erneut ausfuehren. Gibt es eine Moeglichkeit mit perl alle Verzeichnisse die unterhalb des Startverzeichisses liegen zu durchsuchen und die Aenderungen vorzunehmen.

Danke!

Hallo,
die folgende Funktion (gefunden bei www.rootshell.com) legt einmal ein array mit Dirs und zum anderen ein array mit txt-Files an (durch den rekursiven Auffruf werden alle SubDirs abgearbeitet):

sub traverse {
    local($dir) = shift;
    local($path);
    unless (opendir(DIR, $dir)) {
warn "Can't open $dir\n";
closedir(DIR);
return;
    }
    foreach (readdir(DIR)) {
next if $_ eq '.' || $_ eq '..';
$path = "$dir/$_";
if (-d $path) {  # a directory
  # dirs als Array anlegen
  push(@dirs, $path);
     &traverse($path);
} elsif (-f _) { # a plain file
     # print "$path<br>\n";
     # or do something you want to
  # ich werde ein Array anlegen
  if(/.txt/i){push (@files, $path);}
}
    }
    closedir(DIR);
}

I.d. Hoffnung, das Richtige gefunden zu haben...
Viele Grüße, Rolf