Perl中的简单XML操作

Question

I know SO doesn't honor this type of questions, but I have invested a lot of time trying to choose the best XML manipulation library for perl and almost no expample I've found provides a clear understanding on how to insert values and print out the resulting xml to a string variable.

Here is my incoming XML without values:

my $GetLibByNameAndVersionEnvelope = '<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
                                            <s:Body>
                                                <GetLibByNameAndVersion xmlns="LibService">
                                                    <name></name>
                                                    <version></version>
                                                </GetGridLibByNameAndVersion>
                                            </s:Body>
                                        </s:Envelope>';

I need to populate the name and the version nodes with test values. Please provide an example on how can I do this, so in a result, I have a string that containes a required XML.

Answer 1

This is a SOAP request, right?

If it is just this one simple SOAP call that always looks the same, I'd suggest you use a template engine , put in placeholders and don't bother with XML modules at all. That's going to be a lot cheaper.

You can either use something like Text::Template and put the template somewhere in your filesystem (so you can add it to version control) or simply add it to your code in the DATA section or even as a simple string variable. You could of course just put it in as a string like this:

my $ua = LWP::UserAgent->new;
my $res = $ua->post($url, <<"SOAP");
<s:Envelope>
  <s:Body>
    <GetLibByNameAndVersion xmlns="LibService">
      <name>$name</name>
      <version>$version</version>
    </GetGridLibByNameAndVersion>
  </s:Body>
</s:Envelope>
SOAP

That example is not very dynamic and you need to change the code if there are changes to the API. But for a very simple request, this is the quickest way. I feel sometimes this (or a template) is the way to go if you only have one rather simple method in your API.

Answer 2

Update: Did you know that Perl has a whole set of modules specifically to deal with SOAP? This article seems like a good place to start.

XML::Twig has a list of tutorials on their website . I recommend this tutorial , which is old but will definitely cover all of the things you are interested in.

Also, CPAN documentation almost always has good simple examples of how to use a module. XML::Twig 's documentation certainly does . So does XML::Simple .

Here is an article on using XML::Simple .