关于$line=

while(){                     #打印出偶数行。因为while(){..}读取首行，并赋给$_,
    my $line=;               #然后看$line=；将第二行数据赋给变量$line。
# print ;                          #可以看出，该while{}循环每次处理2行数据。
 print $line;                      #如此，print $line；刚好只打印偶数行。
}

__DATA__
1111111111
2222222222
3333333333
4444444444444444
555555555555555

 

 

 

result:

2222222222

4444444444444444