| Current Path : /usr/share/doc/perl-XML-Writer/examples/ |
| Current File : //usr/share/doc/perl-XML-Writer/examples/xml-writer-string.pl |
#!/usr/bin/perl -w
# Write to a string, then print the output
use strict;
use XML::Writer;
my $s;
my $w = XML::Writer->new(OUTPUT => \$s);
$w->startTag('doc');
$w->characters('text');
$w->endTag('doc');
$w->end();
# Print the string contents
print $s