Whamcloud - gitweb
LU-4883 lmv: disable sub-stripe access from .lustre/fid
[fs/lustre-release.git] / lustre-iokit / sgpdd-survey / plot-sgpdd
1 #!/usr/bin/perl -w
2 # Report generation for plot-sgpdd
3 # ================================
4 #        The plot-sgpdd script is used to generate csv file and
5 # instructions files for gnuplot from the output of sgpdd-survey script.
6 #
7 #        The plot-sgpdd also creates .scr file that contains instructions
8 # for gnuplot to plot the graph. After generating .dat and .scr files this
9 # script invokes gnuplot to display graph.
10 #
11 # Syntax:
12 # $ sgpdd-survey > log_filename
13 # $ plot-sgpdd <log_filename>
14 # [Note: 1. This script may need modifications whenever there will be
15 #           modifications in output format of sgpdd-survey script.
16 #        2. Gnuplot version 4.0 or above is required.]
17
18 sub usage() 
19 {
20         print STDERR "Usage: $0 [options] <log_filename>\n";
21         print STDERR "  $0 parses and plots graphs from the output of sgpdd-survey\n";
22         print STDERR "  It generates text data files (.dat) and graphs (.png) using gnuplot.\n";
23         print STDERR "options:\n";
24         print STDERR "  --rt: Subtitle for read graphs\n";
25         print STDERR "  --wt: Subtitle for write graphs\n";
26         print STDERR "  --y: Y-axis scale\n";
27         print STDERR "e.g. # $0 --rt=\"no prefetch\" --wt=\"WB disabled\" --y=500 sgpdd.summary\n";
28         exit 1;
29 }
30
31 # check whether gnuplot exists?
32 system ("which gnuplot > /dev/null") == 0 or die "gnuplot does not exist, please install it and try again.\n";
33
34 # check whether gnuplot supports png
35 $pngsupport = "ldd `which gnuplot` | grep -q libpng";
36 system ("$pngsupport") == 0 or die "gnuplot installed does not support png.
37         Please install gnuplot to support png and try again.\n"; 
38
39 my @GraphTitle;
40
41 #Subroutine to write .scr file that further used by gnuplot to plot the graph.
42 sub write_scr_file() {
43         my $op = $_[0];
44         my $rwlabel = $_[1];
45         print "generating plot $file-$rsz-$op.png\n";
46         open ( SCRFILE, "> $file-$rsz-$op.scr" ) or die "Can't open scr file for writing";
47         
48         if ($opt_rdtitle || $opt_wrtitle) {
49                 if ($op eq "rd") {
50                         print SCRFILE "set title \"@GraphTitle\\n$rwlabel, " .
51                                       "Rsize = $rsz, $lun LUNs, $opt_rdtitle\"\n";
52                 }
53                 if ($op eq "wr") {
54                         print SCRFILE "set title \"@GraphTitle\\n$rwlabel, " .
55                                       "Rsize = $rsz, $lun LUNs, $opt_wrtitle\"\n";
56                 }
57         } else {
58                 print SCRFILE "set title \"@GraphTitle\\n$rwlabel, " .
59                               "Rsize = $rsz, $lun LUNs\"\n";
60         }
61         print SCRFILE "set xlabel \"Threads/LUN\"\n";
62         print SCRFILE "set ylabel \"Throughput (MiB/s)\"\n";
63         print SCRFILE "set logscale x\n";
64         print SCRFILE "set grid\n";
65         print SCRFILE "set key right bottom\n";
66         print SCRFILE "set terminal png\n";
67         print SCRFILE "set output \"/dev/null\"\n";
68         if ($opt_y != 0) {
69                 print SCRFILE "set yrange [ 0:$opt_y ]\n";
70         } else {
71                 print SCRFILE "set yrange [ 0: ]\n";
72         }
73
74         my $plot = "plot";
75         $i = 2;
76         $xrange = 1;
77         # generate instructions for gnuplot, with adjusting X-axes ranges
78         for ($j = $first_crg; $j <= $crg ; $j = $j + $j) {
79                 $tmp=$j/$lun;
80                 printf SCRFILE "$plot \"$file-$rsz-$op.dat\" " .
81                                "using 1:$i:xticlabels(1) axes x%dy1 " .
82                                "title \"$tmp crg/LUN\" " .
83                                "with linespoints lw 2\n", $xrange;
84                 $i++;
85                 $plot = "replot";
86         }
87         print SCRFILE "set output \"$file-$rsz-$op.png\"\n";
88         print SCRFILE "replot\n";
89         close SCRFILE;
90         # invoke gnuplot to display graph.
91         system ("gnuplot $file-$rsz-$op.scr") == 0 or die "ERROR: while ploting graph";
92         system ("rm $file-$rsz-$op.scr");
93 }
94
95
96 #Subroutine to write .dat file that further used by gnuplot to plot the graph.
97 sub write_dat_file() {
98         my $op = $_[0];
99         print "writing data $file-$rsz-$op.dat\n";
100         # Open .csv/.dat file for writing required columns from log file.
101         my $datafile = "$file-$rsz-$op.dat";
102         open ( DATAFILE, "> $datafile" ) or die "Can't open csv $datafile for writing";
103         printf DATAFILE "%-6s", "thrd";
104         for ($j = $first_crg; $j <= $crg ; $j = $j + $j) {
105                 $tmp = $j/$lun;
106                 printf DATAFILE "%-10s", "$tmp-crg";
107         }
108         for ( $i = $first_thread; $i <= $thread; $i = $i + $i ) {
109                 printf DATAFILE "\n%-6s", $i/$lun;
110                 for ($j = $first_crg; $j <= $crg ; $j = $j + $j) {
111                         if ($op eq "rd") {
112                                 if ( $ard{$i}{$j} ) {
113                                         printf DATAFILE "%-10s", $ard{$i}{$j};
114                                 } else {
115                                         printf DATAFILE "%-10s", "-";
116                                 }
117                         } elsif ($op eq "wr" ) {
118                                 if ( $awr{$i}{$j} ) {
119                                         printf DATAFILE "%-10s", $awr{$i}{$j};
120                                 } else {
121                                         printf DATAFILE "%-10s", "-";
122                                 }
123                         }
124                 }
125         }
126         close DATAFILE;
127 }
128
129 #Subroutine to call .scr and .dat file write routines.
130 sub write_files() {
131         for ($cnt = 0; $cnt < @operations; $cnt = $cnt + 1) {
132                 if($operations[$cnt] eq "read") {
133                         &write_dat_file("rd");
134                         &write_scr_file("rd", "read");
135                 } elsif ($operations[$cnt] eq "write") {
136                         &write_dat_file("wr");
137                         &write_scr_file("wr", "write");
138                 }
139         }
140 }
141
142 if ( !$ARGV[0] ) {
143         usage();
144 }
145 $crg = 0;
146 $thread = 0;
147 $first_crg = 1;
148 $first_thread = 1;
149 $count = 0;
150 $rsz = 0;
151 $opt_rdtitle = "";
152 $opt_wrtitle = "";
153 $opt_y = 0;
154 $cnt = 0;
155 @operations = ();
156 # Command line parameter parsing
157 use Getopt::Long;
158 GetOptions ('help' => \$opt_help, 'rt=s' => \$opt_rdtitle, 'wt=s' => \$opt_wrtitle, 'y=i' => \$opt_y) or usage(); 
159 if ($opt_help) {
160         usage();
161 }
162 $file = $ARGV[0];
163
164 open ( PFILE, "$file") or die "Can't open $file";
165 LABEL: while ( <PFILE> ) {
166         chomp;
167         # replace error strings to ensure same ordering of line fields
168         s/failed/failed . . . . ./g;
169         @line = split( /\s+/ );
170         if ($count == 0) {
171                 @GraphTitle = @line[0 .. 6];
172                 $count++;
173                 next LABEL;
174         }
175         # output format
176         # dev  1 sz  1048576K rsz 1024K crg     1 thr     8 write  604.55 [  606.43,  606.43]  read  754.02 [  756.95,  756.95]
177         $linelen = @line;
178         if ($linelen < 11) {
179                 print "invalid file format at line $count\n";
180                 exit 1;
181         }
182         if ($line[10]) {
183                 if ($line[10] eq "ENOMEM") {
184                         next LABEL;
185                 }
186         }
187         if (!$rsz || $rsz ne $line[5]) {
188                 &write_files() unless !$rsz;
189                 $cnt = 0;
190                 $lun = $line[1];
191                 $rsz = $line[5];
192                 $first_crg = $line[7];
193                 $first_thread = $line[9];
194                 for ($i = 10; $i <= $linelen; $i = $i + 5) {
195                         if ($line[$i]) {
196                                 $operations[$cnt] = $line[$i];
197                                 $cnt++;
198                         }
199                 }
200         }
201         for ($i = 0; $i < @operations; $i++) {
202                 if ($operations[$i] eq "read") {
203                         $ard{$line[9]}{$line[7]} = $line[$i * 5 + 11];
204                 } elsif ($operations[$i] eq "write") {
205                         $awr{$line[9]}{$line[7]} = $line[$i * 5 + 11];
206                 }
207         }
208         if ( $crg < $line[7] ) {
209                 $crg = $line[7];
210         }
211         if ( $thread < $line[9] ) {
212                 $thread = $line[9];
213         }
214         $count++;
215 }
216 close PFILE;
217 if ($count > 1 && $rsz) {
218         &write_files()
219 } else {
220         print "Invalid log file format\n";
221 }