[已解决]一个作用域的问题

伍式南

有两个几乎一样的程序,只在第9,10行处有区别:一个声明变量时用了my,一个没用.结果是,一个可以正常运行,一个不能

可以正常运行的代码:

1. while (<DATA>) {
   
2.   chomp;
   
3.   my ($head, $all) = /^(.) (.*)$/;
   
4.   
   
5.   $pytable{$head} = $all;
   
6. }
   
7. 
   
8. sub getheadstr {
   
9.   @str = split '', $_[0];
   
10.   @res = ();
    
11.   
    
12.   sub loop {
    
13.     my ($no, $head) = @_;
    
14.    
    
15.     for (split ' ', $pytable{$str[$no]}) {
    
16.       if ($no == $#str) {
    
17.         push @res, $head . $_;
    
18.       } else {
    
19.         loop($no + 1, $head . $_);
    
20.       }
    
21.     }
    
22.   }
    
23.   
    
24.   loop(0, "");
    
25.   
    
26.   undef %count;
    
27.   return join ' ', grep { ++$count{ $_ } < 2; } @res;
    
28. }
    
29. 
    
30. print getheadstr("ab") . "\n";
    
31. print getheadstr("ab") . "\n";
    
32. 
    
33. __DATA__
    
34. a alpha ALPHA
    
35. b beta BETA

复制代码

有问题的代码:

1. while (<DATA>) {
   
2.   chomp;
   
3.   my ($head, $all) = /^(.) (.*)$/;
   
4.   
   
5.   $pytable{$head} = $all;
   
6. }
   
7. 
   
8. sub getheadstr {
   
9.   my @str = split '', $_[0];
   
10.   my @res = ();
    
11.   
    
12.   sub loop {
    
13.     my ($no, $head) = @_;
    
14.    
    
15.     for (split ' ', $pytable{$str[$no]}) {
    
16.       if ($no == $#str) {
    
17.         push @res, $head . $_;
    
18.       } else {
    
19.         loop($no + 1, $head . $_);
    
20.       }
    
21.     }
    
22.   }
    
23.   
    
24.   loop(0, "");
    
25.   
    
26.   undef %count;
    
27.   return join ' ', grep { ++$count{ $_ } < 2; } @res;
    
28. }
    
29. 
    
30. print getheadstr("ab") . "\n";
    
31. print getheadstr("ab") . "\n";
    
32. 
    
33. __DATA__
    
34. a alpha ALPHA
    
35. b beta BETA

复制代码

它们的输出:

1. timmy@wh1te:~/jianweizhizhuo$ perl good.pl
   
2. alphabeta alphaBETA ALPHAbeta ALPHABETA
   
3. alphabeta alphaBETA ALPHAbeta ALPHABETA
   
4. timmy@wh1te:~/jianweizhizhuo$ perl bad.pl
   
5. alphabeta alphaBETA ALPHAbeta ALPHABETA
   
6. 
   
7. timmy@wh1te:~/jianweizhizhuo$ diff good.pl bad.pl
   
8. 9,10c9,10
   
9. <   @str = split '', $_[0];
   
10. <   @res = ();
    
11. ---
    
12. >   my @str = split '', $_[0];
    
13. >   my @res = ();

复制代码

"有问题的代码"中的getheadstr函数只能被调用一次,如果我再调用一次,它就会返回一个空值

我想知道,为什么会这样?

伍式南

这个代码的功能是排列组合,跟数学中的排列组合差不多,像123,132,213,231,312,321这样的
__DATA__里面的是排列规则,getheadstr返回所有排列的情况,用空格分割

MMMIX

回复 1# 伍式南


    这就是不开警告的后果。

伍式南

回复 3# MMMIX


    哈哈 太笼统了吧
找到原因了.用my定义的变量不能被嵌套sub所使用,用local就好了.

zhlong8

函数是不能嵌套定义的，行为非常的奇葩。sub {} 这样的函数引用才是在运行时创建的，my $loop = sub {...} ; 调用时 $loop->(参数们);

104359176

Perl 变量使用前必须声明，否则会出现不可预知的后果。函数默认是包范围的，嵌套的是5.16 以后才增加的功能。你如果是 javascript 用的熟悉，在 Perl 中，可以自由的定义函数，不必隐藏在函数中，因为在 Perl 中，函数总是在命名空间范围内有效，不是全局的。

不知道为什么现在 Perl 对于新增加的功能总是报警，例如 given .. when.. values($ref) ..

zhlong8

测试特性现在全部都警告，应该是因为之前的 given when ~~ 太失败了

rubyish

回复 4# 伍式南


   

用local就好了.

3 Q  ~

伍式南

回复 5# zhlong8


    谢谢!学习了。一直以为可以像pascal,scheme那样嵌套定义的。

MMMIX

回复 9# 伍式南


    可以嵌套定义呀，只要你了解对应的语义就行了。