perl 根据函数返回值判断

最新推荐文章于 2019-01-08 03:10:35 发布

scan724

最新推荐文章于 2019-01-08 03:10:35 发布

阅读量664

点赞数

分类专栏： zj-脚本

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/47902981

版权

zj-脚本专栏收录该内容

93 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl的IO::Socket模块检查远程服务器的端口连接状态。通过创建TCP连接来判断端口是否开放，如果连接成功返回0，失败则返回100。示例中，针对8081端口返回0，表明连接成功；而8082端口返回100，表示连接失败。

摘要由CSDN通过智能技术生成

###############################################

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

了解本专栏