为什么这个anon子例程声明在Perl中被解析为间接对象方法?
发布时间:2020-12-15 22:03:50 所属栏目:大数据 来源:网络整理
导读:在以下匿名子例程声明中,Perl似乎将其解析为间接方法调用,而不是作为子例程: use 5.010;use strict;use warnings;sub proxy { my $new = shift; say "creating proxy: $new"; sub :lvalue { say "running proxy: $new"; tie my $ret,'Some::Package',shift,
在以下匿名子例程声明中,Perl似乎将其解析为间接方法调用,而不是作为子例程:
use 5.010; use strict; use warnings; sub proxy { my $new = shift; say "creating proxy: $new"; sub :lvalue { say "running proxy: $new"; tie my $ret,'Some::Package',shift,$new; $ret } } say "before"; my $p1 = proxy '_value'; say "p1 declared: $p1"; my $p2 = proxy 'value'; say "p2 declared: $p2"; 打印: before creating proxy: _value running proxy: _value Can't locate object method "TIESCALAR" via package "Some::Package" ... 如果返回或我的$sub =添加在sub:lvalue {…之前,一切正常工作,它打印: before creating proxy: _value p1 declared: CODE(0x4c7e6c) creating proxy: value p2 declared: CODE(0x1ea85e4) 如果从子例程中删除:lvalue属性(但当然会更改功能),它也可以工作. 所以我的问题是为什么会发生这种情况?这是Perl中有关匿名子程序中的属性的错误吗?是由于某种原因预期的行为吗?如果是错误,是否注册? 解决方法
因为一个语句的开始是找到一个goto标签的有效位置,所以后面跟着一个冒号标记的bareword子句被解析为标签sub :,其后跟lvalue BLOCK,它被解析为间接对象语法.
如果强制解析器通过执行return sub:lvalue {…}或我的$foo = sub:lvalue {…}来查找术语,则会按预期解析. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |