perl 计算硬盘利用率

perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况;

部份代码参考了iostat源码;

#!/usr/bin/perl
use Time::HiRes qw(gettimeofday);
use POSIX;

$SLEEPTIME=3;
sub getDiskUtl()
{
$clock_ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK );

# ========= get start time ===============
($start_sec, $start_usec) = gettimeofday;

# ========== 在计时开始时,取出操作时间
my $tot_ticks_0 = `grep "0 sda" /proc/diskstats | awk '{print \$13}'`;

sleep($SLEEPTIME);
#for(1..$SLEEPTIME*1000000){}

# ========= get end time ===============
($end_sec, $end_usec) = gettimeofday;

# ========== 在计时结束时,再取出一次操作时间
my $tot_ticks_1 = `grep "0 sda" /proc/diskstats | awk '{print \$13}'`;

if ($end_usec < $start_usec)
{
$time_used = (($end_sec - $start_sec - 1)*1e6 + ($end_usec+1e6 - $start_usec)) / 1e3; # Microseconds = Millisecond * 10e3;
}
else
{
$time_used = (($end_sec - $start_sec)*1e6 + ($end_usec - $start_usec)) / 1e3; # Microseconds = Millisecond * 1e3
}

my $disk_util = ($tot_ticks_1 - $tot_ticks_0)/$time_used*$clock_ticks/10.0;
}
#printf("\$start_sec is:$start_sec\t \$end_sec is:$end_sec\t\$end_usec is:$end_usec\t\$start_usec is:$start_usec\n");

#printf("\$tot_ticks_1 is %d\t\$tot_ticks_0 is %d \t\$time_used is %d\t\$clock_ticks is %d\n",
# $tot_ticks_1, $tot_ticks_0, $time_used, $clock_ticks);
printf("%8.8f\%\n", getDiskUtl());

标签: none

评论已关闭