gpt4 book ai didi

arrays - perl 组使用 fetchrow_hashref 生成散列

转载 作者:行者123 更新时间:2023-12-04 01:45:45 26 4
gpt4 key购买 nike

我想使用下面显示的数据按 countryid 对我的结果进行分组。

my @test = ();
my $st = qq[
SELECT id,countryID,abbrev
FROM myTable
];
my $q = $data->prepare($st);
$q->execute() or query_error($st);
while ( my $result = $q->fetchrow_hashref ) {
push @test, $result;
}

使用 fetchrow_hashref 显示结果没有问题

use Data::Dumper;
print STDERR Dumper(\@test);

返回

$VAR1 = [
{ 'id' => '1',
'countryID' => '1',
'title' => 'Title 1',
'abbrev' => 't1'
},
{ 'id' => '2',
'countryID' => '2',
'title' => 'Title 2',
'abbrev' => 't2'
},
{ 'id' => '3',
'countryID' => '3',
'title' => 'Title 3',
'abbrev' => 't3'
},
{ 'id' => '4',
'countryID' => '1',
'title' => 'Title 4',
'abbrev' => 't4'
}
];

我想按国家分组,如下所示。

$VAR1 = [
'countries' => {
'1' => [
{ 'id' => '1',
'title' => 'Title 1',
'abbrev' => 't1'
},
{ 'id' => '4',
'title' => 'Title 4',
'abbrev' => 't4'
}
],
'2' => [
{ 'id' => '2',
'title' => 'Title 2',
'abbrev' => 't2'
}
],
'3' => [
{ 'id' => '3',
'title' => 'Title 3',
'abbrev' => 't3'
}
]
}
];

我怎样才能让它在 while 循环中工作?

最佳答案

忽略样本数据结构中的错误,您基本上是在寻找将散列数组的形式转换为散列数组的散列的散列。设置好初始数据结构后,您可以执行以下操作来创建新的嵌套数据结构:

for my $href ( @test ) {
my $id = $href->{countryID};
delete $href->{countryID};
push @{ $test2->{countries}{$id} }, $href;
}

迭代数组 @test 的每个元素,它基本上是一个散列引用数组。创建一个变量 $id,它将从散列中捕获 countryID 值。我们从散列引用中删除它,然后将该散列引用分配给我们新的嵌套数据结构,该结构将 countries 作为第一级 key$id 作为二级键。

我们使用 push 语法来创建我们的此类引用数组。

注意:thb所述在评论中,这确实破坏了您的原始数据结构。如果您想保留原始结构,请将代码修改为以下内容:

for my $href ( @test ) {
my $copy = { %$href };
my $id = $copy->{countryID};
delete $copy->{countryID};
push @{ $test2->{countries}{$id} }, $copy;
}

关于arrays - perl 组使用 fetchrow_hashref 生成散列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/25840387/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com