Làm cách nào để thực hiện đúng IO :: Chọn xử lý lỗi?

Question

Tôi sẽ xem tài liệu và howtos tôi đang tìm kiếm về cách sử dụng thích hợp của IO :: Chọn về truyền thông socket mạng. Tôi nghĩ rằng tôi đã có đầu của tôi quấn quanh hầu hết của nó.

Tuy nhiên, tôi vẫn bị mờ về xử lý lỗi thích hợp. Nói rằng tôi đã có một cái gì đó tương tự như mã sau chạy bên trong một đối tượng. Có, tôi nhận ra nó lộn xộn, tôi nên tích hợp IO :: Chọn vào đối tượng và không phải là ổ cắm fh chính nó, tôi không nên tạo lại IO :: Chọn mỗi lần thông qua vòng lặp, tôi đang lặp qua những gì chỉ có thể bao giờ là một filehandle trả về duy nhất, vv Tuy nhiên, điều này giữ cho ví dụ đơn giản.

Đây chỉ là ứng dụng khách kết nối với máy chủ, nhưng tôi muốn có thể xử lý đúng các lỗi cấp mạng như mất gói.

Chỉnh sửa: $self->sock() chỉ trả về một IO đã mở :: Ổ cắm :: Ổ cắm INET.

sub read { 
    my $self = shift; 
    my($length) = @_; ### Number of bytes to read from the socket 

    my $ret; 

    while (length($ret) < $length) { 
     my $str; 

     use IO::Select; 
     my $sel = IO::Select->new($self->sock()); 

     if (my @ready = $sel->can_read(5)) { ### 5 sec timeout 
      for my $fh (@ready) { 
      my $recv_ret = $fh->recv($str, $length - length($ret)); 
      if (!defined $recv_ret) { 
       MyApp::Exception->throw(
       message => "connection closed by remote host: $!", 
      ); 
      } 
      } 
     } 
     else { 
      ### Nothing ready... we timed out! 
      MyApp::Exception->throw(
        message => "no response from remote host", 
      ); 
     } 
     $ret .= $str; 
     } 

     return $ret; 
} 

• Tôi có cần phải được kiểm tra sự trở lại từ recv, hoặc những sai sót đó sẽ ảnh hưởng đến nó sẽ được hiển thị trong IO :: Chọn đối tượng?
• Tôi có xử lý đúng thời gian chờ hoặc logic của tôi có được thiết lập sai không?
• IO :: Ổ cắm đề cập đến một ngoại lệ hiện có trên một tập tin ổ cắm, vì lỗi ngoài dải và các vấn đề khác. Tôi có nên kiểm tra điều này trong trường hợp hết thời gian chờ không? Làm sao? Hoặc là nó không quan trọng và OK để bỏ qua?
• Có trường hợp ngoại lệ nào khác mà tôi phải xử lý cho hành vi thích hợp không?

Answer 1

1) Tôi sẽ chỉ kiểm tra trong trường hợp. Khi chọn (2), defensive programming là bạn của bạn.

2) Giả sử bạn cần 2048 byte và máy chủ từ xa gửi một byte mỗi 5 giây. Bạn vừa mới treo trong 10K giây = 3 giờ. Đó là điều bạn muốn?

Tôi sẽ sử dụng alarm 5 và $SIG{ALRM} = sub {$stop = 1;} để thay thế.

3 và 4) Từ kinh nghiệm của tôi, chỉ cần read() while select() thực hiện công việc nhưng tôi không thể đưa ra câu trả lời chắc chắn ở đây.