$file="g:/log/x.log";
%map=();
open(IN,"<$file") || die "Couldn't open $filename for reading: $!";
$num=0;
$v=0;
$str="";
while($line=<IN>)
{
	if (!($line=~m/.*logid.*phonenumber.*message.*/)) {#不匹配就继续循环
		next;
	}
	#print $line."\n";
	$str=substr($line,0,20);#cut str
	
	if(exists ($map{$str}))
	{
		$v=$map{$str};
		$v++;
		$map{$str}=$v;
	}else{
		$map{$str}=1;
	}

	#print $str."===".$map{$str}."\n";
}

close($IN);

while (($key, $value) = each(%map) ) {
	if($value>40){
		print "$key ------$value "."\n";
	}
}