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;

}