X-Git-Url: https://git.whamcloud.com/?a=blobdiff_plain;f=lustre-iokit%2Fsgpdd-survey%2Fplot-sgpdd;h=fcd4bda736dfab013a99d2086be1c7b1cb706783;hb=71eb67f041732093696781cc3ddddb7d9aac66a6;hp=f66862a8f50576bd46ae2f8798c70fb520cd79fc;hpb=b4509fffd850e86442c49d5c03b341c75a492a76;p=fs%2Flustre-release.git

diff --git a/lustre-iokit/sgpdd-survey/plot-sgpdd b/lustre-iokit/sgpdd-survey/plot-sgpdd
index f66862a..fcd4bda 100755
--- a/lustre-iokit/sgpdd-survey/plot-sgpdd
+++ b/lustre-iokit/sgpdd-survey/plot-sgpdd
@@ -31,6 +31,11 @@ sub usage()
 # check whether gnuplot exists?
 system ("which gnuplot > /dev/null") == 0 or die "gnuplot does not exist, please install it and try again.\n";
 
+# check whether gnuplot supports png
+$pngsupport = "ldd `which gnuplot` | grep -q libpng";
+system ("$pngsupport") == 0 or die "gnuplot installed does not support png.
+	Please install gnuplot to support png and try again.\n"; 
+
 my @GraphTitle;
 
 #Subroutine to write .scr file that further used by gnuplot to plot the graph.
@@ -69,14 +74,18 @@ sub write_scr_file() {
 
 	my $plot = "plot";
 	$i = 2;
+	my @numrgs = split " ", $regions;
 	$xrange = 1;
 	# generate instructions for gnuplot, with adjusting X-axes ranges
-	for ($j = 1; $j <= $thread ; $j = $j + $j) {
+	
+	foreach my $j (sort numerically split " ", $threads) {
 		if ($op eq "wr") {
-			printf SCRFILE "$plot \"$file-$rsz-$op.dat\" using 1:$i axes x%dy1 title \"write-obj$j\" with line\n", $xrange;
+			$using = ( $i < $#numrgs ) ? $i : $#numrgs;
+			printf SCRFILE "$plot \"$file-$rsz-$op.dat\" using 1:$using axes x%dy1 title \"write-obj$j\" with line\n", $xrange;
 		}
 		if ($op eq "rd") {
-			printf SCRFILE "$plot \"$file-$rsz-$op.dat\" using 1:$i axes x%dy1 title \"read-obj$j\" with line\n", $xrange;
+			$using = ( $i < $#numrgs ) ? $i : $#numrgs;
+			printf SCRFILE "$plot \"$file-$rsz-$op.dat\" using 1:$using axes x%dy1 title \"read-obj$j\" with line\n", $xrange;
 		}
 		$i++;
 		$plot = "replot";
@@ -89,19 +98,48 @@ sub write_scr_file() {
 	system ("rm $file-$rsz-$op.scr");
 }
 
+sub check_data_file () {
+        my $file=shift;
+        my @values;
+        my @tmp;
+
+        open ( FILE, "< $file" ) or die "Can't open $file for reading";
+        while ( <FILE> ) {
+                @tmp = split;
+                push @values, [ @tmp ];
+        }
+        close FILE;
+
+        for ( $j = 0; $j <= $#tmp; $j++) {
+                my $sum=0;
+                for ($i = 2; $i <= $#values ; $i ++) {
+                        $values [$i][$j] =~ "-" or $sum = $sum + $values [$i][$j];
+                }
+                die "File: $file : $j column contains no data.\n" unless $sum != 0;
+        }
+}
+
+sub numerically { $a <=> $b; }
+
 #Subroutine to write .dat file that further used by gnuplot to plot the graph.
 sub write_dat_file() {
 	my $op = $_[0];
 	print "writing data $file-$rsz-$op.dat\n";
 	# Open .csv/.dat file for writing required columns from log file.
-	open ( DATAFILE, "> $file-$rsz-$op.dat" ) or die "Can't open csv file for writing";
+	my $datafile = "$file-$rsz-$op.dat";
+	open ( DATAFILE, "> $datafile" ) or die "Can't open csv $datafile for writing";
 	printf DATAFILE "%-6s", "0";
-	for ($j = 1; $j <= $thread ; $j = $j + $j) {
-			printf DATAFILE "%-8s", "$op$j";
+	
+	foreach my $j (sort numerically split " ", $regions) {
+		printf DATAFILE "%-8s", "$op$j";
 	}
-	for ( $i = 1; $i <= $region; $i = $i + $i ) {
+
+	# threads, line [7], strings
+	foreach my $i (sort numerically split " ", $threads) {
 	        printf DATAFILE "\n%-6s", $i;
-		for ($j = 1; $j <= $thread ; $j = $j + $j) {
+
+		# regions, line [5], column
+		foreach my $j (sort numerically split " ", $regions) {
 			if (($op eq "rd" && $rdwr) || ($op eq "wr" && $wrrd) || ($readop) || ($writeop)) {
 				if ( $out{$i}{$j} ) {
 					printf DATAFILE "%-8s", $out{$i}{$j};
@@ -120,13 +158,14 @@ sub write_dat_file() {
 		}
 	}
 	close DATAFILE;
+	&check_data_file ( $datafile );		
 }
 
 if ( !$ARGV[0] ) {
 	usage();
 }
-$region = 0;
-$thread = 0;
+$regions = "";
+$threads = "";
 $count = 0;
 $wrrd = 0;
 $rdwr = 0;
@@ -148,7 +187,7 @@ open ( PFILE, "$file") or die "Can't open $file";
 LABEL: while ( <PFILE> ) {
 	chomp;
 	@line = split( /\s+/ );
-	if ($line[27]) {
+	if ($line[27] && $count != 0) {
 		print "invalid file format\n";
 		exit 1;	
 	} 
@@ -181,8 +220,8 @@ LABEL: while ( <PFILE> ) {
 			&write_scr_file("wr");
 		}
 		$rsz = $line[3];		
-		$region = 0;
-		$thread = 0;
+		$regions = "";
+		$threads = "";
 	}
 	#print "rg$line[5] th$line[7] w$line[9] r$line[$rindex]\n";
 	$rindex = 18;
@@ -223,14 +262,10 @@ LABEL2:			if ($line[5] <= 1 ) {
 		$out{$line[7]}{$line[5]} = $line[9];	
 	}
 	if ($readop) {
-		$out{$line[7]}{$line[5]} = $line[9];	
-	}
-	if ( $region < $line[7] ) {
-		$region = $line[7];
-	}
-	if ( $thread < $line[5] ) {
-		$thread = $line[5];
+		$out{$line[7]}{$line[5]} = $line[9];
 	}
+	$regions .= " $line[5]" unless $regions =~ $line[5];
+	$threads .= " $line[7]" unless $threads =~ $line[7];
 	$count++;
 }
 close PFILE;