Interprétation des résultats d’IOMeter

On a eu récemment à interpréter et comparer des résultats générés par IOMeter.

D’habitude, on passe par la page du site de vmkTree (merci hypervisor :p) qui a en plus l’intérêt de fournir un fichier ISO avec une configuration automatique d’IOMeter et des scans à lancer.

Le problème a été pendant une mise à jour du serveur web de vmktree qui au final a duré quelque temps et qui nous a empêché  de l’utiliser.

Pendant ce temps, on a utilisé un script perl qui fait un peu la même chose.

Il est récupérable sur http://pvenezia.com/iw/iometer-parse.pl et il suffit de le lancer dans le dossier qui contient les fichiers *.csv de résultats IOMeter.

L’affichage des résultats se fait directement sur la console :

Voici le script :

#!/usr/bin/perl
#
# IOMeter results parser, 2005, Paul Venezia
#
#       Simply run this script in the directory containing the CSV output of IOMeter.
#       Results are organized by filename.
#
#

use File::Glob ':glob';
use Data::Dumper;

@files = <*.csv>;
my %results;
my $parmcount = 1;
my $lcount = 0;
foreach my $file (@files) {
	undef @lines;
	open (LOG, "<$file");
	my @lines = <LOG>;
	foreach my $line (@lines) {
		$lcount++;
		if ($line =~ /'Access\sspecification\sname.+/) {
			$line = @lines[$lcount];
			$line =~ /(.+),\d/;
			#%results->{$file}->{test} = "$1";
			$thistest = "$1";
			#print $thistest;

		}
		if ($line =~ /ALL,All.+/) {
			#$line = @lines[$lcount];
			@thisres = (split(",", $line));
			%results->{$file}->{$thistest}{IOps} = @thisres[6];
			%results->{$file}->{$thistest}{ReadIOps} = @thisres[7];
			%results->{$file}->{$thistest}{WriteIOps} = @thisres[8];
			%results->{$file}->{$thistest}{MBps} = @thisres[9];
			%results->{$file}->{$thistest}{ReadMBps} = @thisres[10];
			%results->{$file}->{$thistest}{CPU} = @thisres[45];
		}

	}
$parmcount = 0;
$lcount = 0;

}

sub swrite {
  my $fmt = shift(@_);
  $^A = '';
  formline($fmt,@_);
  return $^A;
}

my %output;
foreach my $logfile ( sort keys %results ) {
	#$TXT .= "$logfile: \n";
	$header = 1;
	foreach $test ( sort keys %{$results{$logfile}} ) {
		foreach $tsize ( sort keys %{$results{$logfile}{$test}} ) {
			$output{$test}{$logfile}{$tsize} =  swrite("@<<<<<<<<<<<<<<<<<<", $results{$logfile}{$test}{$tsize});
		}

	}
}

#print Dumper %results;
foreach $testsize ( sort keys %output ) {
	$TXT .= "$testsize\n";
	$header = 1;
	foreach $unit ( sort keys %{$output{$testsize}} ) {
		if ($header) {
			$TXT .= "\t\t";
			foreach $test ( sort keys %{$output{$testsize}{$unit}} ) {
				$TXT .= swrite("@>>>>>>>>>>>>> @<<<<<<", $test);
			}
			$TXT .= "\n";
			undef $header;
		}
		$testunit = $unit;
		$testunit =~ s/\.csv//;
		$TXT .= swrite("@<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<", $testunit);

		foreach $test ( sort keys %{$output{$testsize}{$unit}} ) {
			$TXT .= swrite("@<<<<<<<<<<<<< @<<<<<<<", $output{$testsize}{$unit}{$test});
		}
		$TXT .= "\n";
	}
	$TXT .= "\n";
}

print $TXT;
#print Dumper %output;