This seems to work for me:
use strict;
use XML::LibXML;
my $xml =<<'EOM';
<?xml version="1.0" encoding="ISO-8859-1" ?>
<form>
<method>POST</method>
<action>/cgi/process.cgi</action>
<input>
<type>text</type>
<name>name1</name>
<required>0</required>
<value></value>
<comment>This field is not required.</comment>
</input>
<input>
<type>text</type>
<name>name3</name>
<required>1</required>
<value></value>
<comment>Put three words here!</comment>
<test>
my @tmp = split(/\ /, shift());
return 1 if ( $#tmp == 2 );
return 0;
</test>
</input>
</form>
EOM
my $parser = XML::LibXML->new();
my $dom = $parser->parse_string( $xml );
my $info = $dom->createElement( 'info' );
my $failure = $dom->createElement( 'failure' );
my $reason = $dom->createTextNode( 'blah' );
$failure->appendChild( $reason );
$info->appendChild( $failure );
my $form = $dom->getDocumentElement;
$form->appendChild( $info );
print $dom->toString;
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|