XML::Generator loop

hallikpapa has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to generate xml data that will be read by some flash applications and it has to be in a specific format. Here is a sample of what the output should look like.

<chart caption='Monthly Sales Summary' subcaption='For the year 2006' 
+xAxisName='Month' yAxisName='Sales' numberPrefix='$'>
    <set label='January' value='17400' />
    <set label='February' value='19800' />
    <set label='March' value='21800' />
    <set label='April' value='23800' />
    <set label='May' value='29600' />
    <set label='June' value='27600' />
    <set label='July' value='31800' />
    <set label='August' value='39700' />
    <set label='September' value='37800' />
    <set label='October' value='21900' />
    <set label='November' value='32900' />
    <set label='December' value='39800' />
</chart>
[download]

I have been able to successfully get some XML generated. For instance I can do the first line properly, but the problem comes with the loop. It's either I cannot get the syntax right, or it prints the output incorrectly.

    my %xml_hash;
    print $xml->chart({caption => 'Chart Title', subcaption => 'Subtit
+le', xAxisName => 'xAxis', yAxisName => 'yAxis'});
    while ( my $row = $sp->fetchrow_hashref ) {
        push @{ $xml_hash{set} }, $row;
    }
    my $xmlOut = XMLout(\%xml_hash, NoAttr => 1, RootName => 'chart');
    print $xmlOut;
[download]

If run this code, it prints output like this

<chart caption="Chart Title"
       xAxisName="xAxis"
       yAxisName="yAxis"
       subcaption="Subtitle" /><chart>
  <set>
    <label>January</label>
    <value>10622</value>
  </set>
..
...
</chart>
[download]

If I try and put a foreach loop inside the creation of the XML, it gives me syntax errors

print $xml->chart({caption => 'Chart Title', subcaption => 'Subtitle',
+ xAxisName => 'xAxis', yAxisName => 'yAxis'},
foreach my $key ( sort keys %hash) {
    my ( $date, $cust ) = split( /:/, $key );
    $xml->data({set => },['set'], $hash{$key}[2]);
});
[download]

Any ideas on how to proceed? Thanks!

Comment on XML::Generator loop Select or Download Code

Replies are listed 'Best First'.

Re: XML::Generator loop
by GrandFather (Saint) on Mar 31, 2008 at 00:41 UTC

XML::Simple is not simple! In this case it may be better to hand roll the inner block of XML that is causing you grief. Something based on the following perhaps?

use warnings;
use strict;

my @rows = (
    {label=>'January', value=>'17400'},
    #...
    {label=>'December', value=>'39800'},
    );

print "<set label='$_->{label}' value='$_->{value}' />\n" for @rows;
[download]

Prints:

<set label='January' value='17400' />
<set label='December' value='39800' />
[download]

If you need entity handling or other XML generation help then you would be better to use one of the modules designed for generating XML such as XML::Writer.

Perl is environmentally friendly - it saves trees

[reply]
[d/l]
[select]

Re: XML::Generator loop
by pc88mxer (Vicar) on Mar 31, 2008 at 00:46 UTC

XML::Generator

use XML::Generator;

my $xml = new XML::Generator;
my @list;

while (<DATA>) {
  chomp;
  my ($m, $d) = split(' ', $_);
  push(@list, $xml->set( { label => $m, value => $d }));
}
print $xml->chart({ caption => 'Chart Title', subcaption => 'Subtitle'
+ }, @list);
__END__
January 17400
February 19800
March 21800
April 23800
May 29600
June 27600
July 31800
August 39700
September 37800
October 21900
November 32900
December 39800
[download]

XML::Simple

XML::Generator

[reply]
[d/l]
[select]

Re: XML::Generator loop
by Cody Pendant (Prior) on Mar 31, 2008 at 02:51 UTC

From the POD: "When used with XMLout(), the generated XML will contain no attributes. All hash key/values will be represented as nested elements instead."

Nobody says perl looks like line-noise any more
kids today don't know what line-noise IS ...

[reply]

Re: XML::Generator loop
by Jenda (Abbot) on Mar 31, 2008 at 17:45 UTC

use strict;
use XML::Rules;

my $parser =XML::Rules->new(rules =>[]);

my @list;
while (<DATA>) {
  chomp;
  my ($m, $d) = split(' ', $_);
  push(@list, { label => $m, value => $d });
}

print $parser->ToXML(
    chart => {
        caption => 'Monthly Sales Summary',
        subcaption => 'For the year 2006',
        xAxisName => 'Month',
        yAxisName => 'Sales',
        numberPrefix => '$',
        set => \@list,
    },
    0, '  '
)

__END__
January 17400
February 19800
March 21800
April 23800
May 29600
June 27600
July 31800
August 39700
September 37800
October 21900
November 32900
December 39800
[download]

The XML::Rules->ToXML() converts (or tries to convert) a datastructure to XML using attributes whenever possible and subtags in other cases. In this case the hash of data for <chart> contain set => \@array,, since attributes cannot be repeated, the set must be a subtag and be repeated. The last two parameters to ->ToXML are there just to add the formatting.

Jenda
Support Denmark!
Defend the free world!

[reply]
[d/l]
[select]


Welcome to the Monastery
	PerlMonks