perl - 如何区分符号表和常规哈希变量？

Question

有什么方法可以判断哈希引用是否指的是符号表？

也就是说，函数怎么可能

sub foo {
    my ($hashref) = @_;
    ...
}

知道它是否被调用为

foo( \%main:: )

而不是

foo( \%main )

?

该应用程序是一个函数，有时 tie的哈希变量，但我想避免尝试绑定(bind)符号表。

Answer 1

看起来这可以通过 C API 使用 HvNAME 完成。 .以下来自perlapi :

HvNAME

Returns the package name of a stash, or NULL if stash isn't a stash. See SvSTASH , CvSTASH .

1. char* HvNAME(HV* stash)