System nach einer datei durchsuchen...

[Simon]

Hi! Ich möchte mit Perl eine Datei die irgendwo auf dem system liegt suchen...

Wie mache ich das? :D

Vielen dank schonmal

[Christian Kruse]

Hoi,

Hi! Ich möchte mit Perl eine Datei die irgendwo auf dem system liegt suchen...

Wie mache ich das? :D

Wie waere es mit etwas selber nachdenken? Dann waerst du auf einen sehr einfachen,
rekursiven Algorithmus gekommen. Alternativ kannst du auch die Module
File::Find oder File::Recurse verwenden.

Gruesse aus dem schoenen LH,
 c.j.k

[Reiner]

Hallo,

Hoi,

Hi! Ich möchte mit Perl eine Datei die irgendwo auf dem system liegt suchen...

Wie mache ich das? :D

Wie waere es mit etwas selber nachdenken?

[...]

Gruesse aus dem schoenen LH,
c.j.k

Schlecht gelaunt?
Darf man hier jetzt keine Fragen mehr stellen?

Gruß,
Reiner

[Christian Kruse]

Hoi,

Schlecht gelaunt?

Noe.

Darf man hier jetzt keine Fragen mehr stellen?

Nicht, ohne vorher nachzudenken. Das durfte man noch nie.

Gruesse aus dem schoenen LH,
 c.j.k

[Liv Tyler]

Darf man hier jetzt keine Fragen mehr stellen?

Nicht, ohne vorher nachzudenken. Das durfte man noch nie.

Fang bitte bei dir zuerst an. Oder sei still.
Seit du mit dem Server spielen darfst, bist du unerträglich geworden.

cu, Liv

*PLONK*

[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

[Michael Schröpl]

Hi,

Ich möchte mit Perl eine Datei die irgendwo auf dem system
liegt suchen...
Wie mache ich das? :D

Aufgabenstellung, bitte. (Was weißt Du über die gesuchte Datei?)

Viele Grüße
      Michael