返回返回标值

Question

我想弄清楚究竟是什么在这个简单的语句正在处理一个匿名函数：

sub testReturn { 
    return sub { 
     my $val = shift; 
     return $val; 
    } 
} 

时

my $num = testReturn(1); 
print $num; 

被调用时，它输出：

CODE(0x9c63b34) 

当我试图让它只返回1的值。谢谢。

Answer 1

您的函数返回另一个函数作为匿名代码块。 你可以调用代码来为你做一些事情，如：

my $anonsub = testReturn(); # $anonsub is CODE object 
my $num = &$anonsub(1);  # here this code is called 
print $num;