5
my $xaxis = shift @ARGV;
16
push(@dirs, $_) if -d $_;
19
push( @filt, '.' ) unless @filt;
33
my @k = split(/\s+/,$k);
41
my @l = split(/\s+/,$_);
44
$s->{$k}->{$f} = shift @l;
49
$s->{$k}->{'wrlat'} = $s->{$k}->{'wrlsum'} / $s->{$k}->{'wrlnum'} if $s->{$k}->{'wrlnum'} > 0;
50
$s->{$k}->{'rlat'} = $s->{$k}->{'rlsum'} / $s->{$k}->{'rlnum'} if $s->{$k}->{'rlnum'} > 0;
51
$s->{$k}->{'lat'} = $s->{$k}->{'lsum'} / $s->{$k}->{'lnum'} if $s->{$k}->{'lnum'} > 0;
52
$s->{$k}->{'latw'} = $s->{$k}->{'lwsum'} / $s->{$k}->{'lwnum'} if $s->{$k}->{'lwnum'} > 0;
53
$s->{$k}->{'latr'} = $s->{$k}->{'lrsum'} / $s->{$k}->{'lrnum'} if $s->{$k}->{'lrnum'} > 0;
54
$s->{$k}->{'statlat'} = $s->{$k}->{'lstatsum'} / $s->{$k}->{'lstatnum'} if $s->{$k}->{'lstatnum'} > 0;
55
$s->{$k}->{'dirlat'} = $s->{$k}->{'ldirsum'} / $s->{$k}->{'ldirnum'} if $s->{$k}->{'ldirnum'} > 0;
66
my @reg = split(/,/, $f);
70
my $r = (split(/\//,$d))[-1];
71
my @db = split(/,/, $r);
76
$ok = 0 unless grep {$_ eq $r} @db;
80
#next if ($f ne '.' && $d !~ /$reg/);
82
my ($x) = $d =~ /$xaxis=([\d\.]+)/;
85
my ($what, $field) = $v =~ /^(.+)\.([^\.]+)$/;
86
#print "$what $field .. $v .. $f.$field\n";
87
my $s = &load_sum("$d/sum.$what");
90
if ($field =~ /^sum=/) {
91
#warn "SUM field $field\n";
92
push( @{$res{$x}}, $s->{'sum'}->{$'} ); #'});
94
#warn "avg field $field\n";
95
push( @{$res{$x}}, $s->{'avgval'}->{$field} );
98
push( @key, "$f.$field" ) unless $didkey{"$f.$field"};
99
$didkey{"$f.$field"} = 1;
101
if (0 && exists $s->{'avgvaldevt'}) {
102
push( @{$res{$x}}, $s->{'avgvaldevt'}->{$field} );
103
push( @key, "$f.$field.dev" ) unless $didkey{"$f.$field.dev"};
104
$didkey{"$f.$field.dev"} = 1;
110
print join("\t", "#", @key) . "\n";
111
for my $x (sort {$a <=> $b} keys %res) {
112
print join("\t", $x, @{$res{$x}}) . "\n";