Perl iostat 监测脚本

yanglgzh

## Print usage　　usage() {
　　echo " check_iostat $VERSION - Nagios I/O statistics check script"
　　echo ""
　　echo " Usage: check_iostat -w  -c  -l  -t|i|o|a  [ -v ] [ -h ]"
　　echo ""
　　echo " NOTE: When specifying device, /dev/ is assumed, e.g. for /dev/hda0 you should just enter hda0 for the device"
　　echo ""
　　echo "          -w  Warning trigger level"
　　echo "          -c  Critical trigger level"
　　echo "          -t  I/O transactions per second (TPS/IOPS) on "
　　echo "          -i  Kilobytes read IN per second on "
　　echo "          -o  Kilobytes written OUT per second on "
　　echo "          -a  Kilobytes written OUT and read IN per Second on "
　　echo "          -l  Number of samples to take (must be greater than 1)"
　　echo "          -v  Verbose output (ignored for now)"
　　echo "          -h  Show this page"
　　echo ""
　　}
　　## Process command line options
　　doopts() {
　　if ( `test 0 -lt $#` )
　　then
　　while getopts w:c:l:t:i:o:a:vh myarg "$@"
　　do
　　case $myarg in
　　h|\?)
　　usage
　　exit;;
　　w)
　　LEVEL_WARN=$OPTARG;;
　　c)
　　LEVEL_CRIT=$OPTARG;;
　　t)
　　FLAG_TPS=TRUE
　　DEVICE=$OPTARG;;
　　i)
　　FLAG_READS=TRUE
　　DEVICE=$OPTARG;;
　　o)
　　FLAG_WRITES=TRUE
　　DEVICE=$OPTARG;;
　　a)
　　FLAG_READWRITES=TRUE
　　DEVICE=$OPTARG;;
　　l)
　　COUNT=$OPTARG;;
　　v)
　　FLAG_VERBOSE=TRUE;;
　　*)      # Default
　　usage
　　exit;;
　　esac
　　done
　　else
　　usage
　　exit
　　fi
　　}