#!/usr/bin/perl -w
use strict;
use Regexp::Common;
use Getopt::Long;
my %values;
my $result;
my ($iostat,$data,$perfdata);
my ($warning,$critical,$disk);
$result = GetOptions("disk=s"      =>      \$disk,
                     "d=s"         =>      \$disk,
                     "warning=i"   =>      \$warning,
                     "w=i"         =>      \$warning,
                     "critical=i"  =>      \$critical,
                     "c=i"         =>      \$critical,
                     "help"        =>      \&help,
                     );
$warning ||= 75;
$critical ||= 80;
$disk ||= undef;
&main();
sub main(){
        &set_iostat();
        &get_data();
        if ( $values{'%util'} < $warning )
        {
            print "TEST_IO OK - " . "$data| $perfdata\n";
        }
        elsif ( $values{'%util'} >= $warning )
        {
            print "TEST_IO WARNING - " . "$data| $perfdata\n";
        }
        elsif ( $values{'%util'} >= $critical )
        {
            print "TEST_IO CRITICAL - " . "$data| $perfdata\n";
        }
        else #No clue what value is there!
        {
             print "UNKNOWN - Error in command output\n";
        }
}
sub set_iostat(){
        if (defined $disk){
                $iostat = "iostat " . "$disk";
        }else{
                $iostat = "iostat";
        }
}
sub get_data(){
        &set_iostat();
        my $output = `$iostat -d -x 1 3 |tail -n 3`;
        unless($output) {
            print "Error executing iostat command\n";
        }
        $output =~ /Device.*?/gs;
        foreach my $key (qw(rrqm/s wrqm/s r/s w/s rsec/s wsec/s avgrq-sz avgqu-sz await svctm %util)){
                if($output =~ /\G.*?($RE{num}{real})/gs){
                        $data .= sprintf("%s %s ", $key, $1);
                }
        }
        %values = split ' ', $data;
        $data = '';
        foreach my $key(qw(r/s w/s avgqu-sz await svctm %util)){
            $data .= sprintf("%s %s ",$key,$values{$key});
            #排除(await、svctm、%util)的perfdata輸出
            # if( $key eq 'r/s'|| $key eq 'w/s'|| $key eq 'avgqu-sz'){
                $perfdata .= $key . "=" . $values{$key} . " ";
            # }
        }
}
sub help{
    print "Usage: -d|--disk= -w|--warning= -c|--critical=\n";
}

#perl check_diskio.pl -d /dev/sda -w 75 -c 80

目前成都創(chuàng)新互聯(lián)公司已為上千余家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站運營、企業(yè)網(wǎng)站設(shè)計、湘潭縣網(wǎng)站維護等服務(wù)，公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

TEST_IO OK - r/s 0.00 w/s 3.00 avgqu-sz 0.01 await 3.00 svctm 1.00 %util 0.30 | r/s=0.00 w/s=3.00 avgqu-sz=0.01 await=3.00 svctm=1.00 %util=0.30

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

名稱欄目：磁盤IO監(jiān)控腳本-創(chuàng)新互聯(lián)
URL地址：http://weahome.cn/article/csdijs.html