Hệ thống Perl có thể gọi bao giờ chết không?

Question

Có thể gọi số system() có thể die trong Perl 5 không?

(nói cách khác, để 100% chống tai nạn một chương trình mà không một cuộc gọi system(), hiện nó cần phải được bao bọc thành một eval khối, hoặc là hoàn toàn hoàn toàn không cần thiết?)

---

Tôi chưa tìm thấy một đề cập đến khả năng đó ở số perldoc system, nhưng hoàn toàn không tìm thấy chính xác "cuộc gọi này không bao giờ chết".

LƯU Ý: câu hỏi là về CORE Perl cơ bản ở đây, không autodie hoặc bất kỳ mô-đun tùy chỉnh nào khác có tác dụng tương tự. Ngoài ra, giả sử không có tín hiệu ALRM được đặt hoặc bất kỳ trình xử lý tín hiệu tùy chỉnh nào khác cho vấn đề đó.

_{Tôi giả định rằng tất cả các phiên bản của Perl 5. * đều hoạt động giống nhau, nhưng nếu không, câu trả lời liên quan đến 5.8 sẽ được đánh giá cao.}

Answer 1

Trừ khi giải thích của tôi về nguồn là không chính xác, điều này có vẻ giống như một khả năng:

nguồn: Perl 5.16.2 (cũng đã kiểm tra 5.8.8), tệp: pp_sys.c, dòng: 4224 trong khối mã PP(pp_system):

if (n != sizeof(int)) 
    DIE(aTHX_ "panic: kid popen errno read, n=%u", n); 

DIE được Perl_die(pTHX_ const* pat, ...) khai báo trong util.c

Theo tài liệu, "hoảng loạn: đứa trẻ popen errno đọc" có nghĩa là "đứa trẻ chia hai trả lại một thông điệp không thể hiểu được về errno của nó".

Explanation of panic messages in Perl:

Quy ước là khi người phiên dịch chết với một lỗi nội bộ, thông điệp bắt đầu "hoảng loạn:".Trong lịch sử, nhiều thông điệp hoảng loạn đã là các chuỗi cố định, có nghĩa là các giá trị ngoài phạm vi đã kích hoạt sự hoảng sợ bị mất. Bây giờ chúng tôi cố gắng báo cáo các giá trị này, vì các sự cố như vậy có thể không lặp lại được và thông báo lỗi ban đầu có thể là chẩn đoán duy nhất chúng tôi nhận được khi chúng tôi tìm nguyên nhân.

Answer 2

system trả về trạng thái thoát của chương trình. Nó có nghĩa là, nếu chương trình bị treo, kịch bản lệnh Perl gọi tiếp tục (xem system).

Tuy nhiên, bản thân chương trình vẫn có thể giết tập lệnh gọi hoặc thậm chí làm hỏng máy tính. Ví dụ: trong Linux:

system 'killall', 'perl'; 
print "Alive\n"; 

Answer 3

Bạn có thể gọi system() với kỳ vọng rằng nó sẽ không ném ngoại lệ. Không cần bọc nó trong khối eval.

Answer 4

Tôi giả sử rằng bạn đang nói về việc thực hiện chính hàm system trái ngược với bất kỳ điều gì được gọi thông qua cuộc gọi. (Rõ ràng, một quá trình con không thể gọi die trong bối cảnh của cha mẹ, và thậm chí giả định rằng cuộc gọi là mã Perl.)

Một câu trả lời dứt khoát sẽ yêu cầu kiến ​​thức về nội bộ nhưng cho rằng cố gắng gọi một không chương trình -existent không chết, tôi không thể tưởng tượng rằng bất cứ điều gì khác bao giờ sẽ, một trong hai:

system('abcd');  # 'abcd' is not recognized... [Win32 message] 
say "I'm not dead."; # always prints