1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
#!/usr/bin/perl
#
# arguments: one of more report files
#
# Christian Mautner <christian * mautner . ca>, 2005-10-31
#
# This script is based loosely on the Generate_Graph set
# of scripts that come with iozone, but is a complete re-write
#
# The main reason to write this was the need to compare the behaviour of
# two or more different setups, for tuning filesystems or
# comparing different pieces of hardware.
#
# This script is in the public domain, too short and too trivial
# to deserve a copyright.
#
# Simply run iozone like, for example, ./iozone -a -g 4G > config1.out (if your machine has 4GB)
# and then run perl report.pl config1.out
# or get another report from another box into config2.out and run
# perl report.pl config1.out config2.out
# the look in the report_* directory for .png
#
# If you don't like png or the graphic size, search for "set terminal" in this file and put whatever gnuplot
# terminal you want. Note I've also noticed that gnuplot switched the set terminal png syntax
# a while back, you might need "set terminal png small size 900,700"
#
@Reports=@ARGV;
die "usage: $0 <iozone.out> [<iozone2.out>...]\n" if not @Reports or grep (m|^-|, @Reports);
die "report files must be in current directory" if grep (m|/|, @Reports);
%columns=(
'write' =>3,
'read' =>5,
'rewrite' =>4,
'reread' =>6,
'randread' =>7,
'randwrite' =>8,
'bkwdread' =>9,
'recrewrite'=>10,
'strideread'=>11,
'fwrite' =>12,
'frewrite' =>13,
'fread' =>14,
'freread' =>15,
);
#
# create output directory. the name is the concatenation
# of all report file names (minus the file extension, plus
# prefix report_)
#
$outdir="report_".join("_",map{/([^\.]+)(\..*)?/ && $1}(@Reports));
print STDERR "Output directory: $outdir ";
if ( -d $outdir )
{
print STDERR "(removing old directory) ";
system "rm -rf $outdir";
}
mkdir $outdir or die "cannot make directory $outdir";
print STDERR "done.\nPreparing data files...";
foreach $report (@Reports)
{
open(I, $report) or die "cannot open $report for reading";
$report=~/^([^\.]+)/;
$datafile="$1.dat";
push @datafiles, $datafile;
open(O, ">$outdir/$datafile") or die "cannot open $outdir/$datafile for writing";
open(O2, ">$outdir/2d-$datafile") or die "cannot open $outdir/$datafile for writing";
while(<I>)
{
next unless ( /^[\s\d]+$/ );
@split = split();
next unless ( @split >= 8 );
print O;
print O2 if $split[1] == 16384 or $split[0] == $split[1];
}
close I, O, O2;
}
print STDERR "done.\nGenerating graphs:";
foreach $column (keys %columns)
{
print STDERR " $column";
open(G, ">$outdir/$column.do") or die "cannot open $outdir/$column.do for writing";
print G qq{
set title "Iozone performance: $column"
set grid lt 2 lw 1
set surface
set parametric
set xtics
set ytics
set logscale x 2
set logscale y 2
set autoscale z
#set xrange [2.**5:2.**24]
set xlabel "File size in KBytes"
set ylabel "Record size in Kbytes"
set zlabel "Kbytes/sec"
set style data lines
set dgrid3d 80,80,3
#set terminal png small picsize 900 700
set terminal png small size 900 700
set output "$column.png"
};
print G "splot ". join(", ", map{qq{"$_" using 1:2:$columns{$column} title "$_"}}(@datafiles));
print G "\n";
close G;
open(G, ">$outdir/2d-$column.do") or die "cannot open $outdir/$column.do for writing";
print G qq{
set title "Iozone performance: $column"
#set terminal png small picsize 450 350
set terminal png small size 450 350
set logscale x
set xlabel "File size in KBytes"
set ylabel "Kbytes/sec"
set output "2d-$column.png"
};
print G "plot ". join(", ", map{qq{"2d-$_" using 1:$columns{$column} title "$_" with lines}}(@datafiles));
print G "\n";
close G;
if ( system("cd $outdir && gnuplot $column.do && gnuplot 2d-$column.do") )
{
print STDERR "(failed) ";
}
else
{
print STDERR "(ok) ";
}
}
print STDERR "done.\n";
|
