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); 
}