Perl函数可以嵌套定义？

wxdlut

perl脚本：cat hanshu_qiantao.pl

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. sub out{
   
5.         print "in out function\n";
   
6. 
   
7.         sub in{
   
8.                 print "in in function\n";
   
9.         }
   
10. }
    
11. 
    
12. &out();

复制代码

执行结果：

1. > perl hanshu_qiantao.pl
   
2. in out function

复制代码

请问，这么嵌套定义，Perl怎么不报错呢？如何才能调用内部的函数呢？

wxdlut

1. > vi hanshu_qiantao.pl  
   
2. 
   
3. #!/usr/bin/perl -w
   
4. 
   
5. sub out{
   
6.         print "in out function\n";
   
7. 
   
8.         sub in{
   
9.                 print "in in function\n";
   
10.         }
    
11. }
    
12. 
    
13. &out();
    
14. &in();

复制代码

1. > perl hanshu_qiantao.pl
   
2. in out function
   
3. in in function

复制代码

竟然这样子就可以。。。

请问Perl为什么要具有这种特点，有什么好处吗？

zhlong8

没什么实际意义，不要这么用。这不能算特性，应该算自由的语法产生的毫无意义的组合，或许有一天 perl 会警告的

wxdlut

恩 在维护别人写的代码 看到这个情况 很奇怪 就试了一下。

好的 接受斑竹的建议 谢谢了~
回复 3# zhlong8