私は、データベースで複数の行として取得しているPerlの配列の次の配列を持っています。
$arrayref = [
[ 1, "name1", "name2" ],
[ 2, "name3", undef ],
[ 3, "name5", "name6" ],
[ 4, "name10", undef ],
];
このようなハッシュの配列としてこれを作りたい
my @array = (
{ id => 1, name => "name1", l_name => "name2" },
{ id => 2, name => "name3", l_name => undef },
{ id => 3, name => "name5", l_name => "name6" },
{ id => 4, name => "name10", l_name => undef },
);
map {}配列参照をハッシュ参照に変換するために使用できます。
my @cols = qw(id name l_name);
my @array = map { my %h; @h{@cols} = @$_; \%h } @$arrayref;
または
use List::MoreUtils qw( zip );
my @cols = qw(id name l_name);
my @array = zip(\@cols, @$arrayref);
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加