1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl -w
# Use DATA_MODE and DATA_INDENT to make data documents easier to read
use strict;
use XML::Writer;
use IO::File;
my $writer = XML::Writer->new(DATA_MODE => 1, DATA_INDENT => 2);
$writer->startTag("doc");
$writer->startTag("x");
$writer->dataElement("y", "Hello, world!");
$writer->dataElement("y", "Hello, world!");
$writer->endTag("x");
$writer->startTag("x");
$writer->dataElement("y", "Hello, world!");
$writer->dataElement("y", "Hello, world!");
$writer->endTag("x");
$writer->endTag("doc");
$writer->end();
|
