代码之家 › 专栏 › 技术社区 › Colin R. Turner

如何使用变量名引用哈希?

hashref hash perl

Colin R. Turner · 技术社区 · 7 年前

my %TEXT1 = (1 => 'Hello World',);
my %TEXT2 = (1 => 'Hello Mars',);
my %TEXT3 = (1 => 'Hello Venus',);

my $hash_name = 'TEXT1';

my $hash_ref = \%$hash_name;
print ${$hash_ref}{1};  #prints nothing

3 回复 | 直到 7 年前

mob 7 年前

%TEXT = (1 => abc, 42 => def);
$name = 'TEXT';
print ref($name);         #  ""
no strict 'refs';
print ${$name}{1};        #  "abc"
print $name->{42}         #  "def"
$ref = \%$name;
print ref($ref);          #  "HASH"
print $ref->{1};          #  "abc"
print ${$ref}{42};        #  "def"

你做错的主要事情是 making your code an unmaintainable mess 这就是为什么这种事情在 use strict 'refs' .

*-除非你正在跑步 使用严格的“refs” ,你应该是

shawnhcorey 7 年前

使用哈希来包含哈希。

my %texts = (
    TEXT1 => { 1 => 'Hello world', },
    TEXT2 => { 1 => 'Hello Mars', },
    TEXT3 => { 1 => 'Hello Venus', },
)

my $hash_name = 'TEXT1';

print $texts{$hash_name}{1}, "\n";

James E Keenan 7 年前

以下代码是对标量的赋值,而不是对哈希的赋值:

my $hash_name = 'TEXT';

以下代码是哈希的赋值:

my %hash = ( alpha => 'beta', gamma => 'delta' );

print $hash{alpha}, "\n";

您可以引用该哈希并将其分配给变量:

my $hashref = \%hash;

从中可以打印该hashref中的单个元素:

print $hashref->{alpha}, "\n";

推荐文章

Anony Mous · Python内置的哈希方法可靠且安全吗?[已关闭]

2 年前

Jahongir Rahmonov · 计算文件的校验和

7 年前

Lev Knoblock · 类哈希函数

7 年前

Sazzad Hissain Khan · 算法-在二维矩阵中搜索

7 年前

Asur · 如何在PHP中同时使用多种算法对文件进行哈希?

7 年前

random-user · 如何证明哈希函数h(x)=x²mod 4只产生0和1

7 年前

OofYeetMcGee · 实现PBKDF2

7 年前

yibs · 如何在Perl中计算csv中具有相同id的项目数

7 年前

Jeremiah Williams · 目录之间的PowerShell ForEach哈希比较

7 年前

xskxzr · 为什么std::unordered\u set会重新刷新,即使负载系数限制没有打破?

7 年前