Perl Cd Bookshelf [Electronic resources] نسخه متنی

22.10.1. Problem

The XMLout function takes a data structure and
produces XML from it. For example, here's how to generate part of the
book data:

#!/usr/bin/perl -w
use XML::Simple qw(XMLout);
$ds = {
book => [
{
id => 1,
title => [ "Programming Perl" ],
edition => [ 3 ],
},
{
id => 2,
title => [ "Perl & LWP" ],
edition => [ 1 ],
},
{
id => 3,
title => [ "Anonymous Perl" ],
edition => [ 1 ],
},
]
};
print XMLout($ds, RootName => "books" );

This produces:

<books>
<book id="1">
<edition>3</edition>
<title>Programming Perl</title>
</book>
<book id="2">
<edition>1</edition>
<title>Perl &amp; </title
</book>
<book id="3">
<edition>1</edition>
<title>Anonymous Perl</title>
</book>
</books>

The rule is: if you want something to be text data, rather than an
attribute value, put it in an array. Notice how we used the
RootName option to XMLout to
specify that books is the top-level element. Pass
undef or the empty string to generate an XML
fragment with no top-level fragment. The default value is
opt.

The id entry in each hash became an attribute
because the default behavior of XMLout is to do
this for the id, key, and
name fields. Prevent this with:

XMLout($ds, RootName => "books", KeyAttr => [ ]);