perl - 发送数据前检查socket是否连接

Question

我正在使用 perl 中的套接字连接编写一个简单的代码：

$sock = new IO::Socket::INET(
                  PeerAddr => '192.168.10.7',
                  PeerPort => 8000,
                  Proto    => 'tcp');
$sock or die "no socket :$!";

然后使用循环发送数据：

while...
print $sock $str;
...loop

有没有办法在循环中插入一个命令来检查连接？就像是：

while...
   socket is up?
   yes => send data
   no => connect again and the continue with loop
...loop

编辑添加我的代码：

my $sock = new IO::Socket::INET(
                    PeerAddr => '192.168.10.152',
                    PeerPort => 8000,
                    Proto    => 'tcp');
  $sock or die "no socket :$!";

  open(my $fh, '<:encoding(UTF-8)', 'list1.txt')
      or die "Could not open file $!";

  while (my $msdn = <$fh>) {
        my $port="8000";
        my $ip="192.168.10.152";
        unless ($sock->connected) {
          $sock->connect($port, $ip) or die $!;
    }
    my $str="DATA TO SEND: " . $msdn;
    print $sock $str;
  }
  close($sock);

Answer 1

IO::Socket::INET是IO::Socket的子类，它有一个connected方法。

如果套接字处于连接状态，则返回对等地址。如果套接字未处于连接状态，则将返回 undef。

如果检查返回，您可以在循环中使用它并调用connectundef它。

my $sock = IO::Socket::INET->new(
    PeerAddr => '192.168.10.7',
    PeerPort => 8000,
    Proto    => 'tcp'
);
$sock or die "no socket :$!";

while ( 1 ) {
    unless ($sock->connected) {
        $sock->connect($port, $ip) or die $!;
    }
    # ...
}