linux perl——发送邮件及监控内存

最新推荐文章于 2021-05-14 03:10:15 发布

浮生终有醒

最新推荐文章于 2021-05-14 03:10:15 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏：生物信息学

本文链接：https://blog.youkuaiyun.com/skenoy/article/details/43302867

生物信息学专栏收录该内容

117 篇文章

订阅专栏

这个Perl脚本用于实时监控Linux系统的内存使用情况。当内存使用率低于10%时，它会通过SMTP发送邮件警告，并附带系统资源消耗的详细信息。邮件内容包括内存使用率以及内存占用最高的进程列表。脚本每分钟检查一次内存状态，如果条件触发，会在一小时后再次发送提醒。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!perl
use warnings;
use strict;
use Net::SMTP_auth;

#&sendMail;

while(1)
{
	my ($sumMem, $freeMem, $rateMem);
	open MEM, "cat /proc/meminfo |" or die $!;
	while(<MEM>)
	{
		$sumMem = $1 if(/MemTotal:\s+(\d+)\s+kB/);
		$freeMem += $1 if(/MemFree:\s+(\d+)\s+kB/);
		$freeMem += $1 if(/Buffers:\s+(\d+)\s+kB/);
		$freeMem += $1 if(/Cached:\s+(\d+)\s+kB/);
	}
	$rateMem = sprintf("%d", $freeMem / $sumMem * 100);
	if($rateMem <= 10)
	{
		my $content = &detail;
		&sendMail($content);
		sleep(3600);
	}
	sleep(60);
}

sub detail
{
	`top -bn 1 > log`;
	open LOG, "head -100 log |" or die $!;
	my $content;
	while(<LOG>)
	{
		next if(/^$/);
		my @top = split /\s+/;
		if($top[5] =~ /g|t/ and $top[0] =~ /\d+/)
		{
			$content .= "$top[1]\t$top[5]\t$top[11]\n";
		}
	}
	return $content;
}

sub sendMail
{
	my $content = shift @_;
	my $smtpHost = 'smtp.exmail.qq.com';
	my $smtpPort = '25';
	 
	my $username = '***@genedenovo.com';
	my $passowrd = '***';
	 
	my @to = ('***', '***');
	my $suffix = "\@genedenovo.com";
	my $subject = "请注意19服务器内存使用已超过90%！";

	my $message = "
	Details:
	$content
	
	来自$username的监控程序";

	my $smtp = Net::SMTP_auth->new($smtpHost, Timeout => 30) or die "Error:连接到$smtpHost失败！";
	$smtp->auth('LOGIN', $username, $passowrd) or die("Error:认证失败！");

		my @address = map {my $i = $_.$suffix; $i} @to;
		my $x = join ", ", @address;
		
		$smtp->mail($username);
		$smtp->to(@address);
		$smtp->data();
		$smtp->datasend("To: $x\n"); # strict format
		$smtp->datasend("From: $username\n"); # strict format
		$smtp->datasend("Subject: $subject\n"); # strict format
		$smtp->datasend("Content-Type:text/plain;charset=UTF-8\n"); # strict format
		$smtp->datasend("Content-Trensfer-Encoding:7bit\n\n"); # strict format
		$smtp->datasend($message);
		$smtp->dataend();

	$smtp->quit();
}