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 \$1...





