perl ping检测功能脚本代码是什么
来源：爱站网时间：2021-11-03编辑：网友分享
今天有人叫爱站技术小编安排一篇关于perl ping检测功能脚本代码是什么的文章，小编默默的安排上了，大家有兴趣的点进来看，参考参考。
今天有人叫爱站技术小编安排一篇关于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 ping检测功能脚本代码是什么，看完以上分享之后，大家应该都知道这些脚本代码是什么了吧。
