有点无语的Perl语法

黑色阳光_cu

1. open(FILE, ">", "urfile.txt");
   
2. open(*FILE, ">", "urfile.txt");

复制代码

第1种方式，FILE是一个裸词，open会期许在第1个参数出现裸词，并自动转为对应的GLOB，结果等价于第2种方式。

假如第3个参数出现裸词，却又和打开的方式有关：

1. 
   
2. open(NEWFD, ">&", STDOUT);        # 正确
   
3. open(NEWFD, ">&", *STDOUT);        # 正确
   
4. open(NEWFD2, "<&", STDIN);        # 报错
   
5. open(NEWFD2, "<&", *STDIN);        # 正确
   

复制代码

而print却不期许出现*XXX形式的句柄：

1. print *STDOUT "hello world\n";        # 报错
   
2. print STDOUT "hello world\n";        # 正确

复制代码

如果一定要用*STDOUT的话，需要把*STDOUT包装在语句块里，print第一个参数可接受语句块：

1. print {*STDOUT} "hello world\n";

复制代码

==============================================

假如变量的值为undef，则perl会在需要时把变量转为需要的引用：

1. my $val;
   
2. push(@$val, 5);
   
3. warn Dumper($val);

复制代码

1. my %hash;
   
2. foreach my $elem (1 .. 5)
   
3. {
   
4.         # $hash{$elem} = [];
   
5.         push(@{$hash{$elem}}, $elem ** $elem);
   
6. }

复制代码

=============================================
正则表达式，匹配和替换用的g修饰符却是不同的含义：
# 匹配用的g修饰符会让引擎从上次匹配的位置重新开始：

1. my $str = "abcdefg";
   
2. $str =~ /.{3}/g;
   
3. if ($str =~ /(.)/g)
   
4. {
   
5.         warn $1;
   
6. }

复制代码

# 替换用的g修饰符却是指全局替换：

1. my $str = "abcdefg";
   
2. $str =~ /.{3}/g;
   
3. $str =~ s/(.)/\u$1/g;
   
4. warn $str;
   

复制代码

# 如果要从上次匹配的位置开始替换的话，要写：

1. 
   
2. my $str = "abcdefg";
   
3. $str =~ /.{3}/g;
   
4. $str =~ s/\G(.)/\u$1/;
   
5. warn $str;
   

复制代码

==============================================

1. 
   
2. warn \&func;        # \可以对函数取引用
   
3. warn \&func();        # 但是给函数提供一个参数列表的话，就变成了对函数返回值取引用
   
4. 
   
5. sub func
   
6. {
   
7.         return 0;
   
8. }
   

复制代码

==============================================

not实际上是一个函数，所以not后面跟着一个切片的话：

1. not (1)[0];        # 语法错

复制代码

要写：

1. not + (1)[0]; 或者 not ((1)[0]);

复制代码

黑色阳光_cu

最近也遇到两个问题，奇怪的很:
< $FH > 和  为什么中多了空格，为啥就不工作了？

$ab[0] = $fh;
prin ...
dugu072_cu 发表于 2010-10-25 13:38

   
应该是<>和print都要求句柄为裸词或者形如$fp的简单变量。否则，对于<>来说，则认为你是要glob扩展，比如< $FH >被认为是glob(" $FH "); 而对于print来说，print $ab[0] 'aaa' 会语法错，因为print会试图给句柄加上*转成GLOBTYPE，像这样子print *$ab[0] 'aaa'，结果就是语法错，解决方案是把 $ab[0] 套在语句块里，像这样子print {$ab[0]} 'aaa'

黑色阳光_cu

print $ab[0] 'aaa' 会语法错，因为print会试图给句柄加上*转成GLOBTYPE，像这样子print *$ab[0] 'aaa'，结 ...
flw 发表于 2010-10-25 14:23

比较了，差不多。
print $ab[0] 'aaa';
print *$ab[0] 'aaa';

D:\>perl t.pl
String found where operator expected at t.pl line 7, near "] 'aaa'"
        (Missing operator before  'aaa'?)
syntax error at t.pl line 7, near "] 'aaa'"
Execution of t.pl aborted due to compilation errors.

D:\>perl t.pl
String found where operator expected at t.pl line 7, near "] 'aaa'"
        (Missing operator before  'aaa'?)
Global symbol "$ab" requires explicit package name at t.pl line 7.
syntax error at t.pl line 7, near "$ab["
Execution of t.pl aborted due to compilation errors.

黑色阳光_cu

能不能更山寨一些？
flw 发表于 2010-10-25 14:30

黑色阳光_cu

flw 发表于 2010-10-25 14:36

反正print不对~~~

黑色阳光_cu

别瞎猜了，看代码吧。
在真相的基础上讨论，会更有价值一些。
比如可以讨论一下设计成这样有什么坏处，然 ...
flw 发表于 2010-10-25 14:43

Perl的源码有点艰深~~~

黑色阳光_cu

QWERT键盘也是人体工程学的成果