请教："<>"不需要open一个文件就可以直接从文件读取？

universes

下面这段代码取自TAHI的IPV6测试工具，autorun文件

@INDEX=@ARGV;

parseIndex();

sub parseIndex(){
        my $testnum=1;
        my $num;
        for($num=1;<>;$num++) {
                chomp;
                $status[$num]{type}="";
.....
}

其中上面的ARGV是几个文件名：INDEX_ND_p1_router  INDEX_RD_p1_router  INDEX_REDIRECT_p1_router
让我疑惑的是在parseIndex这个函数中是怎么打开这三个文件并一行一行读取这三个文件中的内容的？是不是for循环当中的这个“<>”？
如果是，那么这个“<>”是如何取得这三个文件的文件句柄的？
如果不是，那是怎么打开这三个文件的？

本人初学PERL，问题初浅，请见谅！
谢谢各位的指教！

注：可以肯定是在这个parseIndex函数中打开了这三个文件，因为其中的一些正则表达式就是对这三个文件的解析，而且运行的结果也说明了这一点。

兰花仙子

原帖由 universes 于 2007-1-19 10:06 发表
下面这段代码取自TAHI的IPV6测试工具，autorun文件

@INDEX=@ARGV;

parseIndex();

sub parseIndex(){
        my $testnum=1;
        my $num;
        for($num=1;<>;$num++) {
                chomp;
                $status[$num]{type}=& ...

这个不奇怪啊,你自己test下就知道了:

#!/usr/bin/perl

while(<>) {
    print;
}

然后执行./test.pl a.txt
会把a.txt里的内容print出来.

<>这里期待STDIN的数据,如果参数跟了文件名,就把文件内容作为STDIN输入了.

for($i=0;<>;$++)这里表示逐行读取文件内容,并将$i累加.

flw

没错，就是 <>
详情请看 perldoc perlop

1. The null filehandle <> is special: it can be used to emulate the
   
2. behavior of sed and awk. Input from <> comes either from standard input,
   
3. or from each file listed on the command line. Here's how it works: the
   
4. first time <> is evaluated, the @ARGV array is checked, and if it is
   
5. empty, $ARGV[0] is set to "-", which when opened gives you standard
   
6. input. The @ARGV array is then processed as a list of filenames. The
   
7. loop
   
8. 
   
9.     while (<>) {
   
10.         ...                     # code for each line
    
11.     }
    
12. 
    
13. is equivalent to the following Perl-like pseudo code:
    
14. 
    
15.     unshift(@ARGV, '-') unless @ARGV;
    
16.     while ($ARGV = shift) {
    
17.         open(ARGV, $ARGV);
    
18.         while (<ARGV>) {
    
19.             ...         # code for each line
    
20.         }
    
21.     }
    
22. 
    
23. except that it isn't so cumbersome to say, and will actually work. It
    
24. really does shift the @ARGV array and put the current filename into the
    
25. $ARGV variable. It also uses filehandle *ARGV* internally--<> is just a
    
26. synonym for <ARGV>, which is magical. (The pseudo code above doesn't
    
27. work because it treats <ARGV> as non-magical.)
    
28. 
    
29. You can modify @ARGV before the first <> as long as the array ends up
    
30. containing the list of filenames you really want. Line numbers ($.)
    
31. continue as though the input were one big happy file. See the example in
    
32. "eof" in perlfunc for how to reset line numbers on each file.

复制代码

universes

谢谢两位的指点！
还有一点小问题：
autorun INDEX_ND_p1_router  INDEX_RD_p1_router  INDEX_REDIRECT_p1_router
此时ARGV就是这三个文件名了。
这个ARGV是不是相当于一个全局变量？传到主流程里了，然后在parseIndex里的“<>”就直接读取这个全局变量ARGV了？
如果parseIndex调用另一个函数sub test，在test中也可以读取这个ARGV并且值还是“INDEX_ND_p1_router  INDEX_RD_p1_router  INDEX_REDIRECT_p1_router”（如果ARGV没被修改的话）？

flw

完全正确。
@ARGV 就是全局变量，不过 <> 会修改它——每读完一个文件，@ARGV 里就会少一个文件。

福瑞哈哥

<>缺省从输入参数文件中读取，如果没有输入参数，会从标准输入读取
autorun INDEX_ND_p1_router
和autorun < INDEX_ND_p1_router 效果一样。不过文件多还是用参数。

universes

非常感谢各位的指点！