|
@@ -3,6 +3,7 @@
|
|
use strict;
|
|
use strict;
|
|
|
|
|
|
my $size = 0;
|
|
my $size = 0;
|
|
|
|
+my $iters = 0;
|
|
my $who = '';
|
|
my $who = '';
|
|
my $mode = '';
|
|
my $mode = '';
|
|
my %res = ();
|
|
my %res = ();
|
|
@@ -14,7 +15,7 @@ while(<>) {
|
|
$netsetup = "$1 ";
|
|
$netsetup = "$1 ";
|
|
next;
|
|
next;
|
|
}
|
|
}
|
|
- $size = "$1|$2" if /===== Running oram (\d+) (\d+)/;
|
|
+ ($size,$iters) = ($1,$2) if /===== Running oram (\d+) (\d+)/;
|
|
$res{$size} = {} unless defined $res{$size};
|
|
$res{$size} = {} unless defined $res{$size};
|
|
$who = $1 if /===== ([CDE]) output/;
|
|
$who = $1 if /===== ([CDE]) output/;
|
|
$mode = $1 if /(Online Time|Offline Time|ETE)/;
|
|
$mode = $1 if /(Online Time|Offline Time|ETE)/;
|
|
@@ -39,6 +40,22 @@ while(<>) {
|
|
$res{$size}->{'onlbytes'} += $onlinebytes;
|
|
$res{$size}->{'onlbytes'} += $onlinebytes;
|
|
$res{$size}->{'totbytes'} += $totbytes;
|
|
$res{$size}->{'totbytes'} += $totbytes;
|
|
}
|
|
}
|
|
|
|
+ if (/===== End /) {
|
|
|
|
+ my $online = &max3($res{$size}->{'COnline Time'},
|
|
|
|
+ $res{$size}->{'DOnline Time'},
|
|
|
|
+ $res{$size}->{'EOnline Time'});
|
|
|
|
+ my $total = &max3($res{$size}->{'CETE'},
|
|
|
|
+ $res{$size}->{'DETE'},
|
|
|
|
+ $res{$size}->{'EETE'});
|
|
|
|
+ print "CircuitORAMOnln read $size $netsetup$online s\n";
|
|
|
|
+ print "CircuitORAMTotl read $size $netsetup$total s\n";
|
|
|
|
+ # Note that the java code reports bandwidth *per iteration*
|
|
|
|
+ my $onlinekib = $res{$size}->{'onlbytes'} * $iters / 1024;
|
|
|
|
+ my $totalkib = $res{$size}->{'totbytes'} * $iters / 1024;
|
|
|
|
+ print "CircuitORAMOnln read $size $netsetup$onlinekib KiB\n";
|
|
|
|
+ print "CircuitORAMTotl read $size $netsetup$totalkib KiB\n";
|
|
|
|
+ undef $res{$size};
|
|
|
|
+ }
|
|
}
|
|
}
|
|
|
|
|
|
sub max3 {
|
|
sub max3 {
|
|
@@ -47,26 +64,3 @@ sub max3 {
|
|
$m = $_[2] if $_[2] > $m;
|
|
$m = $_[2] if $_[2] > $m;
|
|
$m;
|
|
$m;
|
|
}
|
|
}
|
|
-
|
|
|
|
-foreach $size (sort keys %res) {
|
|
|
|
- my $iters = $1 if $size =~ /\|(\d+)/;
|
|
|
|
- my $online = &max3($res{$size}->{'COnline Time'},
|
|
|
|
- $res{$size}->{'DOnline Time'},
|
|
|
|
- $res{$size}->{'EOnline Time'});
|
|
|
|
- my $total = &max3($res{$size}->{'CETE'},
|
|
|
|
- $res{$size}->{'DETE'},
|
|
|
|
- $res{$size}->{'EETE'});
|
|
|
|
- print "CircuitORAMOnline read $size $netsetup$online s\n";
|
|
|
|
- print "CircuitORAMTotal read $size $netsetup$total s\n";
|
|
|
|
-}
|
|
|
|
-
|
|
|
|
-print "\n";
|
|
|
|
-
|
|
|
|
-foreach $size (sort keys %res) {
|
|
|
|
- # Note that the java code reports bandwidth *per iteration*
|
|
|
|
- my $iters = $1 if $size =~ /\|(\d+)/;
|
|
|
|
- my $online = $res{$size}->{'onlbytes'} * $iters;
|
|
|
|
- my $total = $res{$size}->{'totbytes'} * $iters;
|
|
|
|
- print "CircuitORAMOnline read $size $netsetup$online KiB\n";
|
|
|
|
- print "CircuitORAMTotal read $size $netsetup$total KiB\n";
|
|
|
|
-}
|
|
|