Question

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之前的版本并不熟悉，但我无法确定在LHS上使用*的重要原因。不仅仅*$self->{ssl_peer_port} = $arg->{PeerPort};足够吗？或者，这里有什么深刻的东西（例如local $_与local *_）？

Answer 1

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

这里没有混叠。当你写

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

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

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

你认为它在做什么？

Answer 2

tchrist（一如既往）走在正确的轨道上。您可以使用IO::Socket进行游戏，看看您能够做什么，不能做什么来参考祝福的typeglobs。

use IO::Socket;
$foo = IO::Socket->new;

print $foo;                      # IO::Socket=GLOB(0x20467b18)
print *$foo;                     # *Symbol::GEN0
print ref($foo);                 # IO::Socket
print ref(*$foo);                # ""

*$foo->{key} = value;            # ok
$$foo->{key} = value;            # ok
$foo->{key} = value;             # Not a HASH reference at ...

为什么Net :: SSL中的代码解除引用typeglobs，我看不到需要？

2 个答案: