OTM-CustomMetric: FrameLengthParser.pm
File FrameLengthParser.pm, 362 bytes (added by , 12 years ago) |
---|
Line | |
---|---|
1 | sub tshark |
2 | { |
3 | shift @_; |
4 | my ($tt, $src, $dst, @fData) = @_; |
5 | my $value=0; |
6 | my $num=0; |
7 | foreach $line(@fData){ |
8 | $num=$num+1; |
9 | @t2=split(/\t/,$line); |
10 | $src=$t2[0]; |
11 | $dst=$t2[1]; |
12 | $value=$value+$t2[2]; |
13 | } |
14 | if($num==0){ |
15 | $value=0; |
16 | } |
17 | else{ |
18 | $value=$value/$num; |
19 | } |
20 | |
21 | $str="tshark#$tt#$value#$src#$src"; |
22 | return $str; |
23 | |
24 | } |