Perl   发布时间:2022-04-04  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了perl – 为什么$foo – > {bar} autovivify但%$foo不?大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
我有以下代码:
$headers;
some_sub( %$headers );

当我调用some_sub时,我收到一个错误:

但类似的代码不会产生错误:

$headers->{ x };

为什么自动复制在第一个示例中的工作方式与在第二个示例中的工作方式不同?

UPD

我注意到@ThisSuitIsBlackNot.我真的问:

UPD
真正的代码:

@H_303_2@my $email = Email::Simple->create((),header => [(),To => $address,From => $cnf->{ from },Subject => $subject,'Content-Type' => 'text/html; charset="utf8"',%$headers ],body => $body );

解决方法

更新代码中添加的代码解释了为什么不会发生自动更新.

你的sub采用一个列表(哈希),它有一个匿名数组作为元素 – %$headers隐藏在该数组中.这是anon数组
这是标量别名,因此不需要%$标题可修改.因此,不会发生自动生成,并且您将获得下面描述的致命运行时错误,因为尝试对未定义的引用进行解除引用.

在左值上下文中使用时,%$ref会自动生成.这可能发生在子呼叫中,见下文.

您显示的错误是由于使用了未定义的引用.例如,声明

@H_303_2@my %hash = %{ $ref };

尝试从存储在$ref中的内存位置复制哈希并将其分配给%hash.符号%hash是在编译时创建的,但如果在$ref中找不到散列或者$ref中没有任何内容,则会出现错误.这里没有自动生成.使用严格有效

perl -wE'use Strict; my $h; my %h = %$h; say $h'

这会引发致命的运行时错误

Can't use an undefined value as a HASH reference at -e line 1.

当评估生存时

perl -wE'use Strict; my $h; my %h = eval { %$h }; say $h; say "hi"'

它打印一个关于“未初始化的值”的警告,一个空行,然后你好.没有哈希.

但是,当在子例程调用中用作参数时,它会自动生

perl -wE'use Strict; sub tt { 1 }; my $h; tt( %$h ); say $h'

因为这会打印行HASH(0x257cd48),没有警告或错误.

当在左值上下文中使用解除引用的对象时,会发生自动生成,这意味着它需要是可修改的.在子例程调用中,原因是函数的参数在@_中有别名,因此必须可以修改它们.相同的别名需要使它在foreach循环中发生,而键重置散列迭代器.见this postthis postthis post.

感谢ThisSuitIsBlackNot的解释和链接.

你的情况下,%$ref作为匿名数组的元素传递,因此没有别名(arrayref本身是).所以autvivication没有启动,你得到了这个错误.

perlglossary起自动化

另请参阅,例如,article from Effective Pearler

大佬总结

以上是大佬教程为你收集整理的perl – 为什么$foo – > {bar} autovivify但%$foo不?全部内容,希望文章能够帮你解决perl – 为什么$foo – > {bar} autovivify但%$foo不?所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。