奇怪的perl的变量定义位置问题

billypeng

有一个程序如下(文件名为test.pl)：

1. 
   
2. #!/usr/bin/perl
   
3. my ($line, $fname, $fh);
   
4. local $/;
   
5. 
   
6. foreach $fname (@ARGV)
   
7. {
   
8.    my $rfcnum;
   
9.    open $fh, $fname;
   
10.    $line = <$fh>;
    
11.    $line=~s#RFC\s?(\d{1,4})(?{$rfcnum=substr(100000+$1,-4);})#<a href="/rfc/rfc$rfcnum.htm" target="_top">$&</a>#g;
    
12.    print $line, "\n";
    
13.    close $fh;
    
14. }
    

复制代码

有两个文件t1.txt和t2.txt，内容相同，都是如下所示：
RFC1234 RFC 2345

然后执行：
ls t?.txt|xargs ./test.pl
结果如下：

<a href="/rfc/rfc1234.htm" target="_top">RFC1234</a>  <a href="/rfc/rfc2345.htm" target="_top">RFC 2345</a>

<a href="/rfc/rfc.htm" target="_top">RFC1234</a>  <a href="/rfc/rfc.htm" target="_top">RFC 2345</a>
请大家看一下，为什么第二行与第一行不一样呢？

如果把 my $rfcnum移到foreach 外面，两行就一样了。

有谁知道为什么？

[ 本帖最后由 billypeng 于 2009-10-25 13:24 编辑 ]

billypeng

看其他问题的回复，两位版主都已光临过。

可怜我的问题，还没有一个人回复。

难道这是传说中perl的bug?

[ 本帖最后由 billypeng 于 2009-10-25 13:25 编辑 ]

churchmice

perldoc perlre看了一下
(?{})这是一个experimental的feature,所以即使有bug也是可以理解的
然后里面有两段话值得注意

Due to an unfortunate implementation issue, the Perl code contained in these blocks is treated as a
                 compile time closure that can have seemingly bizarre consequences when used with lexically scoped
                 variables inside of subroutines or loops.  There are various workarounds for this, including simply
                 using global variables instead.  If you are using this construct and strange results occur then
                 check for the use of lexically scoped variables.

文档了里面也说了这个玩意和lexical variable碰到一起有点问题

然后

Because Perl's regex engine is currently not re-entrant, interpolated code may not invoke the regex
                 engine either directly with "m//" or "s///"), or indirectly with functions such as "split".

这也就是说你不能在嵌入式的代码里面使用regex,不管是间接的还是直接的，substr属于regex的间接形式


结论：这个有空的话可以去反映一下

兰花仙子

churchmice,赞一个

churchmice

原帖由 兰花仙子 于 2009-10-28 14:36 发表
churchmice,赞一个

billypeng

谢谢呀，我没有想到是正则表达式方面的问题，以后知道避免了。