Pobierz kod zwrotny i wyjście z polecenia w Perl

Question

Próbuję napisać program narzędziowy, który będzie przejść przez pliku, który będzie wyglądać następująco:

# 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 

Mój skrypt przejdzie akt decydujący, jeśli na na przykład, istnieją pliki w katalogu/work/test /, które zaczynają się od "a", które nie zostały zmodyfikowane w ciągu ostatnich 1 dni, a jeśli tak, to je usunie.

Do tego używam polecenia find. Przykład:

Ale zostałem poproszony o pobranie kodu powrotu dla każdego kroku, aby sprawdzić, czy każdy krok działał poprawnie.

Teraz wiem, że system() zwraca kod powrotu, a backticks zwracają dane wyjściowe. Ale jak mogę uzyskać oba?

Answer 1

Po uruchomieniu numerów zwrotnych kod powrotu jest dostępny pod numerem $?.

$?

Status zwrócony przez ostatniego zamknięcia rury, komenda lewy apostrof (``), skuteczne wywołanie wait() lub waitpid(), lub z systemu() operator. Jest to tylko 16-bitowe słowo statusowe zwracane przez tradycyjne wywołanie systemowe wait() systemu uniksowego (lub w przeciwnym razie jest tak zaprojektowane).

$output = `$some_command`; 
print "Output of $some_command was '$output'.\n"; 
print "Exit code of $some_command was $?\n"; 

Answer 2

uniwersalne rozwiązanie backticks system() itd jest użycie zmiennej ${^CHILD_ERROR_NATIVE}. Zobacz perlvar perldoc: http://perldoc.perl.org/perlvar.html#%24%7b%5eCHILD_ERROR_NATIVE%7d

$ {^ CHILD_ERROR_NATIVE} Natywna stan zwracany przez ostatni rury końca, lewy apostrof (``) polecenia, udane wywołanie wait() lub waitpid() lub z operator system(). W systemach POSIX-owych ta wartość może być dekodowana za pomocą funkcji WIFEXITED, WEXITSTATUS, WIFSIGNALED, WTERMSIG, WIFOPOPED, WSTOPSIG i WIFCONTINUED dostarczanych przez moduł POSIX.