Problem mit Perl-Skript

[Lord Muldisoft]

Hallo. Ich bin ein noch ein blutiger Perl-Anfänger und versuche ein kleines Skript zur Suche nach Dateien unter Verwendung einer rekursiven Subroutine zu schreiben. Ich finde aber einfach nicht heraus, warum es nicht funktioniert - wenn ich das Skript starte testet er zwar eine "Pfadlinie" durch, aber der Rest (der ja eigentlich nach Rückkehr in den jeweiligen Abschnitt der rekursiven Subroutine ausgeführt werden sollte) wird merkwürdiger Weise nicht erreicht.
Hier erstmal das Programm:

#C:\Programme\perl -w

print "Suche alle Dateien mit der Endung: ";
$reg = "*.".<STDIN>;
chomp($reg);
print "Suche in Verzeichnis: ";
$dir = <STDIN>;
chomp($dir);
search($dir);

sub search
{
print "betrete $_[0]\n";
local $j;
local $i;

chdir($_[0]);
foreach $i (glob("$reg"))
{
print $i."\n";
}

unless(opendir(DIR, $_[0]))
{
return "konnte Verzeichnis ".$_[0]." nicht oeffnen";
}

while(defined($j = readdir(DIR)))
{
print $j."\n";

if((-d $j) and ($j ne ".") and ($j ne ".."))
{
search($_[0]."\\".$j);
}
}

closedir(DIR);

print "verlasse ".$_[0]."\n";
}

Kann mir jemand bei meinem Problem helfen? Sicherlich ist es bloß so ein blöder Anfängerfehler, aber ich komme einfach nicht drauf.

 

[SteinBeiser]

Unter windoof laut SelfHTML

glob - Dateien mit Wildcards auswählen

Wählt aus einem Verzeichnis alle Dateien aus, die einem bestimmten Dateinamenmuster entsprechen. Das ist wesentlich einfacher als das Operieren mit den Funktionen Seite opendir, Seite readdir und Seite closedir. Der Nachteil von glob ist allerdings, dass diese Funktion eine Unix-Shell startet, um an ihr Ergebnis zu kommen. Die Funktion ist daher nur auf Unix-Systemen verfügbar, und ausführbar ist sie auch nur, wenn das Script ausreichende Rechte zum Starten der Shell besitzt. Es gibt jedoch bei den Seite Standardmodulen für Dateiverwaltung ein Modul, das den glob-Algorithmus komplett in Perl ausführt.

unter linux:
#!/usr/bin/perl -w

print "Suche alle Dateien mit der Endung: ";
$reg = "*.".<STDIN>;
chomp($reg);
print "Suche in Verzeichnis: ";
$dir = <STDIN>;
chomp($dir);
search($dir);

sub search
{
print "betrete $_[0]\n";
local $j;
local $i;
local @dir;

chdir($_[0]);
foreach $i (glob("$reg"))
{ print $i."\n"; }

unless(opendir(DIR, $_[0]))
{ return "konnte Verzeichnis ".$_[0]." nicht oeffnen"; }
@dir = readdir(DIR);
closedir(DIR);
foreach( @dir )
{
$j = $_;
####print $_[0]."/".$j."\n";

if((-d $_[0]."/".$j) and ($j ne ".") and ($j ne ".."))
{
search($_[0]."/".$j);
}
}
print "verlasse ".$_[0]."\n";
}

 

[Lord Muldisoft]

Vielen Dank. Das hat mir sehr geholfen.