2013年1月21日
perl一次读取多行
摘要： open (TEST, "$infile")while (<TEST>){ my $line_1=$_; my $line_2=<TEST>; my $line_3=<TEST>; my $line_4=<TEST>;} 阅读全文
posted @ 2013-01-21 11:02 蒋蒋 阅读(545) 评论(0) 推荐(0)