#!/usr/bin/perl
#file:	hc_linux_io
#time:	2009.09
#author: joecen
#site:  http://www.joecen.com/hcacti

my $device="sda";
open(IO,"/proc/diskstats") or die("Error: Open file '/proc/diskstats' fail!");
my @all_io_stat=grep(/$device\s+/,<IO>);
my @io_stat = split(/\s+/,$all_io_stat[0]);
print "block_input=".$io_stat[6].",block_output=".$io_stat[10];

#Blocks/s