open (TEST, "$infile")
while (<TEST>)
{ my $line_1=$_;
my $line_2=<TEST>;
my $line_3=<TEST>;
my $line_4=<TEST>;
}
open (TEST, "$infile")
while (<TEST>)
{ my $line_1=$_;
my $line_2=<TEST>;
my $line_3=<TEST>;
my $line_4=<TEST>;
}
转载于:https://www.cnblogs.com/blueicely/archive/2013/01/21/2869400.html