###############################################
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 {
( $server, $port ) = @_;
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
if (defined($sock)){return 0}else{return 100};
};
$server='121.40.167.35';
$port=8081;
$result =check_server_alive($server,$port);
print "\$result is $result\n";
jrhmpt01:/root/sbin# perl check_port.pl
$result is 0
jrhmpt01:/root/sbin# cat check_port.pl
use IO::Socket;
##监控8081
sub check_server_alive {
( $server, $port ) = @_;
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
if (defined($sock)){return 0}else{return 100};
};
$server='121.40.167.35';
$port=8082;
$result =check_server_alive($server,$port);
print "\$result is $result\n";
jrhmpt01:/root/sbin# perl check_port.pl
$result is 100
perl 根据函数返回值判断
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
下一篇:perl 监控端口
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
Python基础笔记-函数的作用、返回值、参数、作用域
主要记录了函数以及函数的参数、返回值、执行、传参、作用域等内容。
作用域 数据 全局变量 函数 Python基础 -
自定义返回值类型
自定义返回值类型
java