设为首页收藏本站

LinuxTone | 运维专家网论坛 - 最棒的Linux运维与开源架构技术交流社区!

 找回密码
 注册

QQ登录

只需一步,快速开始

#公告#抱歉,网站已关闭,不再开放。PC时代已远逝,拥抱云原生时代,拥抱k8s,请移步:https://www.v2k8s.com

学习是一种信仰!分享是一种快乐!能力= 心态 * 沟通 * 知识 (你的每一天需要正能量!)

 网站的发展需要你贡献一份力量!希望你能每天坚持看贴1小时,并回答网友的问题!祝你在浏览论坛的过程中取得进步!谢谢!linuxtone加油!大家加油! 友情提示: 你今天学习了吗?你今天进步了吗?少一点抱怨!多一点进步!Life is short ! Why not linuxtone ?  

网站的发展、感谢每位坛友的努力!

查看: 4354|回复: 2

[perl] Net::Ping模块实现自己的主机存活检测工具 [复制链接]

Rank: 8Rank: 8

签到
273
注册时间
2011-5-3
最后登录
2014-3-20
在线时间
698 小时
阅读权限
90
积分
19482
帖子
119
主题
20
精华
0
UID
13472
发表于 2014-3-18 11:25:33 |显示全部楼层
本帖最后由 zhoujun0407 于 2014-3-18 11:27 编辑

#!/usr/bin/perl -w
# nameing.pl
# 以syn协议检测目标,
# 来源: Lover的工具小屋
# author: Lover

use strict;
use Net::Ping;
my @hosts = qw(xx100.my4399.com xx10.my4399.com);

=pod
my ($host,$rtt,$ip);
my $p = Net::Ping->new('syn');
   $p->port_number(80);

# 这里演示syn的用法
foreach $host (@hosts){
        # 对方收到俺的syn之后进入syn_recv状态,在等待俺给回一个ack
        $p->ping($host);
}
# 这里给对方发送了一个ack包,以结束对方的syn_recv的状态,防止将没有对syn攻击进行防范的主机拖进很难堪的境地
while (($host,$rtt,$ip) = $p->ack) {
        print("HOST: $host [$ip] ACKed in $rtt seconds.\n");
}
$p->close();
=cut

# 用icmp协议来检测主机
my $p = Net::Ping->new('icmp');
my ($host,$ret,$duration,$ip);
# 显示开启响应时间处理函数,以微秒为单位
   $p->hires(1);
foreach $host (@hosts){
        ($ret,$duration,$ip) = $p->ping($host,1);
        if ($ret){
                printf("$host [$ip] is alive (packet return time: %0.2f ms)\n",1000*$duration);
        }else{
                printf("$host [$ip] is down\n");
        }
}

$p->close();

Rank: 8Rank: 8

注册时间
2010-2-26
最后登录
2017-5-2
在线时间
600 小时
阅读权限
90
积分
82550
帖子
789
主题
41
精华
0
UID
8062
发表于 2014-3-19 09:02:28 |显示全部楼层
楼主写的一手好破啊
<-sina_sign,1300626711,936f3b91,1->

使用道具 举报

Rank: 8Rank: 8

注册时间
2011-9-16
最后登录
2021-3-7
在线时间
1059 小时
阅读权限
90
积分
303075
帖子
2158
主题
2
精华
0
UID
15647
发表于 2014-3-19 09:31:29 |显示全部楼层
楼主能编辑一下帖子把表情识别屏蔽掉就好了

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

IT运维专家网感谢您的支持

合作联系: QQ:67888954/MSN:cnseek@msn.com/mail:netseek@linuxtone.org

Archiver|手机版|感谢所有关心和支持过LinuxTone的朋友们 转载本站内容请注明原作者名及出处 ( 京ICP备08103151 )   |

GMT+8, 2021-3-8 01:19 , Processed in 0.019525 second(s), 14 queries , Apc On.

Powered by Discuz! X2 Licensed

© 2001-2011 Comsenz Inc.

回顶部