disk - raino's knowledge base

ディスク使用量をdfでチェックして90％を超えているとメールが飛んできます。cronに定期的にやらせる。

---

#!/usr/bin/perl
use: strict;
use: warnings;
my $host = `hostname`;
my $addr = "アラーム宛先メールアドレス";
`df -k > dffile`;
open (DF,"/home/hoge/dffile");
while (<DF>) {
　chomp;
　my @line = split;
　$line[4] =~ /(\d{1,3})%/;
　my $par = $1;
　if ( $par >= 90 ) {
　　`echo "Over 90%% used Filesystem detected" > message`;
　　`cat message dffile > body`;
　　`mailx -s '$host disk capcity check' $addr < body`;
　　last;
　}
}
unlink qw(dffile message body);

---