perl 根据函数返回值判断
发布时间：2020-12-15 23:41:22 所属栏目：大数据 来源：网络整理
导读：###############################################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 $sockn";jrhm
###############################################
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 $sockn";
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,Proto => 'tcp') ;
print "$sock is $sockn";
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,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 $resultn";
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,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 $resultn";
jrhmpt01:/root/sbin# perl check_port.pl
$result is 100
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |