我的第一個(gè)用于生產(chǎn)環(huán)境的perl腳本,雖然不是很優(yōu)秀,但也邁出了扎實(shí)的一步 :)
領(lǐng)導(dǎo)有任務(wù),給一批IP列表,ping每一臺(tái)機(jī)器,如果沒(méi)有響應(yīng)就發(fā)郵件通知,通知的郵件需要分開(kāi),不能通知一個(gè)列表,得一封一封的通知.
用到email::send模塊,因?yàn)樾枰玫紾mail
復(fù)制代碼 代碼如下:
#!/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 $@;
}
}
