Get return-code und die Ausgabe von Befehl in Perl

Bin ich zu schreiben versucht, ein Dienstprogramm, das gehen durch eine Datei würde wie folgt Aussehen: 

# Directory | file name | action | # of days without modification to the file for the command to take action
/work/test/|a*|delete|1
/work/test/|b*|compress|0
/work/test/|c*|compress|1

Mein Skript über das Datei-Entscheidung, wenn, zum Beispiel, gibt es die Dateien unter /work/test/, die beginnen mit "a", die sich nicht geändert haben in den letzten 1 Tagen, und wenn so, es würde Sie zu löschen.

Dafür verwende ich den Befehl "suchen". Beispiel: 

my $command = "find " . $values[0] . $values[1] . " -mtime +" . $values[3] . " -delete ;\n";
system ($command);

Aber, ich wurde gebeten, zum abrufen der return code für jeden Schritt, um zu überprüfen, dass jeder Schritt gut geklappt hat.

Nun, ich weiß, dass system() liefert den return-code, und die backticks return die Ausgabe. Aber, wie bekomme ich beides?

  • Ich würde File::Find, Datei::Finder, File::Find::Rule, oder ähnlich, statt find. Das wird Ihnen erlauben, zu überprüfen, den Erfolg jedes einzelnen unlink anstatt der Erfolg des gesamten find Befehl.
InformationsquelleAutor coconut | 2015-10-01
  1. 13

    Nach backticks ausgeführt werden, wird der return code steht in $?.

    $?

    Den status zurück durch das Letzte Rohr in der Nähe, einfaches schließendes Anführungszeichen ( ` ) - Befehl, erfolgreichen Aufruf von wait() oder waitpid () oder system () - operator. Dies ist nur die 16-bit-statuswort zurückgegeben, die durch die traditionellen Unix-wait() system call (oder anderes gemacht wird, zu schauen, wie es).

    $output = `$some_command`;
print "Output of $some_command was '$output'.\n";
print "Exit code of $some_command was $?\n";
    • Tipp: Alle system, readpipe (backticks), wait und waitpid set $?.
    • Auch Hinweis - es werden nicht unbedingt den return-code des command - möglicherweise müssen Sie etwas verändern.
    • Die Dokumentation für system zeigt, wie extra die verschiedenen Werte von $?.
    InformationsquelleAutor mob
  2. 3

    Die Universelle Lösung für backticks, system () etc., ist die Verwendung der ${^CHILD_ERROR_NATIVE} variable. Siehe perldoc perlvar:
    http://perldoc.perl.org/perlvar.html#%24%7b%5eCHILD_ERROR_NATIVE%7d

    ${^CHILD_ERROR_NATIVE}
    Die native-status zurückgegeben, der durch das Letzte Rohr in der Nähe, einfaches schließendes Anführungszeichen ( ` ) - Befehl, erfolgreichen Aufruf von wait() oder waitpid () oder system () - operator. Auf POSIX-artigen Systemen kann dieser Wert dekodiert werden mit der WIFEXITED, WEXITSTATUS, WIFSIGNALED, WTERMSIG, WIFSTOPPED, WSTOPSIG und WIFCONTINUED Funktionen, die das POSIX-Modul.

    InformationsquelleAutor Andrew Yochum
Schreibe einen Kommentar