Datei/Verzeichnis test auf Netzwerklaufwerk - #145587 (Allgemeines zu Perl)

roli

2011-02-11 14:45

User since
2004-12-31
424 Artikel
BenutzerIn
[default_avatar]

Hi,

ich habe ein Problem mit folgendem Script, oder vielleicht auch eher mit der Umgebung.

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

#my $dir = 'Y:/900 Referenzdaten/';
my $dir = 'D:/users/roli/perl_scripts/';

opendir( DIR, $dir ) or die $!;

while ( my $file = readdir(DIR) ) {
  print "Verzeichnis: $file\n" if (-d $file);
  print "Datei      : $file\n" if (-f $file);
}

closedir(DIR);
exit 0;

Solange dieses Script ein lokales Laufwerk "bearbeitet", erscheint der Output wie gewünscht. Hier gekürzt dargestellt

Code: (dl )

Datei      : vgl.ini
Verzeichnis: wx-tut
Datei      : wx.pl
Datei      : wx2.pl

Lasse ich es aber auf ein Netzwerk Laufwerk (hier Y:) los, erhalte ich

Code: (dl )

1
2

Verzeichnis: .
Verzeichnis: ..

Das wars! Wenn ich hier ein "dir" absetze kann ich dem Script aber eindeutig die Lüge nachweisen ;-}

Code: (dl )

1
2

   2 Datei(en)         19.505 Bytes
 994 Verzeichnis(se), 129.623.089.152 Bytes frei

Warum ist das so, und was kann/muss ich machen, damit es nicht mehr so ist?

Danke

Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2