Perl--函数引用

最新推荐文章于 2024-07-19 23:41:15 发布

scan724

最新推荐文章于 2024-07-19 23:41:15 发布

阅读量2.4k

点赞数

分类专栏： Perl 大骆驼

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/41966797

版权

Perl 大骆驼专栏收录该内容

72 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了Perl中如何创建和使用函数引用。通过`$ref=&func`来获取函数引用，而不是执行函数。内容展示了如何引用一个返回另一个函数的子例程，并通过`&$ref`或`$ref->()`来调用引用的函数。示例代码演示了如何打印和多次调用引用的函数。

摘要由CSDN通过智能技术生成

函数的引用：       $ref=\&func;   (func的定义在其他位置)，不要()，当\&func()时为执行函数，返回值再引用。

当\&func()时为执行函数，返回值再引用。

[oracle@jhoa 3]$ cat 3.pl 
sub generate_greeting { my($greeting) = "hello world"; 
return sub {print $greeting;print "goodbye"}; }
##引用
 $rs = generate_greeting();
print "\$rs is $rs\n";
##使用函数
 &$rs; 

[oracle@jhoa 3]$ perl 3.pl 
$rs is CODE(0x61c52a0)
hello worldgoodbye[oracle@jhoa 3]$ 


引用的使用；

简单变量：$$ref  ${$ref}
数组：@$ref @{$ref};  元素：$$ref[0]    $ref->[0];

散列：%$ref  %{$ref};   元素：$$ref{‘a’} $ref->{‘a’};

函数：&$ref(a,b);   $ref->(a,b)

文件：$ref

函数的引用：       $ref=\&func;

了解本专栏