Perl: Erfassung von korrekten Rückgabewert von "system" - Befehl

Haben Sie:

use IPC::System::Simple qw(system);
my $exit_status = system ("nmake /f _nt.mak pack_cd SUB_PLAT=$PLAT DR=$plat 2>&1");

Gegeben, dass Sie don ' T scheinen zu kümmern, die tatsächliche Ausgabe, können Sie versuchen,

my $exit_status = systemx(nmake => 
                              qw(/f _nt.mak pack_cd),
                              "SUB_PLAT=$PLAT",
                              "DR=$plat",
                          );

Stellen Sie sicher, dass Sie umgehen cmd.exe und sehen, ob man etwas nützliches.

Referenz, die exit-codes von nmake werden hier aufgelistet.

Ausführen des folgenden Programms:

use strict; use warnings;

use IPC::System::Simple qw(systemx);
use Try::Tiny;

my $status = 0;

try   { systemx nmake => qw(/f bogus) }
catch { ($status) = ( /exit value ([0-9])/ ) };

print "Failed to execute nmake. Exit status = $status\n";

produziert:

NMAKE : fatal error U1052: Datei 'Schein' nicht gefunden 
Stop. 
Fehler beim ausführen von nmake. Exit-status = 2

Folgende version:

use strict; use warnings;

my $status = system nmake => qw(/f bogus);

if ($status) {
    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;
    }
}

produziert:

NMAKE : fatal error U1052: Datei 'Schein' nicht gefunden 
Stop. 
child exited with value 2

In der Tat, auch wenn ich

my $status = system "nmake /f bogus";

Bekomme ich die gleiche korrekte und erwartete Ausgabe.

Dito, wenn ich

my $status = system "nmake /f bogus 2>&1";

Diese Beobachtungen führen mich zu folgenden Fragen:

1. Welche version von nmake verwenden Sie?

2. Ist die /I option in Kraft? Auch wenn Sie nicht setzen Sie es von der Kommandozeile, beachten Sie die folgenden:

/I Ignoriert exit-codes aller Kommandos. Zum setzen oder löschen /I für Teile eines makefile verwenden !CMDSWITCHES. Ignorieren exit-codes für Teile eines makefile, verwenden Sie einen Bindestrich (–) Befehl Modifizierer oder .IGNORE. Überschreibt /K wenn beide angegeben werden.

So, ich habe die folgenden Dateien:

C:\temp> cat test.mak 
test.Ziel: bogus.pl; perl bogus.pl

C:\temp> Katze bogus.pl 
exit 1;

Und lief:

use strict; use warnings;

my $status = system "nmake /f test.mak 2>&1";

if ($status) {
    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;
    }
}

gab mir den Ausgang:

 perl bogus.pl 
NMAKE : fatal error U1077: 'c:\opt\perl\bin\perl.EXE' : return code '0 x 1' 
Stop. 
child exited with value 2

wo die Letzte Zeile zeigt, dass der exit-status von nmake wurde ordnungsgemäß weitergegeben werden.

Fazit:

Sie haben ein anderes problem.

In der Tat, die OP später darauf hingewiesen, in den Kommentaren, dass:

Den eigentlichen Befehl, den ich versuche zu laufen: system ("nmake /f _nt.mak pack_cd SUB_PLAT=$PLAT DR=$plat 2>&1 | C:\\tee2 $TEMP_DIR\\modules-nt_${platlogfile}");

Gegeben tees Engagement in der pipeline ist, ist es nicht verwunderlich, dass nmakes exit code verloren geht. tee ist erfolgreich in der Lage, Prozess-Ausgangsdaten von nmake, damit es Erfolg gibt, und das ist der exit-code Ihres Skripts sieht.

Daher, die Lösung ist das erfassen der Ausgabe des nmake selbst, entweder mit qx (gepaart mit der entsprechenden Ebene der Fehlerüberprüfung) oder mit capture aus IPC::System::Simple. Dann können Sie entscheiden, ob Sie möchten, drucken, die Ausgabe in einer Datei speichern, legen Sie Sie in eine E-Mail, etc ...

InformationsquelleAutor Sinan Ünür