iostat 2 -dkx |perl -e '$|=1;while (<>) { /(?:Dev|[a-s]{3}\s+)(.*)$/ and $1 =~ /[1-9s]/ and print ;};'

##</code><code>##

#!/bin/bash -e
Time=2
IostatArgs="-dk"
NewIostatArgs="-m"
while [[ "$#" > 0 ]]; do
        if [[ ${1%[0-9]} != $1 ]] ; then
                Time="$1";
        else
                if [[ -n $NewIostatArgs ]]; then
                        NewIostatArgs="$NewIostatArgs $1"
                else
                        NewIostatArgs="$1"
                fi
        fi
        shift
done
if [[ -n "$NewIostatArgs" ]] ;then
        IostatArgs="-d $NewIostatArgs"
fi
let Time=$Time+0
#comment out sd[cdef] -- part of md0 (2010-03-03)
iostat $Time $IostatArgs | \
perl -e '
$|=1;
$clear=`tput clear`;
$at00=`tput cup 0 0`;
while (<>) {
        if (/(^.*(?:Dev|[hs]d[abcdefg-z]\s|md[0-9]\s)\S*\s+)(.*)$/) {
                my ($dev, $rest) = ($1, $2);
                if ($dev =~ /Dev/) {
                        print $clear.$at00.$_;
                } else {
                        print unless $2 =~ /^[0\s\.]+$/;
                }
        }
}
'#!/bin/bash -e
Time=2
IostatArgs="-dk"
NewIostatArgs="-m"
while [[ "$#" > 0 ]]; do
        if [[ ${1%[0-9]} != $1 ]] ; then
                Time="$1";
        else
                if [[ -n $NewIostatArgs ]]; then
                        NewIostatArgs="$NewIostatArgs $1"
                else
                        NewIostatArgs="$1"
                fi
        fi
        shift
done
if [[ -n "$NewIostatArgs" ]] ;then
        IostatArgs="-d $NewIostatArgs"
fi
let Time=$Time+0
#comment out sd[cdef] -- part of md0 (2010-03-03)
iostat $Time $IostatArgs | \
perl -e '
$|=1;
$clear=`tput clear`;
$at00=`tput cup 0 0`;
while (<>) {
        if (/(^.*(?:Dev|[hs]d[abcdefg-z]\s|md[0-9]\s|dm-\d+)\S*\s+)(.*)$/) {
                my ($dev, $rest) = ($1, $2);
                if ($dev =~ /Dev/) {
                        print $clear.$at00.$_;
                } else {
                        print unless $2 =~ /^[0\s\.]+$/;
                }
        }
}
'
# vim: ts=2 sw=2