while循环的条件表达式求值

password636

contest.pl是perl程序；文件bb是数据文件，最后一行没有Newline结尾；执行perl contest.pl < bb

1. 
   
2. [root@fun Perl]# perl contest.pl < bb
   
3. I saw 1
   
4. I saw 0[root@fun Perl]# cat bb
   
5. 1
   
6. 0[root@fun Perl]# cat contest.pl
   
7. use strict;
   
8. use warnings;
   
9. 
   
10. my $line;
    
11. while ( $line = <STDIN> ) {
    
12.         print "I saw $line";
    
13. }
    

复制代码

我的问题是：$line在第二次loop的时候，获得的就是个"0"，那就是while ( "0" )， 为什么程序还打出"I saw 0"呢？

谢谢！

zhlong8

<> 在循环这里如果没有会自动加上个 defined 测试 perlop/IO-operators
算是规定吧

password636

回复 2# zhlong8

那是说其实

1. while ( $line = <STDIN> ) {
   
2.         print "I saw $line";
   
3. }

复制代码

的实质想当于

1. while ( defined( $line = <STDIN>) ) {
   
2.         print "I saw $line";
   
3. }

复制代码

是这个意思么？

兰花仙子

contest.pl是perl程序；文件bb是数据文件，最后一行没有Newline结尾；执行perl contest.pl < bb我的问题是： ...
password636 发表于 2011-08-30 16:59

    perl里这个地方就是这么约定的
while ($line=<>)隐含的使用了defined，实际上是在执行while(defined $line=<>)

password636

明白了。。两位版主是从哪里看来的，能否告诉一下书名

jason680

明白了。。两位版主是从哪里看来的，能否告诉一下书名
password636 发表于 2011-08-30 18:05

perldoc perlvar
/while

       $_      The default input and pattern-searching space.  The following
               pairs are equivalent:

                   while (<>) {...}    # equivalent only in while!
                   while (defined($_ = <>)) {...}

zhlong8

明白了。。两位版主是从哪里看来的，能否告诉一下书名
password636 发表于 2011-08-30 18:05

    一开始都给你列出来了啊，perldoc perlop 中的 IO-operators 这一节