如何诊断“无法确定对等地址”在我的 Perl TCP 脚本中？

Question

我有这个小脚本，它的工作做得很好，但有时它往往会失败。它在两种情况下失败：

1. 发送错误：无法确定 ./tcp-new.pl 第 52 行的对等地址

2. 没有输出或任何内容，它只是无法将它所获得的内容传递给连接的 Tcp 客户端。通常它发生在我与服务器断开连接，回家并再次连接之后。要修复此问题，需要重新启动才能开始工作。有时，此问题之后会出现第 1 点中提到的问题。

注意：当我在短时间内断开连接并重新连接时，这不是问题（除非发生错误 nr 1）。

那么任何人都可以帮助我使这段代码更加稳定，这样我就不必每天重新启动它吗？

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use IO::Select;

my $tcp_port = "10008";
my $udp_port = "2099";

my $tcp_socket = IO::Socket::INET->new(
  Listen => SOMAXCONN,  LocalPort => $tcp_port,
  Proto  => 'tcp',      ReuseAddr => 1,
);
my $udp_socket = IO::Socket::INET->new(
  LocalPort => $udp_port, Proto => 'udp',
);

my $read_select  = IO::Select->new();
my $write_select = IO::Select->new();

$read_select->add($tcp_socket);
$read_select->add($udp_socket);

while (1) {
  my @read = $read_select->can_read();

  foreach my $read (@read) {

    if ($read == $tcp_socket) {

        my $new_tcp = $read->accept();
        $write_select->add($new_tcp);

    } elsif ($read == $udp_socket) {

        my $recv_buffer;
        $udp_socket->recv($recv_buffer, 1024, undef);

        my @write = $write_select->can_write();
        foreach my $write (@write) {
            $write->send($recv_buffer);
        }
    }
  }
}

Answer 1

无法确定对等地址错误意味着 getpeername() 返回 false。这可能意味着套接字已从另一侧关闭，可能在 can_write() 调用和 发送 调用。您可能应该将其从选择集中删除并继续。

Answer 2

发现同样的问题，袜子没有对等地址。

在 http://search.cpan 上查看 IO::Socket。 org/src/GBARR/IO-1.2301/IO/Socket.pm 显示：

sub send { @_ >= 2 && @_ <= 4 or croak 'usage: $sock->send(BUF, [FLAGS, [TO]] +)'; 
my $sock = $_[0]; my $flags = $_[2] || 0; my $peer = $_[3] || $sock->peername; 
croak 'send: Cannot determine peer address' unless($peer);

因此，您必须注意在对象创建时初始化对等名称，或者将对等地址作为 send() 的第三个参数提供。

if (! $sock->peeraddr()) {
         $log->warn("No peer, will croak!");
}

Answer 3

在脚本完全失败且没有任何错误消息的情况下，可能是由于未处理的信号（通常是 SIGPIPE）造成的。如果套接字操作在发送操作期间收到信号，则可能会发生这种情况。通过模拟与 TCP 服务器的许多高数据量并发连接并同时终止这些客户端连接，我可以在自己的系统中轻松地重现它。在你的脚本上运行 strace，你可以清楚地看到信号。也就是说，我试图找出如何重现“无法确定对等地址”错误，但无济于事......