关于perl闭包(个人理解)
Posted FireC@t @ Perl6
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了关于perl闭包(个人理解)相关的知识,希望对你有一定的参考价值。
我个人理解,就是当一个变量超出作用域时,应是消失了,不见了的,但你还能访问它,这就是闭包。
#
#看下面的例子。
#!/usr/bin/env perl -w use strict; { my $value = \'abc\'; } print $value;
如果如下:
因为{}超出后,$value不存在了,所以print变成打印一个未定义的变量,会出错。
再来看一个例子:
1 #!/usr/bin/env perl -w 2 use strict; 3 sub function_1{ 4 my $value = \'abc\'; 5 my $in_function_1 = sub{print "$value\\n";}; 6 return $in_function_1 7 } 8 9 my $value = function_1; 10 $value->();
结果如下:
#
可以看到,这个$value应是不存在了的,但还能访问他,这种情况就称为”闭包”。
#
#
可能你会想说,这个不就是return返回给他了吗,因为第一个例子并不返回$value, 所以不能打印?!
#
个人看法:
对于第一个例子,如果你直接返回$value的话,他的值是返回了,但这个值虽相同,即不是同一个变量了。
而对于第二个例子,他访问的$value从头到尾都是它自身。(但内部,可能会自动创建变量的副本)
#
#
这里引用一句 “perl语言编程的” 的话:
表示某个特定时刻在一个特定的词法作用域中定义一个匿名函数时,它会假装在这个作用域中运行,
尽管之后可能在这个作用域之外调用(但它不是假装,它确实会在那个作用域中运行),就称为“闭包“。
#
#
个人建议按常规函数去理解就行,别 “太” 在意”闭包“ 这两个字。
以上是关于关于perl闭包(个人理解)的主要内容,如果未能解决你的问题,请参考以下文章