perl函数如何嵌套？

qq64878641

perl函数如何嵌套？

举个简单的例子？

我在书上没有看到相关章节！

zhlong8

什么叫函数的嵌套？ 闭包？

qq64878641

又是 zhlong8 兄，昨天谢谢你帮我解决问题。

就是  sub func 里面再次 func ！

qq64878641

sub fun{
  my $num = 0;
  my $temp_num = shift;
  while( $temp_num ){
    $num += $temp_num % 10;
    $temp_num / 10 ;
   }
  if( $num > 9 ){
     $num = fun $num;
}
$num;
}

while( <STDIN>{
  chomp;
  say fun $_;
}





输入
23
24
34
输出
5
6
7
但是 当我输入 39
就报错了：can't call method "fun" without a package or object reference at ****line 12 (也就是  $num = fun $num

zhlong8

定义辅助函数？那样可以用匿名函数 sub { } 这样的，或者全局函数名字以 _ 开头的。不推荐在函数里面定义有名字的函数，因为结果是全局函数。Perl 支持闭包

zhlong8

你这个是在函数里面调用自己，注意你没加括号。并不是所有情况都可以不加括号的。只有在该行代码前声明过的函数才可以不加括号，否则解释器是猜的这里明显猜错了。你可以在函数前加个 sub fun; 的声明，或者加括号

qq64878641

谢谢了 。再次谢谢你。
我要反思下了。h呵呵

zhlong8

回复 7# qq64878641


    这不是反思的问题，Perl 的自由语法导致不少意想不到的问题，或者说代价。你再反思也没办法


    还有你这个叫递归……

x252602848

赞高手