感觉你的意思是下面的
遍历name数组，找到文件中匹配到第一列和名字一巧旦旦样的，
打印该行的内容和行号
for $j(0..@name){
$v=0;
open PF,"<"迟闭,$pro or die "can't read $pro:$!\n";
while(){
chomp;
@info=split/\t/,$_;
if($info[0] eq $name[$j]){
print "@info\n";
孝扰 last;
}
$v++;
}
close PF;
if($v == $line_number){
print "$name[$j]\t$v\n";
}
}
报了什么错，$pro是什么
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024