Lỗi trong tài liệu perlipc?

Question

Tôi đang cố gắng giải đố thông qua một tài liệu mà tôi thấy trong tài liệu perlipc.

Nếu bạn đang viết thư cho một đường ống, bạn cũng nên bẫy SIGPIPE. Nếu không, suy nghĩ về những gì xảy ra khi bạn bắt đầu một đường ống đến lệnh không tồn tại: mở() sẽ có khả năng thành công (chỉ phản ánh thành công của ngã ba), nhưng sau đó đầu ra của bạn sẽ không thành công - một cách ngoạn mục. Perl không thể biết liệu lệnh này có hoạt động không vì lệnh của bạn thực sự đang chạy trong một quy trình riêng biệt có exec() có thể không thành công. Vì vậy, trong khi độc giả của các lệnh không có thật trả lại chỉ là một kết thúc nhanh chóng của tập tin, các nhà văn để lệnh không có thật sẽ kích hoạt một tín hiệu họ muốn được chuẩn bị tốt hơn để xử lý. Xem xét:

open(FH, "|bogus") or die "can't fork: $!"; 
    print FH "bang\n" or die "can't write: $!"; 
    close FH   or die "can't close: $!"; 

Điều đó sẽ không thổi lên cho đến khi kết thúc, và nó sẽ nổ tung với một SIGPIPE . Để nắm bắt nó, bạn có thể sử dụng này:

$SIG{PIPE} = 'IGNORE'; 
    open(FH, "|bogus") or die "can't fork: $!"; 
    print FH "bang\n" or die "can't write: $!"; 
    close FH   or die "can't close: status=$?"; 

Nếu tôi đọc mà chính xác, nó nói rằng phiên bản đầu tiên có thể sẽ không chết cho đến khi kết thúc trận chung kết.

Tuy nhiên, điều đó không xảy ra trên hộp OS X của tôi (Perl phiên bản 5.8.9 đến 5.15.9). Nó thổi lên trên open với một "không thể ngã ba: Không có tập tin hoặc thư mục" bất kể có hay không tôi có dòng $ SIG {PIPE} trong đó.

Tôi hiểu lầm điều gì?

Answer 1

Đây là thay đổi thực hiện lại quá trình phát triển 5,6 vì vậy hệ thống đó() có thể phát hiện khi nó thất bại trong việc ngã ba/exec trẻ

https://github.com/mirrors/perl/commit/d5a9bfb0fc8643b1208bad4f15e3c88ef46b4160

nó cũng được ghi nhận ở http://search.cpan.org/dist/perl/pod/perlopentut.pod#Pipe_Opens

mà tự nó trỏ tới perlipc, nhưng perlipc làm S eem để bị thiếu điều này

Answer 2

Cùng đầu ra trên Perl của tôi, v5.14.2, Ubuntu 12.04:

$ perl 
    open(FH, "|bogus") or die "can't fork: $!"; 
    print FH "bang\n" or die "can't write: $!"; 
    close FH   or die "can't close: $!"; 
can't fork: No such file or directory at - line 1. 

Và lỗi đó là lẻ, vì nó không có gì để làm với forking - họ phải có thêm một số lookahead-đoán để xem nếu nó có thể thực hiện bogus. (Đó sẽ là điều kiện cuộc đua ở mức tốt nhất, nhưng có khả năng cung cấp xử lý lỗi tốt hơn đáng kể trong trường hợp phổ biến; và chỉ là bất tiện như hành vi cũ khi cuộc đua bị mất.)