open und opendir (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-12-18 15:26:58
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
2 Gäste

[thread]16221[/thread]

submit to reddit

open und opendir [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+10 replies
Andreas

2011-04-26 12:56

User since
2003-09-24
111 Artikel
BenutzerIn

Hallo zusammen,
bisher benutze ich open und opendir immer auf folgende Weise:

open FILE, "M:/vezeichnis/datei.txt" or die "Konnte File nicht oeffnen!";

opendir(LIB,"M:/verzeichnis/") or "can't open Directory";

Nun habe ich das Problem, dass unsere EDV die Laufwerksnamen bei Bedarf automatisch ändert und meine Scipte nicht mehr laufen. Um das zu umgehen würde ich gerne direkt auf den Fileserver oder auf eine Freigabe zugreifen, habe es versucht aber nicht hinbekommen.

Beispiel:

open FILE, "//10.39.1.12/bla_laufwerk1/vezeichnis/datei.txt" or die "Konnte File nicht oeffnen!";

open FILE, "//rechner123/freigabe/vezeichnis/datei.txt" or die "Konnte File nicht oeffnen!";

glöeiches mit opendir.

geht das in Perl denn??

Danke schon mal für eure Antworten.

Gruß
Andreas
- +4 replies
- Linuxer
  
  2011-04-26 13:03
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Hi,
  
  wie definierst Du "nicht hinbekommen"? Das ist keine Perl-spezifische Fehlermeldung.
  
  Wenn Du den Erfolg eines open oder opendir prüfst, solltest Du Dir auch $! ausgeben lassen.
  In der Variable steht die Systemmeldung, die bei Fehlschlag erzeugt wird.
  
  Prinzipiell meine ich, mal gelesen zu haben, dass Perl das können müsste...
  
  edit1:
  
  PS:
  Habe es gerade mal bei mir ausprobiert (mit "//server.fqdn/share" ) und bei mir schlägt es fehl.
  $! enthält: "no such file or directory"
  Last edited: 2011-04-26 13:07:55 +0200 (CEST)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +3 replies
  - topeg
    
    2011-04-26 13:30
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Kein Wunder das es nicht funktioniert. open und opendir kann nur auf das Dateisystem zugreifen. Netzwerk-Laufwerke sind nicht Teil des Dateisystems, wenn sie nicht gemountete sind.
    
    Man muss entweder über ein Netzwerkprotokoll (z.B smb) darauf zugreifen, oder herausfinden wohin das Netzwerklaufwerk gemountet wurde.
    - Linuxer
      
      2011-04-26 14:24
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Naja, ich habe aufgegeben mit "logischen Überlegungen" an ein WinDOS heranzugehen ;o) Ich verfalle da eher in das Trial&Error-Verfahren ;o)
      
      Und wie ich erwähnte, es gibt Texte im Netz, die simpel behaupten (schon 2002) dass UNC Pfade funktionieren würden. Naja, vertraue ungeprüft keiner Aussage, die vor gut 8 Jahren auf einem IT-Portal geschrieben wurde.
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - GwenDragon
      
      2011-04-26 14:32
      
      User since
      2005-01-17
      14755 Artikel
      Admin1
      
      Wenn die Verzeichnisse und Laufwerke nicht als Shared freigegeben wurden, klappt kein Zugriff.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- bianca
  
  2011-04-26 13:35
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Das war in diesem Thread mal ein Randthema - ich gehe von Windows aus bei dir. Vielleicht hilft es: Speicherplatz einer Festplatte ermitteln
  10 print "Hallo"
  20 goto 10
- rosti
  
  2011-04-26 13:46
  User since
  2011-03-19
  3490 Artikel
  BenutzerIn
  hi,
  
  vor einiger Zeit habe ich mal aufgeschrieben:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  Frage: Mit PERL auf ein Laufwerk (Freigabe) im Netz zugreifen, wie? (NetBIOS - Protokoll) Antwort: Es muss anstelle eines Laufwerkes zuzuweisen eine Variable gesetzt werden: $path = "//backup/c"; # unc: \\servername\freigabename (vorausgesetzt der Benutzer des Scripts hat Leserechte auf diese Freigabe) Dann kann mit: open IN, "$path/scandisk.log" or die $!; auf die Datei zugegriffen werden.
  
  Ob das auch mit opendir() funktioniert, bitte mal ausprobieren.
  Last edited: 2011-04-26 13:47:33 +0200 (CEST)
- +3 replies
- GwenDragon
  
  2011-04-26 13:55
  User since
  2005-01-17
  14755 Artikel
  Admin1
  Getestet auf lokalem Windows 7-System:
  
  Code (perl): (dl )
  
  1 2
  
  my $sh; # Datei-Handle open ($sh, '//server1/share/test/datei.txt') or die "Konnte File nicht oeffnen!"
  
  sollte klappen. ;)
  
  //EDIT:
  
  Quote
  open FILE, "//10.39.1.12/bla_laufwerk1/vezeichnis/datei.txt" or die "Konnte File nicht oeffnen!";
  
  open FILE, "//rechner123/freigabe/vezeichnis/datei.txt" or die "Konnte File nicht oeffnen!";
  
  Ist denn //10.39.1.12/bla_laufwerk1/vezeichnis/ bzw. //rechner123/freigabe/vezeichnis/ wirklich für dich freigegeben? Schon mal im Explorer nachgesehen?
  Last edited: 2011-04-26 14:34:55 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Gast Andreas
    
    2011-04-26 15:24
    
    Hallo,
    danke für eure Antworten.
    Habe das gantze nochmal ausgetestet, geht tatsächlich, hatte im ersten Versuch eine Fehleingabe.
    
    Geht bei open und opendir.
    
    Vielen Dank nochmal für die Hilfe
    
    Gruß
    Andreas
    Last edited: 2011-04-26 15:26:00 +0200 (CEST)
    - pq
      
      2011-04-26 15:57
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      hab den thread mal als gelöst markiert.
      wenn du dich einloggst, kannst du das auch selber machen.
      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

View all threads created 2011-04-26 12:56.