关于$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
my $line=<DATA>; #然后看$line=<DATA>；将第二行数据赋给变量$line。
# print ; #可以看出，该while{}循环每次处理2行数据。
print $line; #如此，print $line；刚好只打印偶数行。
} __DATA__
1111111111
2222222222
3333333333
4444444444444444
555555555555555 result: 2222222222 4444444444444444
相关阅读 更多 +
