#l!/usr/bin/perl
##采集系统资源
use Sys::Hostname;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Net::SMTP;
my $cpu_trigger=1.6;
my $disk_trigger=90;
my $memory_trigger=40;
my $io_trigger=80;
my $cpu_event;
my $memory_event;
my $red="\e[1;31m";
my $green="\e[1;32m";
my $yellow="\e[1;33m";
my $normal="\e[0m";
sub send_mail{
if (@_ != 2){print "请输入2个参数\n";exit 1};
($m,$n) = @_; #将参数赋值给变量
my $to_address = $m;
my $CurrTime = time2iso(time());
my $to_address = $m;
my $mail_user = 'zhao.yangjian@163.com';
my $mail_pwd = 'xx';
my $mail_server = 'smtp.163.com';
my $from =
perl 监控主机报警
最新推荐文章于 2024-05-07 09:48:58 发布
这是一个使用Perl编写的监控系统,用于检测主机的CPU、磁盘空间、I/O状态和内存情况。当特定指标超过预设阈值时,脚本会通过邮件发送报警通知。脚本包括CPU利用率监控、磁盘使用率检查、I/O状态统计和内存(vmstat)监控,同时报告主机名和IP地址。
摘要由CSDN通过智能技术生成