OTM-CustomMetric: FrameLengthParser.pm

sub tshark
{
    shift @_; 
    my ($tt, $src, $dst, @fData) = @_; 
        my $value=0;
        my $num=0;
        foreach $line(@fData){
            $num=$num+1;
                @t2=split(/\t/,$line);
                $src=$t2[0];
                $dst=$t2[1];
                $value=$value+$t2[2];
        }
        if($num==0){
                $value=0;
        }
        else{
                $value=$value/$num;
        }

    $str="tshark#$tt#$value#$src#$src";
    return $str;

}