perl ping检测功能脚本代码_perl教程-查字典教程网
perl ping检测功能脚本代码
perl ping检测功能脚本代码
发布时间:2016-12-28 来源:查字典编辑
摘要:我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步:)领导有任务,给一批IP列表,ping每一台机器,如果没有响应就...

我的第一个用于生产环境的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学习
    热门perl学习
    脚本专栏子分类