関数でxml::simpleが使えない。

質問

AWSがらみで以下のようなことがしたいです。

---------------
my $url = 'amazon web service RESTのURL';

my %XMLtree = xmlget($url);

sub xmlget{
my $url = shift;

my $content = LWP::Simple::get($url);

#xml->hash変換
my $xs = new XML::Simple();
my $XMLtree = $xs->XMLin($content);

return $XMLtree;
}
-----------------------

しかしハッシュを関数の引数や返り値にすると上手く動きませんでした。
そこでreturnで値を渡さずに、globalで%XMLtreeを宣言してXMLinの値を代入しようとしたのですがうまくいきません。

他にもリファレンスを渡してみたりしたのですが上手くいきません。

よく考えたら$XMLtreeはハッシュのリファレンスの塊なので、トップのアドレスを渡しても、関数を抜けてしまえば実体は消えます。（ですよね？）

ハッシュのリファレンスの塊である$XMltreeを関数から外側に渡すにはどうすればいいでしょうか？

それとも全く別の問題なのでしょうか？

回答No.1

BLUEPIXY · ベストアンサー

return $XMLtree;
は、リファレンスを返しているので
my $XMLtree = xmlget($url);
で受けて、リファレンスとして操作すればいいです。
＞関数を抜けてしまえば実体は消えます。（ですよね？）
Perlの場合、参照している変数がある限り実体は消えません。
この場合、return したリファレンスを参照している変数（つまり返した値を代入している変数）が生きている限り大丈夫です。
変数の内容が良くわからない場合
use Data::Dumper;
print Dumper(変数);
するといいと思います。

お礼

ありがとうございました。解決しました。

原因はmainの受ける側で定義しているハッシュのリファレンスの変数を%で定義していたために奇妙なことになってしまいました。

１．参照している変数が有る限り残っている
２．Data::Dumper

これらが非常に参考になりました。ありがとうございました。