论坛 › Perl › perl 监控磁盘空间并自动报警实例

trssc 发表于 2018-9-1 08:27:10

perl 监控磁盘空间并自动报警实例

$message_text = ' ';　　foreach (@diskinfo) {
　　($dirname,$arg1,$arg2,$arg3,$arg4,$arg5,$arg6) =split (' ',$_,7);
　　($arg4num,$therest) = split ('%',$arg4,2);
　　if ($arg4num > "70") {
　　$message_text ="$ip_addr $arg5 Disk partition space usage over$arg4num%","\n";
　　}
　　}
　　if ($message_text ne ' ') {
　　&sendmessage;
　　}
　　}

查看完整版本: perl 监控磁盘空间并自动报警实例