读取前200行

##读取前200行
#open (IN2,"G:\\PROJECT\\project_insection\\insert_B73_1.txt") or die "$!";
#open (OUT2,"+>G:\\PROJECT\\project_insection\\insert_B73_1_myout.txt") or die "$!";
#my @myout;
#while(<IN2>)
#{
#    if($.<=200)
#    {
#        push @myout,$_;
#    }
#}
#print OUT2 @myout;

 

转载于:https://www.cnblogs.com/blueicely/archive/2013/03/18/2965888.html