From ea301e3841743a2c997a5e5d330412e6b1d26274 Mon Sep 17 00:00:00 2001
From: nathan <nathan>
Date: Fri, 12 Jan 2007 22:51:16 +0000
Subject: [PATCH] b=10958 pretty spacing in .dat file

---
 lustre-iokit/sgpdd-survey/plot-sgpdd.pl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/lustre-iokit/sgpdd-survey/plot-sgpdd.pl b/lustre-iokit/sgpdd-survey/plot-sgpdd.pl
index 0f7ad17..274ab31 100755
--- a/lustre-iokit/sgpdd-survey/plot-sgpdd.pl
+++ b/lustre-iokit/sgpdd-survey/plot-sgpdd.pl
@@ -71,24 +71,24 @@ close PFILE;
 print "@GraphTitle\n";
 # Open .csv file for writting required columns from log file.
 open ( DATAFILE, "> $file.dat" ) or die "Can't open csv file for writting";
-print DATAFILE "0  ";
+printf DATAFILE "%-6s", "0";
 for ($j = 1; $j <= $thread ; $j = $j + $j) {
-	print DATAFILE "  write$j  read$j";
+	printf DATAFILE "%-8s%-8s", "wr$j", "rd$j";
 }
 for ( $i = 1; $i <= $region; $i = $i + $i ) {
-	printf DATAFILE "\n%-4s", $i;
+	printf DATAFILE "\n%-6s", $i;
 	for ($j = 1; $j <= $thread ; $j = $j + $j) {
 		if ( $out{$i}{$j} ) {
-			print DATAFILE "  $out{$i}{$j}";
+			printf DATAFILE "%-8s", $out{$i}{$j};
 		    } else {
-			print DATAFILE "      -";
+			printf DATAFILE "%-8s", "-";
 		    }
 		if ( $j <= 1 && $out{$i}{$j - 1}) {
-		    print DATAFILE "  $out{$i}{$j - 1}";
+		    printf DATAFILE "%-8s", $out{$i}{$j - 1};
 		} elsif ($out{$i}{$j + 1}) {
-		    print DATAFILE "  $out{$i}{$j + 1}";
+		    printf DATAFILE "%-8s", $out{$i}{$j + 1};
 		} else {
-		    print DATAFILE "      -";
+		    printf DATAFILE "%-8s", "-";
 		}
 	}
 }
-- 
1.8.3.1