XML::Simple を使った Perl での XML 出力(つづき)[Perl]
(2014-10-02 14:03:06) by shinoda

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

#!/usr/bin/perl

use XML::Simple;

my @model = ('ZE91-CHINPOKO', 'ZE44-OMANTAX1', 'ZE90-KEZ00101');

my @price = (23450, 1000, 5820);

my @detail = ('とても素敵なﾗｼﾞｶｾ付きｶﾒﾗ', 'とても素敵なﾚﾝｽﾞ', '');

my $results = [];

for ($i = 0; $i < 3; $i++) {

my $result = {};

$result->{'modelNumber'} = $model[$i];

$result->{'suggestedPrice'} = $price[$i];

$result->{'detailDescription'} = $detail[$i];

push @$results, $result;

}

my $val = {

'resultCode' => 0,

'result' => $results

};

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>とても素敵なﾗｼﾞｶｾ付きｶﾒﾗ</detailDescription>

    <modelNumber>ZE91-CHINPOKO</modelNumber>

    <suggestedPrice>23450</suggestedPrice>

  </result>

  <result>

    <detailDescription>とても素敵なﾚﾝｽﾞ</detailDescription>

    <modelNumber>ZE44-OMANTAX1</modelNumber>

    <suggestedPrice>1000</suggestedPrice>

  </result>

  <result>

    <detailDescription></detailDescription>

    <modelNumber>ZE90-KEZ00101</modelNumber>

    <suggestedPrice>5820</suggestedPrice>

  </result>

  <resultCode>0</resultCode>

</results>

#!/usr/bin/perl

use XML::Simple;

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