Giá trị được trả về bởi hệ thống() giống như "$?"?

Question

Khi tôi thực hiện system() cuộc gọi trong Perl, tôi thường kiểm tra mã trả lại theo số perldocs. Vâng, tôi nghĩ vậy. Phần lớn thời gian $rc!=0 là đủ cho tôi. Gần đây tôi đã giúp hai người ở đây gặp sự cố với các cuộc gọi system() khi chạy tập lệnh .cgi của họ dưới apache. Tôi hướng dẫn họ để kiểm tra $rc của

my $rc = system(...); 

và liên kết chúng với system() tài liệu. Sau đó, tôi nhìn kỹ hơn và nhận thấy các tài liệu không thực sự nói về $rc nhưng thay vì về $? và tôi cảm thấy một chút xấu hổ và những câu dưới đây nảy sinh:

Có một sự khác biệt giữa:

system(...); 
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; 
} 

và

my $rc = system(...); 
if ($rc == -1) { 
    print "failed to execute: $!\n"; 
} 
elsif ($rc & 127) { 
    printf "child died with signal %d, %s coredump\n", 
     ($rc & 127), ($rc & 128) ? 'with' : 'without'; 
} 
else { 
    printf "child exited with value %d\n", $rc >> 8; 
} 

Hoặc, đối với ngắn hạn, là $rc bằng $? cho system()?

Tôi đã xem qua các tài liệu của system, wait và $? nhưng không rõ ràng đối với tôi. Tôi đã làm sai trong 15 năm qua bằng cách sử dụng $rc?

Answer 1

Có, giá trị trả lại của systemnên bằng $?.

Tuy nhiên kể từ khi $? không chỉ áp dụng cho các cuộc gọi và system$? là một biến toàn cầu, nó có thể được ghi đè bởi các hành động khác đang xảy ra. Từ perldoc -v '$?' này bao gồm:

$ CHILD_ERROR

$?

Trạng thái được trả về bởi lệnh đóng cuối cùng, backtick ("` `"), gọi thành công là "wait()" hoặc "waitpid()" hoặc từ toán tử "system()".

Nó là xa an toàn để lưu trữ các giá trị ngay lập tức sau đó so sánh:

my $rc = system('ls myfile.txt'); 
if ($rc >> 8 != 0) { 
    # do something because ls exited with an error 
}