perl - perl 用超时替换“或死”，然后重试

Question

有人可以帮我修改这条线吗？

$MySocket=new IO::Socket::INET->new(PeerPort=>$port,Proto=>'tcp',PeerAddr=>$IP) or die $E;

我需要更改它，如果它失败，则超时 10 秒，然后再试 3 次，否则就死了。

谢谢您的帮助

Answer 1

单程：

my $fails = 0;
while (!($MySocket=new IO::Socket::INET->new(
        PeerPort=>$port,Proto=>'tcp',PeerAddr=>$IP))) {
    die ($E) if ++$fails ==  3;  
    sleep(10);
}