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

Question

有什么方法可以判断散列引用是否指向符号表？

也就是，怎么会有函数

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

知道它是否被调用为

foo( \%main:: )

而不是

foo( \%main )

？

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

Answer 1

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

HvNAME

返回一个存储的包名， 如果 stash 不是 stash，则为 NULL。看 SvSTASH , CvSTASH .

1. char* HvNAME(HV* stash)

Answer 2

您可以查找以 '::' 结尾的键，这表明它有其他包，或者所有值都是符号引用。

• 当然，即使在这里，也很难从仅存储符号的散列中区分一个存储（无论出于何种原因）。我正在研究B::svref_2object，但即使是存储在常规哈希中的隐藏符号也会为$sym->can( 'STASH' ) 返回一些东西。

我认为您可能会做的事情是遍历符号表并查看存储是否指向完全相同的内存位置。

有点像这样：

use Scalar::Util qw<refaddr>;
my %seen;

sub _descend_symtable {
    $calls++;
    my ( $cand, $stash_name ) = @_;
    my $stash = do { no strict 'refs'; \%{ $stash_name }; };
    return if $seen{ refaddr( $stash ) }++;
    return $stash_name if $cand == $stash;

    my $result;
    foreach my $s ( grep { m/::$/ } keys %$stash ) {
        $result = _descend_symtable( $cand, "$stash_name$s" ) 
            and return $result;
    }
    return;
}

sub find_in_symtable { 
    my $needle = shift;
    %seen      = ();
    return _descend_symtable( $needle, 'main::' );
}

表现并不糟糕。