Perl如何自定义开发Nagios检测磁盘使用率插件

功能说明：
脚本已经用在实践环境中，放到nrpe远程被监控端，用来实时监控远程主机所有分区，动态增加的分区也会自动加到监控范围。 当多个分区同时出现Critical和Warning状态时，将在Nagios中优先显示Critical状态，同时输出所有分区使用情况报告。 nagios培训
监控内容包括： nagios实施 分区总size；
可用分区size； 已经使用的使用率%； 开发语言：perl
使用说明：
在nrpe.cfg文件中添加下面一行 command[check_disk]=/opt/nrpe/libexec/lionel_disk.pl -w 90 -c 95 保存，重启nrpe使服务生效。 监控软件
-w参数表示warning的阀值，90表示分区使用率达到90%时警告；-c参数表示critical的阀值，95表示使用率达到95%时报警。举例如下： # ./lionel_disk.pl -w 90 -c 95 /dev/sda2 WARNING: Total is 9.7G MB, FreeDisk is 5.5G, UseDisk% is 42% /dev/sda5 WARNING: Total is 8.7G MB, FreeDisk is 8.1G, UseDisk% is 2% /dev/sda1 WARNING: Total is 99M MB, FreeDisk is 82M, UseDisk% is 13% /dev/sdb1 CRITICAL: Total is 89G MB, FreeDisk is 33G, UseDisk% is 62% 其他细节：本脚本提供检测参数的功能，参数给出错误会提示Usage，warning的参数值一定要比 critical的值小，因为已用的使用率越多报警级别越高。
脚本内容如下，供大家参考：
脚本名称是【lionel_disk.pl 】 #!/usr/bin/perl # author:shenxiaoran # date:2014-1-14 use strict; use lib "/opt/nrpe/libexec"; use utils qw(%ERRORS &print_revision &support &usage); nagios配置
my ($opt_w,$opt_c) = ($ARGV[1],$ARGV[3]); my $name_partation; my $total_disk; my $use_disk; my $free_disk; my $rate_use_disk; my $status = 'OK'; my $flag = 0; if ( !defined $ARGV[1] or !defined $ARGV[3] ) { print "Usage: $0 -w num -c num \n"; print "Example: lionel_disk.pl -w 90 -c 95 \n"; } else { check_disk(); } sub check_disk() { if ( $opt_w > $opt_c ) { print "Error: -w num > -c num \n"; print "-w: means already use 90% \n"; print "-c: means already use 95% \n"; print "Usage: $0 -w num -c num \n"; print "Example: lionel_disk.pl -w 90 -c 95 \n"; exit; } else { my @data ; system "df -h > /tmp/df.tmp"; open (FILE,"</tmp/df.tmp") || die ("Can't open /tmp/df.tmp $!"); 开源监控软件 my $i = 0;
while (<FILE>) { if (/^\/dev\/*./) { $data[$i] = $_; $i++; } } close FILE; foreach (@data) { my @partation = split(/\s+/,$_); $name_partation = $partation[0]; $total_disk = $partation[1]; $use_disk = $partation[2]; $free_disk = $partation[3]; $rate_use_disk = abs($partation[4]); if ( $rate_use_disk >= $opt_c ) { $status = 'CRITICAL'; } elsif (( $opt_w <= $rate_use_disk ) and ( $rate_use_disk < $opt_c )) { $status = 'WARNING'; } print "$name_partation $status: Total is $total_disk MB, FreeDisk is $free_disk, UseDisk% is $rate_use_disk%\n"; if ($status =~ 'CRITICAL') { $flag = 1 } } if ( $flag == 1 ) { exit "$ERRORS{CRITICAL}" nagios安装 } else { exit "$ERRORS{$status}"; } } } 脚本结束