我是 perl 的新手。我從一個函式回傳一個參考陣列。但是我迷失了我如何回圈資料。
sub whatever{
my %product;
my %resolution;
my @data = ();
push @data, \%product;
push @data, \%resolution;
return @data;
}
在控制子模塊中。
my @results = $whatever($dt_id);
$c->app->log->debug(Dumper(@results));
結果
$VAR1 = {'IOP' => 'IOP'};
$VAR2 = {'4km' => '4km','9km' => '9km'};
我得到了兩個散列，但我如何回圈它們。
uj5u.com熱心網友回復：
分別回傳兩個哈希：
return (\%product, \%resolution);
映射它們：
my ($product, $resolution) = whatever(...);
for my $key (%$product) {
# do something with $product->{$key};
}
uj5u.com熱心網友回復：
嘗試這個：
for my $hash_ref (@results) {
for my $key (keys %$hash_ref) {
say "key '$key' has value '$hash_ref->{$key}'";
}
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/508435.html
下一篇：本機查詢僅在H2資料庫中導致錯誤