perl 中*的语法是怎样的啊? 我查询了很多资料都找不到. 望指教~

rotknife

比如下面代码中有很多*号. 具体的语法是怎样的？

1. if ($^O eq 'os2') {
   
2.     local $^W = 0;
   
3. 
   
4.     *cwd                = defined &sys_cwd ? \&sys_cwd : \&_os2_cwd;
   
5.     *getcwd             = \&cwd;
   
6.     *fastgetcwd         = \&cwd;
   
7.     *fastcwd            = \&cwd;
   
8. 
   
9.     *fast_abs_path      = \&sys_abspath if defined &sys_abspath;
   
10.     *abs_path           = \&fast_abs_path;
    
11.     *realpath           = \&fast_abs_path;
    
12.     *fast_realpath      = \&fast_abs_path;
    
13. 
    
14.     return 1;
    
15. }

复制代码

兰花仙子

原帖由 rotknife 于 2006-8-13 09:54 发表
比如下面代码中有很多*号. 具体的语法是怎样的？
[code]if ($^O eq 'os2') {
    local $^W = 0;

    *cwd                = defined &sys_cwd ? \&sys_cwd : \&_os2_cwd;
    *getcwd         ...

*看你怎么用了，在regex里*表示0个或多个符合匹配条件。

在这里的*是Perl的一种魔术变量的用法，等同于定义一系列函数别名，以后你用&cwd的时候，就等同于访问了sys_cwd()函数。*cwd定义了一个glob。

rotknife

还是不清楚。能说详细点吗？  比如下面的例子： 这里的*怎么理解？  谢谢。

1. 
   
2. $fh = *STDOUT;
   
3. 
   
4. --------------
   
5. 
   
6. $fh = \*STDOUT;
   
7. 
   
8. --------------
   
9. 
   
10. sub newopen {
    
11.     my $path = shift;
    
12.     local *FH;          # not my() nor our()
    
13.     open(FH, $path) or return undef;
    
14.     return *FH;         # not \*FH!
    
15. }
    
16. $fh = newopen('/etc/passwd');
    
17. 
    
18. --------------
    
19. 
    
20. *foo = *bar;
    
21. 
    
22. --------------
    
23. 
    
24. *foo = \$bar;
    
25. 
    
26. --------------
    
27. 
    
28. local *Here::blue = \$There::green;
    

复制代码

兰花仙子

STDOUT是Perl默认的标准输出的句柄，它始终在符号表里存在：

$ perl -le 'print "$_ -> $::{$_}" for keys %::' |grep STDOUT
STDOUT -> *main::STDOUT

对文件句柄而言，say STDOUT与say *STDOUT及say \*STDOUT都是一样的效果。