Perl 脚本测试网络连接。
#!/usr/bin/perl
use IO::Socket;
use POSIX qw(strftime);
use vars qw($configfile @listen @filter @unknown @nlisten @pingable);
sub testConnect($$) {
my ($host, $port) = @_;
my $s1 = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => 3,
);
if ( $s1 ) {
close $s1;
return 1;
} else { return 0; }
}