fdf 发表于 2015-12-29 11:24:19

perl一次读取多行

　　open (TEST, "$infile")
　　while (<TEST>)
　　{ my $line_1=$_;
　　 my $line_2=<TEST>;
　　 my $line_3=<TEST>;
　　my $line_4=<TEST>;
　　}
页: [1]
查看完整版本: perl一次读取多行