perl – 为什么Net :: SSL中的代码解除引用typeglobs,我看不到需

发布时间：2020-12-16 06:15:09 所属栏目：大数据来源：网络整理

导读：Net :: SSL是Crypt :: SSLeay的一部分.在今天处理一个错误报告时,我被这个可怜的老人出现多少次而分心. 例如,考虑Net :: SSL :: configure： *$self-{ssl_version} = $ssl_version;*$self-{ssl_debug} = $ssl_debug;*$self-{ssl_arg} = $arg;*$self-{ssl_pee

Net :: SSL是Crypt :: SSLeay的一部分.在今天处理一个错误报告时,我被这个可怜的老人出现多少次而分心.

例如,考虑Net :: SSL :: configure：

*$self->{ssl_version} = $ssl_version;
*$self->{ssl_debug} = $ssl_debug;
*$self->{ssl_arg} = $arg;
*$self->{ssl_peer_addr} = $arg->{PeerAddr};
*$self->{ssl_peer_port} = $arg->{PeerPort};

也许是因为我不熟悉5.8 Prel,但我无法确定在LHS上使用*是否有重要原因.不仅仅是* $self-> {ssl_peer_port} = $arg-> {PeerPort};够了吗？或者,这里有什么深刻的东西(例如本地$_与本地* _)？

解决方法

我没有安装模块,所以不能轻易检查,但我认为这是因为对象是一个globref;也就是说,提到了祝福的类型.

这里没有混叠.当你写作

*$self->{ssl_debug} = $ssl_debug;

它首先将globref变回一个完整的类型.然后它只抓取typeglob的hashref方面并继续取消引用它.

这不是5.8之前或之后的事情.

你觉得它在做什么？

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!