时间:2021-05-22
我的第一个用于生产环境的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 $@;
}
}
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
经常使用python检测服务器是否能ping通,程序是否正常运行(检测对应的端口是否正常)以前使用shell脚本的写法如下:复制代码代码如下:PINGRET=$
这是去年年前写的一个perl脚本哎年后都没看过perl了。复制代码代码如下:#!/usr/bin/perluseLWP::Simple;open(FILE,”(
python调用本地powershell方法1、现在准备一个简陋的powershell脚本,功能是测试一个IP列表哪些可以ping通:复制代码代码如下:func
下面给大家分享shell脚本编写ping包及arp的监控并发送短信功能,具体代码如下所示:#!/bin/bashNOW="`date+%Y%m%d-%H:%M:
花了1天的时间写了一个检测某ip是否网络畅通的脚本,只检测网络是否畅通的功能很容易实现,但加了一些限制功能却不好实现。复制代码代码如下:#!/bin/bash#