perl 可以循环中重复打开同一个文件多次吗？

2024-11-06 12:40:55

推荐回答（2个）

回答（1）：

感觉你的意思是下面的
遍历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";
	}
  }

回答（2）：

报了什么错，$pro是什么