Как поймать ошибку, не выходя из скрипта?

Question

Следующий сценарий выйдет, когда одноранговый порт не прослушивает. Я не хочу, чтобы он существовал, а нужно продолжать. Я знаю, что «умереть» ниже приведет к этому, но есть лучший способ захватить ошибку без выхода.

my $socket = new IO::Socket::INET (
    PeerHost => $properties{peer_host}, 
    PeerPort => $properties{peer_port}, 
    Proto => 'tcp', 
); 
die "cannot connect to the server $!\n" unless $socket; 
while(1){ 

#send something to the port 
} 

Выход:

cannot connect to the server Connection refused 

Answer 1

Альтернативы die могут быть полезны: http://perldoc.perl.org/Carp.html

и warn:

http://perldoc.perl.org/functions/warn.html

Answer 2

вы можете использовать warn

my $socket = new IO::Socket::INET (
    PeerHost => $properties{peer_host}, 
    PeerPort => $properties{peer_port}, 
    Proto => 'tcp', 
); 
warn "cannot connect to the server $@\n" unless $socket; 
while(1){ 

#send something to the port 
}