perl编写ping脚本51CTO博客 - 凯时娱乐

perl编写ping脚本51CTO博客

2019年04月05日13时22分34秒 | 作者: 涵衍 | 标签: 告诉,列表,需求 | 浏览: 486

我的第一个用于出产环境的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/
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 $@;
        }
}
 

版权声明
本文来源于网络,版权归原作者所有,其内容与观点不代表凯时娱乐立场。转载文章仅为传播更有价值的信息,如采编人员采编有误或者版权原因,请与我们联系,我们核实后立即修改或删除。

猜您喜欢的文章