Trích xuất thông tin từ $?

Question

Bạn có thể vui lòng cung cấp giải thích tốt về đoạn mã perl sau không. Tôi có một số ý tưởng từ google nhưng vẫn còn rất nhiều sự nhầm lẫn cơ bản là có. sự giúp đỡ tuyệt vời nếu bạn có thể cung cấp ghi chú nhỏ trên đó

$exit_value = $? >> 8; 
$signal_num = $? & 127; 
$dumped_core = $? & 128; 

Answer 1

Trích dẫn The Doc:

$?

Trạng thái trả về bằng lệnh đóng, đóng dấu cuối cùng (``) cuối cùng, gọi thành công để chờ() hoặc waitpid() hoặc từ toán tử system(). Đây chỉ là từ trạng thái 16 bit được trả về bởi cuộc gọi hệ thống chờ đợi() hoặc gọi là hệ thống chờ đợi() được gọi là Unix . Do đó, giá trị xuất cảnh của quy trình con thực sự là ($? >> 8) và $? & 127 cung cấp cho tín hiệu nào, nếu có, quá trình này bị chết và $? & 128 báo cáo cho dù có một kết xuất lõi.

>> 8 cho chúng ta byte cao hơn của từ 16 bit.

& 127 về cơ bản giống như & 0b01111111, đưa ra phần 7 bit thấp hơn của từ đó.

& 128 giống với & 0b10000000, cơ bản kiểm tra bit thứ 8 của kết quả.

Answer 2

Xem perldoc -f 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; 
} 

Các $? ngữ nghĩa được lấy từ cuộc gọi wait hệ thống, xem man 2 wait.

Answer 3

use POSIX qw(WEXITSTATUS WIFEXITED); 

if(WIFEXITED($?)) { 
    print "The exit status was ", WEXITSTATUS($?), "\n"; 
} 

Xem thêm WIFSIGNALED và WTERMSIG.

Một C vĩ mô hữu ích là WCOREDUMP, tài liệu trong thư viện GNU C (với sự nhấn mạnh thêm)

WCOREDUMP(status)

trả về true nếu đứa trẻ được sản xuất một bãi chứa lõi. Macro này chỉ nên được sử dụng nếu WIFSIGNALED trả về true. Macro này không được chỉ định trong POSIX.1-2001 và không có sẵn trên một số triển khai Unix (ví dụ: AIX, SunOS). Chỉ sử dụng phần đính kèm này trong & hellip; #endif.

Kể từ version 5.10.0, perl includes WCOREDUMP trong tính toán của mình về giá trị của $? nếu vĩ mô hiện có sẵn trên hệ thống của bạn, như tài liệu trong perlvar:

Do đó, giá trị xuất cảnh của tiến trình con thực sự là ($?>> 8) và $? & 127 đưa ra tín hiệu nào, nếu có, quá trình này bị chết và $? & 128 báo cáo liệu có một kết xuất lõi hay không.