Próbuję napisać program narzędziowy, który będzie przejść przez pliku, który będzie wyglądać następująco:Pobierz kod zwrotny i wyjście z polecenia w Perl
# 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?
Chciałbym użyć [File :: Find] (http://perldoc.perl.org/File/Find.html), [File :: Finder] (https://metacpan.org/pod/File :: Finder), [File :: Find :: Rule] (https://metacpan.org/pod/File::Find::Rule) lub podobne zamiast 'find'. Umożliwi to sprawdzenie sukcesu każdego pojedynczego "odłączenia" zamiast sukcesu całego polecenia 'find'. – ThisSuitIsBlackNot