• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    perl 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 pop push shift unshift实例介绍
    下一篇:一行代码解决 perl输入 排序 输出问题
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    perl ping检测功能脚本代码 perl,ping,检测,功能,脚本,