数组 – Perl：从数组创建哈希

发布时间：2020-12-16 06:11:40 所属栏目：大数据来源：网络整理

导读：如果我有以下数组 my @header_line = ('id','name','age'); 如何从它创建一个等价于下面一行的哈希？ my %fields = { id = 0,name = 1,age = 2}; 我想这样做的原因是我可以使用有意义的名称而不是魔法数字作为索引.例如： $row-[$fields{age}]; # rather tha

如果我有以下数组

my @header_line = ('id','name','age');

如何从它创建一个等价于下面一行的哈希？

my %fields = { id => 0,name => 1,age => 2};

我想这样做的原因是我可以使用有意义的名称而不是魔法数字作为索引.例如：

$row->[$fields{age}]; # rather than $row->[2]

解决方法

my %fields;
@fields{@header_line} = (0 .. $#header_line);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!