4

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

4

2 回答 2

2

我没有安装模块，所以不能很容易地检查，但我认为这是因为该对象是一个 globref；也就是说，一个受祝福的 typeglob 的引用。

这里没有别名。当你写

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

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

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

你以为它在做什么？

于 2012-03-20T23:06:13.833 回答
1

tchrist（一如既往）在正确的轨道上。你可以玩弄一下IO::Socket，看看你能做什么和不能做什么对祝福的类型球的引用。

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 ...
于 2012-03-20T23:21:35.667 回答