perl 计算硬盘利用率

最新推荐文章于 2019-08-06 14:53:36 发布

namesliu

最新推荐文章于 2019-08-06 14:53:36 发布

阅读量2.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： Linux 文章标签： perl disk io

本文链接：https://blog.youkuaiyun.com/namesliu/article/details/5708175

Linux 专栏收录该内容

29 篇文章

订阅专栏

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());