Perl: Problem mit "-d" Operator auf FAT

noreaga

noreaga

Eroberer
Hallo!

Ich bin grad etwas sehr verdutzt und verstehs auch ned ganz.
Bin grade dabei ein Perl Skript zu schreiben, welches mir von einem Einstiegsverzeichnis aus alle Unterverzeichnisse in eine Liste pushen soll. Eigentlich ganz banal mit:

Code:
my $startdir = $opts->{dir};
	print $opts->{dir},"\n";
	opendir(DIR, $startdir) || die "$startdir: $!";
	
	# initial directory check for subdirectories
	my @entries = readdir(DIR);
	foreach(@entries)
	{
		print $_,"\n";
		push(@directories,$_) if(-d $_);
	}
	closedir(DIR);

Wenn ich das Skript auf meine / Partition (ext3) loslasse werden die gefundenen verzeichnisse ins array abgelegt. Allerdings will ich damit eine FAT Partition durchsuchen lassen, hier scheint der -d Operator aber nicht zu funktionieren.
Hat da schonmal jemand erfahrung mit gemacht oder kennt ein kleines workaround?

thx!
.
.
.
EDIT (autom. Beitragszusammenführung) :
.

mmm... hat sich erledigt... bin selber draufgekommen, dass es sinnvoll ist absolute pfade zu verwenden. is ja auch schon spät :D
 
Zuletzt bearbeitet:

Ähnliche Themen

[Perl] Perl OO Methodenaufruf in anderem Objekt

Zurück
Oben