linux perl——發送郵件及監控記憶體

標籤：

#!perluse 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();}

linux perl——發送郵件及監控記憶體