关于$line=<DATA>

时间：2008-11-12 来源：mouse.rice

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

相关阅读更多 +