Datei/Verzeichnis test auf Netzwerklaufwerk (Allgemeines zu Perl)

[thread]15950[/thread]

Datei/Verzeichnis test auf Netzwerklaufwerk

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
roli

2011-02-11 14:45
User since
2004-12-31
424 Artikel
BenutzerIn
Hi,

ich habe ein Problem mit folgendem Script, oder vielleicht auch eher mit der Umgebung.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/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 )

1 2 3 4

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
- pq
  
  2011-02-11 14:51
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  in $file steht nur der name der einzelnen datei.
  wenn du dich nicht in dem gerade ausgelesenen verzeichnis befindet, existiert die datei natürlich nicht. musst bei -f den kompletten pfad angeben.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +3 replies
- Gast wer
  
  2011-02-11 16:00
  Du brauchst den vollständigen Pfad:
  
  Code (perl): (dl )
  
  1 2
  
  print "Verzeichnis: $file\n" if (-d $dir.$file); print "Datei : $file\n" if (-f $dir.$file);
  
  Last edited: 2011-02-11 16:20:48 +0100 (CET)
  - +2 replies
  - roli
    
    2011-02-11 21:00
    
    User since
    2004-12-31
    424 Artikel
    BenutzerIn
    
    Ohhhhhhhhhh man, an alles mögliche habe ich gedacht, aber daran nicht! Das wird wohl daran liegen das dieses Netz-Laufwerk auch nicht wirklich für Stabilität/Verfügbarkeit etc. berühmt ist.
    
    Danke
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
    - topeg
      
      2011-02-12 06:50
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      2011-02-11T20:00:16 roli
      Das wird wohl daran liegen das dieses Netz-Laufwerk auch nicht wirklich für Stabilität/Verfügbarkeit etc. berühmt ist.
      
      Das Problem ist, dass das Arbeitsverzeichnis nicht das Verzeichnis ist, in dem die zu prüfenden Dateien/Ordner sich befinden. Außerdem prüfst du mit einer relativen Pfadangabe.
      Wenn du das die Prüfung auf die Dateien anwendest, in dem sich das Script befindet, so Stimmt das aktuelle Arbeitsverzeichnis mit dem angebenden Pfad überein und die relativen Pfadangaben werden vom System zu den richtigen absoluten expandiert.
      Angenommen das Arbeitsverzeichnis wäre "D:/users/roli/perl_scripts/" und du untersuchst die Dateien in "Y:/900 Referenzdaten/" mit -f $file so macht das OS aus dieser Abfrage: -f "D:/users/roli/perl_scripts/$file" und nicht -f "Y:/900 Referenzdaten/$file" wie du dachtest. Erst wenn du den das aktuelle Arbeitsverzeichnis dahin legst chdir($dir) funktioniert die Abfrage mit einem relativen Pfad, da das System nun den vollständigen Pfad korrekt zusammen setzt.

View all threads created 2011-02-11 14:45.