1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/usr/bin/perl -w
use strict 'refs';
use strict 'subs';
#if ($#ARGV 0) {
# &usage;
# exit;
#}
sub usage {
print STDERR " usage: $0 <pattern> <time>\n";
exit;
}
my @a = <$ARGV[0]*>;
my $time = $ARGV[1]-10;
foreach $file (@a) {
my ($prefix, $suffix) = split(/-/,$file);
my $i = $suffix*1000;
# open(INPUT, "$ARGV[$file]") or die "Cannot open $ARGV[$file]: $!\n";
print STDERR "Doing $file tmp-$suffix\n";
my $command1 = "grep curr tmp-$suffix | awk \'{if (\$2==\"(0)\") {sum1+=\$11; sum2+=\$13}} END {print $i, (sum1/sum2)*100}\' >> dropRate";
# print "$command1 \n";
system($command1);
my $command2 = "awk '{if (\$4 != 0) { if (\$2==50) start[\$4]=\$6; if (\$2==$time) bw[\$4]=(\$6 - start[\$4])*8/(($time-50)*1000000)}} END {for (i=1; i<=14; i++) print i, bw[i]}' $file | awk '{ if (\$1 <=2) sum1+=\$2; else if (\$1 <=4) sum2+=\$2; else if (\$1<=6) sum3+=\$2; else sum4+=\$2} END {print $i, sum1/2, sum2/2, sum3/2, sum4/8}\' >> data";
# print "$command2 \n";
system($command2);
}
|
