fork führt zu falschem return code (gelöst) (Allgemeines zu Perl)

[thread]16949[/thread]

fork führt zu falschem return code [gelöst]

Tags: perl5 fork $? Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+6 replies
Gast TobEx

2011-11-28 16:14
Hallo Experten,

ich hoffe ich treffe mit meiner Frage auf lächelnde und wissende Gesichter.

Mein kleines Beispiel-Programm läßt es nicht zu, den Return-Code des Systemaufrufs zu prüfen.

Das folgende Script ist reduziert auf das Problem.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/bin/perl sub sigchldHandler { wait() ; } $SIG{CHLD} = \&sigchldHandler ; my $pid = fork(); if ( $pid == 0 ) { $Result=`ls -l`; print "ReturnCode = $? \n"; }
Das Ergebnis ist immer "ReturnCode = -1"

Erwarten würde ich eine "0" bzw eine "2" wenn das Kommando in einen Fehler läuft.

Ich befinde mich auf einem Solaris 10 Server mit Perl 5.8.4

Nochmal kurz beschrieben: Ich möchte in einem wesentlich größeren Programm mehrere parallele Systemaufrufe starten.

Das funktioniert wunderbar, nur leider kann ich nicht mit Hilfe des Return-Codes abfragen wie sich das Kommando beendet hat.
Meine Suche durchs WWW hat da leider garnichts ergeben.

Ich bitte höflichst um eure Unterstützung. Vielen Dank :-)

Gruß

Tobias
Last edited: 2011-11-28 16:29:41 +0100 (CET)
- +5 replies
- GwenDragon
  
  2011-11-28 16:40
  
  User since
  2005-01-17
  14749 Artikel
  Admin1
  
  qx ähnelt system als Aufruf. Schau dir bitte mal an wie dort die Rückgabewerte auszulesen sind.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - pq
    
    2011-11-28 16:44
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    ich denke es geht darum, dass der return-code -1 ist, während er in einem normalen programm z.b. 0 ist.
    
    das liegt vermutlich an $SIG{CHLD}.
    ich würde im child folgendes machen:
    
    Code (perl): (dl )
    
    1 2 3
    
    if ( $pid == 0 ) { local $SIG{CHLD}; ...
    
    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 TobEx
      
      2011-11-28 22:32
      
      Hallo,
      
      der Eintrag für "local SIG{CHLD}" funktioniert.
      Vielen Dank soweit.
      
      Bei erfolgreicher Ausführung bekomme ich "0" zurück und beim Fehler, den Code 512..
      
      Wieso eigentlich 512 ? Sollte da nicht "2" zurückkommen?
      
      Den Fehler habe ich erzeugt in dem ich eine nicht existierende Datei angegeben habe nach dem "ls -l".
      
      Gruß
      
      Tobias
      Last edited: 2011-11-28 22:34:38 +0100 (CET)
      - +2 replies
      - pq
        
        2011-11-28 23:05
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        siehe perldoc -f system:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        If you'd like to manually inspect "system"'s failure, you can check all possible failure modes by inspecting $? like this: if ($? == -1) { print "failed to execute: $!\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; }
        
        wenn du $? >> 8 ausgibst, bekommst du die 2.
        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
        
        Gast TobEx
        
        2011-11-29 09:13
        
        Über dieses bitweise verschieben hatte ich bereits schon etwas gefunden während meiner Recherche zu dem Thema, konnte es aber nicht verwerten weil ich ja immer nur "-1" erhalten hatte.
        Nun ist es rund.
        
        Vielen Dank für die Hilfe.
        
        Gruß
        
        Tobias
        Last edited: 2011-11-29 09:21:36 +0100 (CET)

View all threads created 2011-11-28 16:14.