perl - 我如何在 Perl 中打印哈希名称？

Question

这是一个简单的问题，但它让我感到难过，谷歌让我误入歧途。我只想打印出哈希的名称。例如:

&my_sub(\%hash_named_bill);

&my_sub(\%hash_named_frank);

sub my_sub{

    my $passed_in_hash = shift;

    # do great stuff with the hash here

    print "You just did great stuff with: ". (insert hash name here);

}

我不知道的部分是如何获取括号中的内容(插入...)。对于嵌套哈希，您可以只使用“keys”标签来获取哈希名称(如果您想这样调用它们)。虽然我不知道如何获取整个哈希名称，但它似乎真的只是另一个 key 。

Answer 1

正如@hackattack 在评论中所说，您的问题的技术答案可以在 Get variable name as string in Perl 的答案中找到。

但是，您应该考虑一下您是否在做正确的事情？

如果您不知何故需要知道散列的名称，您很可能如果将这些多个散列存储到以名称为键的散列中(其中你应该熟悉你在问题中提到的方法)。