opendir auf Netzwerkfreigabe (Allgemeines zu Perl)

[thread]20043[/thread]

opendir auf Netzwerkfreigabe

Leser: 15

Articles: hide open all | hide show old branches

+10 replies
bob.george

2016-04-05 18:30
User since
2011-09-02
104 Artikel
BenutzerIn
Hallo liebe community,
ein scheinbar einfaches Problem, aber irgendwie hab ich mich darin verlaufen und finde keine Lösung:
Code: (dl )

1 2 3 4 5 6

my $verzeichnisname_ziel = '\\\\SERVER\\Musik'; opendir(my $dir, $verzeichnisname_ziel); print $!; closedir($dir);
Der Code unter Windows bringt immer "No such file or directory", aber das Verzeichnis existiert (auf einem Windows-Server). Hab ich da irgendwie die \ oder / falsch gesetzt?
- +6 replies
- GwenDragon
  
  2016-04-05 18:51
  User since
  2005-01-17
  14902 Artikel
  Admin1
  Existiert die Freigabe?
  Ist die vielleicht passwortgeschützt? Dann fällt dein Programm auf die Nase.
  
  Was zeigt denn das bei dir:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  use strict; use warnings; use 5.010; my $path = '\\\\DEINPCNAME\\C$\\'; # bitte hier den Namen des PC eintragen opendir my $dh, $path or die; my @arr = readdir($dh); say for @arr;
  
  Bei mir:
  $Recycle.Bin bootmgr BOOTNXT Dokumente und Einstellungen hiberfil.sys pagefile.sys PerfLogs Program Files Program Files (x86) ProgramData Programme Recovery strawberry swapfile.sys System Volume Information Users Windows
  Last edited: 2016-04-05 19:20:26 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - bob.george
    
    2016-04-05 19:30
    
    User since
    2011-09-02
    104 Artikel
    BenutzerIn
    
    Das zeigt bei mir das gleiche an.
    
    Ich hab jetzt deinen Code nochmal mit der Netzwerkfreigabe versucht und er hat den Inhalt aufgelistet, obwohl in $! "No such file or directory" stand.
    
    Jetzt bin ich komplett verwirrt.
    - +3 replies
    - GwenDragon
      
      2016-04-05 19:34
      
      User since
      2005-01-17
      14902 Artikel
      Admin1
      
      In $! steht der letzte Fehler der zuletzt fehlgeschlagenen Operation. Wenn du nach einer erfolgreichen Operation $! ausgibst, muss das nicht stimmen was in $! drin steht.
      Wie kommst du drauf, dass du trotzdem $! ausgeben musst/willst?
      
      Lies bitte mal http://perldoc.perl.org/perlvar.html#Error-Variabl... ;)
      Last edited: 2016-04-05 19:40:51 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - bob.george
        
        2016-04-07 07:40
        
        User since
        2011-09-02
        104 Artikel
        BenutzerIn
        
        2016-04-05T17:34:05 GwenDragon
        Wie kommst du drauf, dass du trotzdem $! ausgeben musst/willst?
        
        Das Ganze ist in einem komplexeren Zusammenhang aufgefallen, dann habe ich den Code vereinfacht um erst mal das Problem eingrenzen zu können.
        Mich wundert trotzdem, dass das in $! drin steht, weil das was ich gepostet habe der gesamte Code ist.
        
        Linuxer
        
        2016-04-07 11:43
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Da läuft ja einiges im Hintergrund ab (nicht nur der Code, den Du geschrieben hast), da kann durchaus auch $! gesetzt werden. Eben weil vielleicht auch versucht wird, eine Datei zu öffnen, die es in Deinem System nicht gibt. Muss ja nix kritisches sein, aber $! ist dadurch trotzdem gesetzt.
        
        Deshalb Systemaufrufe wie open() oder opendir() auf Erfolg prüfen und nur bei Mißerfolg $! verarbeiten.
        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!
  - bianca
    
    2016-04-06 19:39
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Das klappt aber nur als Admin in der DOS Box, nicht wenn das Script über den Webserver gestartet wird, richtig?
    10 print "Hallo"
    20 goto 10
- Gast janus
  
  2016-04-06 07:37
  
  Du solltest die Rückgabe opendir() auswerten und erst im Fall undef $! oder $^E ausgeben.
  Last edited: 2016-04-06 08:30:37 +0200 (CEST)
- +2 replies
- bianca
  
  2016-04-06 19:37
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Geht nicht in Windows.
  Musst z. B. Win32::NetResource nutzen.
  10 print "Hallo"
  20 goto 10
  - GwenDragon
    
    2016-04-07 08:43
    
    User since
    2005-01-17
    14902 Artikel
    Admin1
    
    Ja, Win32::NetResource braucht es wenn das Share passwortgeschützt ist.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2016-04-05 18:30.