perl ping检测功能脚本代码
2013-02-09 22:58
597 查看
我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :)
领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知.
用到email::send模块,因为需要用到Gmail
#!/usr/bin/perl
use warnings;
use strict;
use Email::Send;
use Email::Send::Gmail;
use Email::Simple::Creator;
my @list = qw/
1.1.1.1
2.2.2.2
3.3.3.3
/;
foreach my $re (@list){
my $p = `ping $re -c 3`;
if($p=~/100% packet loss/){
my $email = Email::Simple->create(
header => [
From => 'monitor@a.com',
To => 'monitor@b.com',
Subject => "$re 100% packet loss",
],
body => "$re the server is down!\n",
);
my $sender = Email::Send->new(
{ mailer => 'Gmail',
mailer_args => [
username => 'monitor@a.com',
password => 'xxx',
]
}
);
eval { $sender->send($email) };
die "Error sending email: $@" if $@;
}
}
相关文章推荐
- Perl脚本实现检测主机心跳信号功能
- svn利用钩子脚本功能实现代码同步到web目录 推荐
- 脚本——倒计时,ping,创建用户,作业:ssh并创建用户(未能实现功能)
- 基于lvs的DR模型搭建高可用的web服务,并部署wordpress,(附有脚本实现健康状态检测的代码) 推荐
- SHELL脚本:检测一坨IP是否都能ping通(网卡监控)
- python端口检测和ping检测脚本
- 利用Perl Net::Ping检测网段IP是否…
- 使用python检测手机QQ在线状态的脚本代码
- JavaScript常用检测脚本实例代码[正则表达式]
- Python脚本实现集群检测和管理功能
- python用10行代码实现对黄色图片的检测功能
- 网页脚本运行代码功能特效
- Coverity 代码静态安全检测工具功能介绍
- JavaScript常用检测脚本实例代码
- perl6检测网站CMS脚本(测试代码)
- 自己写了一个perl脚本检测redis(nagios插件)
- js通用数据检测方法(只完成js端大体功能,随会追加php端代码)
- 实现微软ping功能的代码。C实现。
- JavaScript常用检测脚本实例代码
- 使用代码克隆检测功能查找重复代码