XML::Simple を使った Perl での XML 出力 : 電気ｳﾅｷﾞ的○○ mobile ver.

XML::Simple を使った Perl での XML 出力[Perl]
(2014-10-02 06:15:18) by shinoda

< ﾍﾟｰｼﾞ移動: 1 2 >

久しぶりに Perl で XML ﾌｧｲﾙを扱うのでﾒﾓ｡

例えば問い合わせに対して商品ﾃﾞｰﾀを XML ﾃﾞｰﾀで返す｡

#!/usr/bin/perl

use XML::Simple;

my $val = {
'resultCode' => 0,
'result' => {
'modelNumber' => 'ZE91-CHINPOKO',
'suggestedPrice' => 234500,
'detailDescription' => 'とても素敵なﾗｼﾞｶｾ付きｶﾒﾗ',
}
};

my $x = new XML::Simple;
my $xml = $x->XMLout($val, RootName => 'results', NoAttr=>1);
print qq(<?xml version="1.0" encoding="UTF-8" ?>\n);
print $xml

この出力結果が､

<?xml version="1.0" encoding="UTF-8" ?>
<results>
<result>
<detailDescription>とても素敵なﾗｼﾞｶｾ付きｶﾒﾗ</Detail description>
<modelNumber>ZE91-CHINPOKO</modelNumber>
<suggestedPrice>234500</suggestedPrice>
</result>
<resultCode>0</resultCode>
</results>

あれ?<result></result>間の項目の並びが ABC 順にｿｰﾄされてるなあ｡

そういう仕様だっけ?まあ､ﾃﾞｰﾀ上は何の問題も無いが｡

2商品を返すなら､

#!/usr/bin/perl

use XML::Simple;

my $val = {
'resultCode' => 0,
'result' => [
{
'modelNumber' => 'ZE91-CHINPOKO',
'suggestedPrice' => 234500,
'detailDescription' => 'とても素敵なﾗｼﾞｶｾ付きｶﾒﾗ',
},
{
'modelNumber' => 'ZE94-OMEFERR',
'suggestedPrice' => 1800,
'detailDescription' => 'これは一度試してみた方が良い',
},
]
};

my $x = new XML::Simple;
my $xml = $x->XMLout($val, RootName => 'results', NoAttr=>1);
print qq(<?xml version="1.0" encoding="UTF-8" ?>\n);
print $xml

で､出力結果がこうなる｡

< ﾍﾟｰｼﾞ移動: 1 2 >

ｺﾒﾝﾄ投稿

次の記事へ >
< 前の記事へ
TOPへ戻る

XML::Simple を使った Perl での XML 出力[Perl] (2014-10-02 06:15:18) by shinoda

XML::Simple を使った Perl での XML 出力[Perl]
(2014-10-02 06:15:18) by shinoda