NOVOTS KMS 词汇表 Glossary    联系我们 Contact Us
查询 Search  
   
按类别浏览 Browse by Category
NOVOTS KMS .: 工具软件 .: perl编写ping脚本

perl编写ping脚本

领导有任务,给一批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/
192.168.1.2
192.168.2.3
192.168.5.3
/;
foreach my $re (@list){
my $p = `ping $re -c 3`; icmp请求三次
if($p=~/100% packet loss/){
my $email = Email::Simple->create(
header => [
From => 'monitor@hongshu.com',
To => 'monitor@hs.com',
Subject => "$re 100% packet loss",
],
body => "$re the server is down!\n",
);
my $sender = Email::Send->new(
{ mailer => 'Gmail',
mailer_args => [
username => 'monitor@hongshu.com',
password => 'xxx',
]
}
);
eval { $sender->send($email) };
die "Error sending email: $@" if $@;
}
}

这篇文章对你多有用?

相关文章

article 原创:Perl脚本结合windows计划任务自动发送KMS提交提醒

(No rating)  4-15-2011    Views: 1174   
article ping: transmit failed, error code 1314
TCP/IP协议有问题执行一下命令修复here is a nice...

  5-31-2011    Views: 2772   
article Ping的返回信息
Network Unreachable...

(No rating)  11-22-2009    Views: 1074   

用户评语

添加评语
当前还没有评语.


.: .: .: .: .:
[ 登陆 ]
北京护航科技有限公司 2006

Novots Technologies Limited