Perl-Programm stoppt plötzlich ohne eine Fehlermeldung die Ausführung (Allgemeines zu Perl)

[thread]19727[/thread]

Perl-Programm stoppt plötzlich ohne eine Fehlermeldung die Ausführung

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+11 replies
tibowski

2015-07-15 17:24
User since
2015-07-15
3 Artikel
BenutzerIn
Hi, ich stehe vor einem Problem: ich führe unter Linux eine Optimierungsrechnung durch, in der bei jedem Durchlauf ein Perl-Skript aufgerufen wird. Das hat bisher auch problemlos funktioniert. Seit heute jedoch bricht es plötzlich immer an der gleichen Stelle ab, auch wenn ich es an bereits gerechneten Fällen, wo es zuvor funktionierte, erneut ausprobiere. Konkret bricht es ab, wenn es über
Code (perl): (dl )

system("cp $datei $zielverzeichnis");
eine Datei kopieren soll. (Die Pfade und so stimmen alle, wie gesagt, es funktionierte ja schon einmal). Das Kopieren funktioniert übrigens, wenn ich es über die Kommandozeile ausführe.
Ich habe noch getestet, was geschieht, wenn ich das Kopieren über die Perl-"copy"-Funktion ausführe - in diesem Fall wird das Skript an der betreffenden Stelle tatsächlich weiter ausgeführt und bricht nicht mehr ab. Dann bricht es allerdings bei
Code (perl): (dl )

close FILEHANDLE;
ab.
Meine Frage ist nun: kann mir jemand sagen, was für Gründe Perl dazu bewegen können, einfach so und ohne jeglichen Hinweis die Ausführung abzubrechen?

Mein Problem ist, dass ich noch nicht mal eine Idee habe, wonach ich recherchieren könnte.

Hoffe, die Infos sind ausreichend. Wäre über Hilfe sehr dankbar.
Viele Grüße
Tibor
Last edited: 2015-07-15 17:56:13 +0200 (CEST)
- GwenDragon
  
  2015-07-15 18:02
  User since
  2005-01-17
  14747 Artikel
  Admin1
  Dann prüfe bitte mal die von system zurück gegebenen Werte und die in $?.
  Schau: http://perldoc.perl.org/functions/system.html
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  my $ret = system("cp $datei $zielverzeichnis"); if ($ret != 0 { if ($? == -1) { print "execute failed with $!\n"; } elsif ($? & 127) { printf "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without'; } else { printf "child exited with value %d\n", $? >> 8; } }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +9 replies
- tibowski
  
  2015-07-15 18:06
  User since
  2015-07-15
  3 Artikel
  BenutzerIn
  Okay, ich denke, ich habe die Lösung gefunden. Falls es für jemanden interessant ist:
  
  Ich rufe im Code vor dem Aufruf
  
  Code (perl): (dl )
  
  system("cp $datei $zielverzeichnis");
  
  ein Programm auf. Dieses kann heute aufgrund äußerer Umstände aber nicht aufgerufen werden, weshalb der Aufruf einen Fehler produziert. Dieser kommt allerdings erst zum Tragen, sobald das nächste Mal im Code das "system" angesprochen wird - in meinem Fall eben das Kopieren.
  
  Da würde mich jetzt noch interessieren, ob mir jemand sagen kann, wieso der Fehler erst bei der nächsten Ansprache des "system" zum Tragen kommt?!
  - hlubenow
    
    2015-07-15 18:15
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    2015-07-15T16:06:28 tibowski
    
    Code (perl): (dl )
    
    system("cp $datei $zielverzeichnis");
    
    Benutze lieber File::Copy.
    "Äußere Umstände" wird das allerdings auch nicht umgehen können.
  - GwenDragon
    
    2015-07-15 18:58
    
    User since
    2005-01-17
    14747 Artikel
    Admin1
    
    2015-07-15T16:06:28 tibowski
    Da würde mich jetzt noch interessieren, ob mir jemand sagen kann, wieso der Fehler erst bei der nächsten Ansprache des "system" zum Tragen kommt?!
    Weil beim vorherige system-Aufruf das externen Programms eben keinen Returncode bei einem Fehler zurück gab oder die Shell nicht korrekt gestartet ist.
    
    Wenn du nicht jeden system-Aufruf überprüfst, handelst du dir solche von dir geschilderten Probleme ein.
    Vorsicht ist die Mutter der ~~Por~~Perlzellankiste ;)
    Last edited: 2015-07-15 19:38:04 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - betterworld
    
    2015-07-15 21:39
    
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    Und für Systemaufrufe nimm mal IPC::System::Simple. Das hat bessere Fehlerbehandlung. system() ist zwar cool, weil man in nur einer Zeile alle möglichen Sachen schnell aufrufen kann. Aber wenn man den Anspruch hat, hinterher rauszufinden, was schiefgegangen ist, hat man schnell 30 Zeilen und noch mehr Bugs.
    
    Und "cp $a $b" ist generell schlecht, weil überleg mal, wenn da Sonderzeichen oder auch nur Leerzeichen in den Variablen sind. Lies mal nach, wie du an system() oder auch an run() in IPC::System::Simple mehrere Argumente übergeben kannst.
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - +5 replies
    - hlubenow
      
      2015-07-16 01:27
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      system()-Aufrufe mache ich immer mit einem extra String. So kann ich zumindest kontrollieren, was denn der Shell zur Verarbeitung übergeben wird. Das ist nämlich manchmal schon überraschend. Also so:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      my $datei = "Datei"; my $zielverzeichnis = "/home/user"; my $execstr = "cp $datei $zielverzeichnis"; print "$execstr\n"; # system($execstr);
      
      Ist nur'n Beispiel. Hier würde ich wie gesagt das Modul File::Copy verwenden.
      - +3 replies
      - FIFO
        
        2015-07-16 09:21
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        Das ist in dieser Form nicht so schlau, besser Programm und Argumente als Liste übergeben, sonst ist man bzgl. cmdline-parsing der jeweiligen Shell ausgeliefert:
        
        Code (perl): (dl )
        
        1 2
        
        # Return-Wert beachten, NICHT system( $command, @args ) or die $!; system( $command, @args ) == 0 or die $?
        
        Editiert von FIFO: Für return 0 korrigiert, thx@Raubtier
        Last edited: 2015-07-16 11:05:35 +0200 (CEST)
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
        
        +2 replies
        
        Raubtier
        
        2015-07-16 09:27
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        2015-07-16T07:21:39 FIFO
        
        Code (perl): (dl )
        
        system( $command, @args ) or die $!;
        
        0 = kein Fehler...
        
        FIFO
        
        2015-07-16 11:06
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        Danke. Blöder die-Reflex ...
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - Raubtier
        
        2015-07-16 09:26
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Dennoch bleibt die Warnung hier insbesondere vor der 1-Arument-Form von system.
        
        Dein print mag vielleicht im Testfall gut aussehen. Dann gehst du in Production und auf einmal übergibt jemand $zielverzeichnis="/tmp;rm -rf /home/hlubenow/wichtigesVerzeichnis" - und dann?
        
        Von schon system, dann verzichte zumindest auf Quoting-Probleme:
        
        Code (perl): (dl )
        
        1 2 3
        
        my @cpCommand = ("/bin/cp", $datei, $ziel); use Data::Dumper; print Dumper \@cpCommand; # hier dein print system(@cpCommand);

View all threads created 2015-07-15 17:24.