###############################################
jrhmpt01:/root/sbin# cat a3.pl
use IO::Socket;
$server='121.40.167.35';
$port=8081;
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp') ;
print "\$sock is $sock\n";
jrhmpt01:/root/sbin# perl a3.pl
$sock is IO::Socket::INET=GLOB(0x1a9d0d0)
jrhmpt01:/root/sbin# cat a3.pl
use IO::Socket;
$server='121.40.167.35';
$port=8082;
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp') ;
print "\$sock is $sock\n";
jrhmpt01:/root/sbin# perl a3.pl
$sock is
#######################################################
jrhmpt01:/root/sbin# cat check_port.pl
use IO::Socket;
##监控8081
sub check_server_alive {
(
perl 根据函数返回值判断
最新推荐文章于 2023-08-14 11:01:00 发布