漫游猫认证
while(){chomp;unless(/^M/){@tmp=split;$count{$tmp[0]}++;##统计第一列数字个数} } print
"$count{1}
";##1的个数 你的代码没贴完 不知道到底是哪里。。