perl xml解析について

perl初心者です。
以下のxmlデータの「http://www.google.co.jp」をxml解析して値を取得したいのですが、
どのようなプログラムを記述すればよろしいのでしょうか？

<?xml version="1.0" encoding="x-sjis-cp932" ?>
<Res_result>
<result result="1" />
<result redirect="http://www.google.co.jp" />
</Res_result>

いろいろ試してみましたが、どうもうまくいきません。

ちなみにサーバーにインストールされているxml関連のモジュールが
XML::Simple
XML::Parser
となります。

ご教授の方、宜しくお願い致します。

No.1 ベストアンサー 回答者： poppo64 回答日時： 2011/07/26 15:25

一応、下記のコードで取り出すことができます。

# モジュールを読み込む
use XML::Simple;

# 一旦、XMLを $xml に読み込む
my $xml_file = 'result.xml';
open my($fh), '<', $xml_file;
my $xml = join('',<$fh>);

# x-sjis-cp932 があると解析に失敗するので、
# <?xml version="1.0" encoding="x-sjis-cp932" ?> を削除
# XML を UTF-8 で書くと下記の処理はいらない。
$xml =~ s/<\?.*\?>//;

# XML::Simple を使い、$ref にリファレンスのツリーとして解析する
my $x = XML::Simple->new(); # パーサを作成
my $ref = $x->XMLin($xml);

# 必要なデータを出力
print $ref->{result}->[1]->{redirect};

XML::Simple はこの例のように単純な構造のXMLを Perl 的な変数のツリーに変換するモジュールです。
少なくとも Perl のリファレンスをある程度理解していないと何をしているかわからないと思います。

最後の行の「$ref->{result}->[1]->{redirect}」が何を意味しているのか分からないようでしたら、まずリファレンスを学習し、XML::Simple の説明を読むとよいと思います（参照URL）。

参考URL：http://d.hatena.ne.jp/perlcodesample/20100424/12 …