System nach einer datei durchsuchen...

[Norbert Kölln]

Moin, moin!

Hier eine der vielen möglichen Lösung:

datei_suche("c:/", "readme.txt");

sub datei_suche
{
  opendir(DIR, $_[0]);                    # Verzeichnis oeffnen
  foreach my $entry (readdir(DIR))        # Alle Eintraege abarbeiten
  {
    next if $entry =~ /^..?$/;          # Die Eintraege ".." und "." ueberspringen
    if(-d "$_[0]/$entry")                 # Wenn es ein Verzeichnis ist
    {
      datei_suche("$_[0]/$entry", $_[1]); # Funktion auf gefundenes Unterverzeichnis loslassen
    }
    else                                  # Kein Verzeichnis, also eine Datei
    {
      if ($entry eq $_[1])                # Wenn der Dateiname der gesuchte ist
      {
        print "$_[0]/$entry\n";
      }
    }
  }
  closedir(DIR);                          # Verzeichnis schliessen
}

Wenn Dir diese Variante nicht weiterhilft, mußt Du das Problem noch weiter beschreiben.

Norbert