这两天在测试Dell的PS6000存储，在linux下也懒得去找测试工具了，就直接使用dd命令进行I/O测试，但因为需要测试的数据很多，从512b到4M的块，每一档都要进行读写的测试，这要是人肉来做，那就太累了，于是就产生了下面这个脚本。

本脚本使用perl编写，根据测试用例，完成每次读或写测试。

本脚本共有3个参数，两个是必选参数，一个是可选参数

-r 测试读性能

-w 测试写性能

-c 可选参数，用于关闭文件系统的缓存

#!/bin/evn perl

use JSON;

use Data::Dumper;

use Cwd;

use File::Basename;

our $cache_flag = '';

# 获取脚本所在目录

my $cwd;

if ( $0 =~ m{^/} ) {

$cwd = dirname($0);

}

else {

my $dir = getcwd();

$cwd = dirname("$dir/$0");

}

# 获得参数

if ( @ARGV < 1 ) {

&usage;

exit;

}

elsif ( @ARGV == 1 ) {

if ( ( $ARGV[0] ne "-r" ) && ( $ARGV[0] ne "-w" ) ) {

print "Unrecognized Option\n";

&usage;

exit;

}

}

elsif ( @ARGV == 2 ) {

if ( $ARGV[0] eq "-r" ) {

$cache_flag = "iflag=direct,nonblock";

}

elsif ( $ARGV[0] eq "-w" ) {

$cache_flag = "oflag=direct,nonblock";

}

elsif ( ( $ARGV[0] ne "-r" ) || ( $ARGV[0] ne "-w" ) ) {

print "Unrecognized Option\n";

&usage;

exit;

}

}

my $opt = $ARGV[0];

# 使用帮助

sub usage {

print "Usage: iotest.pl [OPTION] [OPTION]\n";

print "\n";

print "-r\texecute read test\n";

print "-w\texecute write test\n";

print "-c\tiotest with local filesystem cache\n\n";

}

# 检查测试文件是否存在

sub check_file {

if ( !-e "./iotest" ) {

print "The test file dose not exist,please run write test first\n";

exit;

}

}

# 打开测试用例

open FH, "

# Main #

while () {

chomp;

$json = new JSON;

# 将测试用例的json格式转成hash

my %strings = %{ $json->decode($_) };

if ( $opt eq "-r" ) {

&check_file;

while ( ( $key, $value ) = each %strings ) {

open rfh, '>>iotestr.log';

my $cmd =

"/bin/dd if=./iotest of=/dev/null bs=$key count=$value $cache_flag >> iotestr.log 2>&1";

print rfh "IOTest Block: $key\n";

`$cmd`;

print rfh "\n";

}

}

elsif ( $opt eq "-w" ) {

while ( ( $key, $value ) = each %strings ) {

open wfh, '>>iotestw.log';

my $cmd =

"/bin/dd if=/dev/zero of=./iotest bs=$key count=$value $cache_flag >> iotestw.log 2>&1";

print wfh "IOTest Block: $key\n";

`$cmd`;

print wfh "\n";

}

}

}

下面来看下测试用例的编写格式。这里蚊子采用了json串的方式，这样便于perl读取，文件内容如下

{"512":"4096000","1K":"2048000","2K":"1024000","4K":"512000","8K":"256000","16K":"128000","32K":"64000","64k":"32000","128k":"16000","256k":"8000","512k":"4000","1M":"2000","2M":"1000","4M":"500"}

该文件主要就分两个字段，冒号前的是块大小，冒号后的count数，通过块大小和count数就能创建文件，蚊子这里统一生成的是2G大小的文件。该文件保存文件名为iotest.json，将测试用例和测试脚本放到同一个目录下即可。使用方面很简单，进入到要测试的磁盘或目录下，执行

#perl /dir/to/iotest.pl –w

即可完成开启文件系统换的磁盘写测试。程序执行完毕后会在当前目录下创建.log文件用于记录测试结果，下图是蚊子测试的结果，我做成了表格。