配列をハッシュに格納する

Question

だから、これはうまくいきません。理由はわかりません。私はあらゆる可能なバリエーションを試しました。しかし、何も動作しません。私は自分のサーバーにチェーンソーを取る準備ができてんだけど、うまくいけば、あなたはそれを防ぐことができます。

sub getQuestMarkers { 
    #database stuff 
    ... 
    my %package; 
    while(my ($key, $lat, $lng) = $sth->fetchrow_array()) { 
    $package{$key} = ($lat,$lng); 
    } 

    ... 
    return %package; 
} 

my %markers = getQuestMarkers(); 
while(my($key, $value) = each %markers) { 
    print "$key: @value - $value[0] $value[1]\n"; 
} 

Answer 1

使用ブラケット[ ]配列リファレンスを作成するには、いない括弧()。

書かれているように、コードでは最初の値$latが破棄されます。それは、代わりにこのように書く：

$package{$key} = [$lat,$lng]; 

あなたはこのような値引き出すことができます：あなたのコードで

my ($lat,$lng) = @{ $package{$key} }; 

を、あなたがそれらを逆参照して値をプリントアウトできます。

print "$key: " . $value->[0] . " " . $value->[1] . "\n"; 

をperldoc perlreftutをご覧ください。