ハッシュ変数の怪

質問

お世話になります。
ハッシュ変数の扱い方について教えて下さい。

＜最終的にヤリタイコト＞
ブログのRSSを読み込み、そのブログ自体のタイトル（１つ）を表示するプログラムを作成したい。
その為に、以下の様なプログラムを作成しています。

------------------------------------

# 頻繁にRSSを読みに行くのを避けるため、
一時的に$blogfileにRSSファイルを保存しています。
$blogfile="./save/blog.rss";

use XML::RSS;
use LWP::Simple;

# 保存しているRSSデータを解析
$rss = new XML::RSS;
$rss->parsefile($blogfile);

# サイト情報を取得
$bigtitle = $rss->{channel};

# そして、これにつづけて、

print $bigtitle->{title};

とすると、ブログ名がキチンと印刷されます。

しかし、この場ではブログ名を表示させたくはなく、一旦、スカラー変数に、このブログ名を代入しておき、後になってから、スカラー変数に代入されたブログ名をprint文で表示させたいのです。

この場合、例えば、

print $bigtitle->{title};

の代わりに

$blogtitle=$bigtitle->{title};

とやっても、$blogtitleにブログ名は代入されません。

また、$blogtitleをprint文で表示させてみると、

HASH(0x8ddb5d4)

と、いつかどこかで見たような表示になってしまいます。

●ブログ名をスカラー変数に代入する方法をご教授、よろしくお願い致します。（または、上記の方法以外で、とてもカンタンにブログのRSS情報を元に、そのブログ自体のタイトルのみをスカラー変数に代入するperlプログラムがありましたら、教えて下さい）

よろしくお願い致します。

回答No.1

pick52 · ベストアンサー

$blogtitle=$bigtitle->{title};

で代入されませんか。
その場合、代入先の変数宣言が間違っているとかありませんか。
myの場合、宣言しているブロックの外ではアクセスできません。

因みに

HASH(0x8ddb5d4)

のようにでるのはこの変数はハッシュへのリファレンスであることを
指しています。
リファレンスというのはCなどにおけるポインタに非常によく似ている
ものです。
(正確には微妙に異なりますけど)
リファレンス自体はスカラー値です。

参考URL：

http://kabocha.org/jelfe/07/19.html

お礼

pick52様へ

お返事、ありがとうございます。

＞$blogtitle=$bigtitle->{title};
で代入されませんか。

はい。代入されないんです。
なのに、
print $bigtitle->{title};
とやると、ちゃんと、中身が表示されるんです。
で、
print $bigtitle;
とやると
HASH(0x8ddb5d4)
と表示されてしまいます。

で、参考URLありがとうございます。
まずは、こちらをじっくりと読んでみます。
教えてくださり、ありがとうございます！

回答No.2

atom_seed

変数の構造が知りたいときは、Dumperを使うと便利です。

ActivePerlなら、ppm を使って　install Data::Dumper をしてください。

use Data::Dumper;
print Data::Dumper->new( [$bigtitle] )->Indent(1)->Sortkeys(1)->Dump;

お礼

atom_seed様へ
教えていだだきありがとうございます。

＞install Data::Dumper をしてください。

その様なやり方があるのですね。
早速、やってみます。

で、今まで、フツーに、ブログの中の記事タイトル＆記事要約一覧は
スカラー変数に代入できてたので、それと同じやり方で、
そのブログ自体のタイトルを取得しスカラー変数に代入する方法で
とりあえずしのぐことにしました。
具体的には、、、

# XML::TreePPオブジェクトの作成
my $tpp = XML::TreePP->new(
force_array => [ "channel" ],
);

# parsefileメソッドで$blogfileからXMLデータを取得して $tree変数に格納
my $tree = $tpp->parsefile($blogfile);

# [rss] - [channel}] - を $Items変数に格納
$Items = $tree->{rss}->{channel};

foreach my $hash (@$Items){
$bigtitle =$hash->{title};
Encode::from_to($bigtitle,'utf8','sjis');
}

これで$bigtitleに、ブログ自体のタイトルを代入することができたのですが、ブログ自体のタイトル情報たった１つを入手するのに、ここまで大袈裟なことしなくてすむと思い、あれこれやってみたのですが、下記の様な現象が起きるので御相談させていただきました。
（とりあえずは上記の冗長なプログラムを走らせておきます(^_^;)）