bin/compare-iozone-tables.pl

   1 #!/usr/bin/perl
   2
   3 # use 5.010;
   4 use strict;
   5 use warnings;
   6
   7 =head1 NAME
   8
   9
  10
  11 =head1 SYNOPSIS
  12
  13  compare-iozone-tables file1 file2 ...
  14
  15 =head1 OPTIONS
  16
  17 =over 8
  18
  19 =cut
  20
  21 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  22
  23 =item B<--help|h!>
  24
  25 This help
  26
  27 =back
  28
  29 =head1 DESCRIPTION
  30
  31 The two or more files are compared cell by cell.
  32
  33 =cut
  34
  35
  36 use FindBin;
  37 use lib "$FindBin::Bin/../lib";
  38 BEGIN {
  39     push @INC, qw(       );
  40 }
  41
  42 use Dumpvalue;
  43 use File::Basename qw(dirname);
  44 use File::Path qw(mkpath);
  45 use File::Spec;
  46 use File::Temp;
  47 use Getopt::Long;
  48 use Pod::Usage;
  49 use Hash::Util qw(lock_keys);
  50
  51 our %Opt;
  52 lock_keys %Opt, map { /([^=|!]+)/ } @opt;
  53 GetOptions(\%Opt,
  54            @opt,
  55           ) or pod2usage(1);
  56 if ($Opt{help}) {
  57     pod2usage(0);
  58 }
  59
  60 our $S;
  61 my $longest_table_name = 0;
  62 for my $i (0..$#ARGV) {
  63     my($file) = $ARGV[$i];
  64     open my $fh, $file or die "Could not open '$file': $!";
  65     my $in_excel = 0;
  66     my $curtable = "";
  67     my @columns = ();
  68  LINE: while (<$fh>) {
  69         if (/Excel output is below/) {
  70             $in_excel = 1;
  71             next LINE;
  72         }
  73         if (/^"(.+?)"$/) { # "Writer report"
  74             $curtable = $1;
  75             $curtable =~ s/\sreport$//;
  76             $curtable =~ s/\s+/_/g;
  77             if (length $curtable > $longest_table_name) {
  78                 $longest_table_name = length $curtable;
  79             }
  80             next LINE;
  81         } elsif (/^\s+(".+"$)/) { #         "4"  "8"  "16"  "32" ...
  82             @columns = map { /"(\d+)"/ } split " ", $1;
  83             next LINE;
  84         } elsif (/^"(.+?)"\s+([\d\s]+)$/) { # "2048"   219  358  365  347  ...
  85             my($curline) = $1;
  86             my(@curval) = split " ", $2;
  87             for my $j (0..$#curval) {
  88                 $S->{$curtable}{$curline}{$columns[$j]}[$i] = $curval[$j];
  89             }
  90         }
  91     }
  92 }
  93
  94 for my $table (sort keys %$S) {
  95     my $v = $S->{$table};
  96     my @tablesum;
  97     for my $line (sort {$a <=> $b} keys %$v) {
  98         my $v2 = $v->{$line};
  99         for my $col (sort {$a <=> $b} keys %$v2) {
 100             my $val = $v2->{$col};
 101             my $line = sprintf "%-*s %6d %5d", $longest_table_name, $table, $line, $col;
 102             for my $i (0..$#$val) {
 103                 if ($i == 0) {
 104                     $line .= sprintf " %7d", $val->[$i];
 105                 } else {
 106                     my $growth;
 107                     if ($val->[$i-1] > 0) {
 108                         $growth = sprintf " %4d%%", 100 * $val->[$i] / $val->[$i-1] - 100;
 109                     } else {
 110                         $growth = "N/A";
 111                     }
 112                     $line .= sprintf " %8s %7d", $growth, $val->[$i];
 113                 }
 114                 $tablesum[$i] += $val->[$i];
 115             }
 116             print "$line\n";
 117         }
 118     }
 119     my $line = sprintf "tablesum %-*s", $longest_table_name, $table;
 120     for my $i (0..$#tablesum) {
 121         if ($i == 0) {
 122             $line .= sprintf " %8d", $tablesum[$i];
 123         } else {
 124             my $growth;
 125             if ($tablesum[$i-1] > 0) {
 126                 $growth = sprintf " %4d%%", 100 * $tablesum[$i] / $tablesum[$i-1] - 100;
 127             } else {
 128                 $growth = "N/A";
 129             }
 130             $line .= sprintf " %8s %8d", $growth, $tablesum[$i];
 131         }
 132     }
 133     print "$line\n";
 134 }
 135
 136 # Local Variables:
 137 # mode: cperl
 138 # cperl-indent-level: 4
 139 # End: