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

前端之家收集整理的这篇文章主要介绍了数组 – Perl:从数组创建哈希前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
如果我有以下数组

@H_502_8@

@H_502_8@

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

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

@H_502_8@

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

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

@H_502_8@

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

解决方法

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

猜你在找的Perl相关文章