新手请教

sunbw001

#!/usr/bin/perl -w
use strict;
my $line;

while(chomp($line=<DATA>)){
       
        print "$line"."\n";

}

__DATA__
a
b

c

d

输出为：
a
b

c



为什么啊？while运行到第三行应该为假啊
第三行既然为真为什么第五行为假呢

iakuf

在上面的例子中,文件要读到文件有结束才是假所以空也为真.我记的perl的书上讲过.原文忘记了.
另外你的输出有问题,我在我的机器上,后面的d也是能正常输出的

iceberg77

1. chomp返回删除的字符数，所以除非读到文件结束，否则每读入一行条件都为真
2. 程序输出是否有问题？

Perl_Er

输出肯定有问题，这样d的这行是不会输出的.
因为d的这行是最后一行，所以d后面没有newline, chomp得到的是0,所以就没有print出来

为什么要用这种方式来读文件内容...?

[ 本帖最后由 Perl_Er 于 2009-9-11 10:13 编辑 ]

Perl_Er

原帖由 iakuf 于 2009-9-10 21:09 发表
在上面的例子中,文件要读到文件有结束才是假所以空也为真.我记的perl的书上讲过.原文忘记了.
另外你的输出有问题,我在我的机器上,后面的d也是能正常输出的

你哪里d这行也能输出,是因为你在copy他的代码的时候,后面留了一个空白行出来.  这样d后面就多了一个newline. chomp return 1.

[ 本帖最后由 Perl_Er 于 2009-9-11 10:12 编辑 ]

sunbw001

谢谢Perl_Er、iceberg77 (豆芽)
我明白了