Net::FTP - Verbindung prüfen - Skript blockiert - #119881 (Netzwerkprogrammierung und Netzwerke mit Perl)

bloonix

2009-03-27 14:56

User since
2005-12-17
1615 Artikel
HausmeisterIn

hmmm, wie wäre es zum Beispiel mit

Code: (dl )

my $ret;

eval {
    local $SIG{ALRM} = sub { die "timeout" };
    alarm(5);
    $ret = $ftp->pwd;
    alarm(0);
};

if (!defined $ret) {
    $ftp = Net::FTP->new(....);
}

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.