リファレンスについて教えて下さい

質問

KEY　　　　　VALUE
%hResult----RetCode　---- 0
　　　　----Contents　--- \%Hash1

　　　　　　KEY　　　　　VALUE
%Hash1------MainContents--\@ArrayRef1
　　　------List　　　　　\%Hash2

　　　　　　KEY　　　　　VALUE
%Hash2------NAME----------SCALAR1
　　　------TYPE----------SCALAR2

上のようなデータ構造をしている%hResultを
サブルーチンから返却してきます。

%hResult から記述して、
１．ArrayRef1の要素を使用したい
２．SCALAR1,SCALAR2を使用したい

のですが、記述が良く分かりません。
どなたか教えて頂けませんか？

回答No.1

moon_piyo · ベストアンサー

#こんちはっ

%hResult = foo();
sub foo {
my (%Hash, %Hash2,@ArrayRef1);
%Hash1=(MainContents=>\@ArrayRef1, List=>\%Hash2);
%Hash2=(NAME=>'SCALAR1',TYPE=>'SCALAR2');
@ArrayRef1 = ('item1','item2','item3');
(RetCode=>0, Contents=>\%Hash1);
}
ってことですか？

Ans1.
#ArryaRef1[0]
$hResult{Contents}{MainContents}[0];

#@ArrayRef1
@{$hResult{Contents}{MainContents}};

Ans2.
# $Hash2{NAME}
$hResult{Contents}{List}{NAME};
# $Hash2{TYPE}
$hResult{Contents}{List}{TYPE};

という感じ...

お礼

で・き・ま・し・た！！

ありがとうございます。×２００ぐらい

ポインタとか苦手でして、助かりました。
来週一週間が期限のツールを作っていまして、
また何かあったら是非お願い致します。