The module that will do you for today, tomorrow and many days after that for processing XML is XML::Twig. Consider:

use warnings;
use strict;
use XML::Twig;

my $xml = <<XML;
<?xml version="1.0" encoding="utf-8"?>
<string xmlns="test.test.com/site/TST/">someresult</string>
XML

my $twig = XML::Twig->new (twig_roots => {string => \&pullString});

$twig->parse ($xml);


sub pullString {
    my ($t, $elt) = @_;
    
    print $elt->text (), "\n"
}
[download]

Prints:

someresult
[download]

Thank you everyone! I had a regex that was parsing it down to >someresult<, but that was as far as I could get. This is much better!

If you're not perlaphobic, this print $xml =~ m[">([^<]+)</string>]sm; will do the job just as reliably as the other possibilities.

Would it?

<string>Everyone knows that 1 &lt; 2</string>
[download]

Jenda


Support Denmark! Defend the free world!

Yes.

$xml = '<string>Everyone knows that 1 &lt; 2</string>';;
print $xml =~ m[>([^<]+)</string>]sm;;
Everyone knows that 1 &lt; 2
[download]

From the spec:

The ampersand character (&) and the left angle bracket (<) MUST NOT appear in their literal form, except when used as markup delimiters, or within a comment, a processing instruction, or a CDATA section. If they are needed elsewhere, they MUST be escaped using either numeric character references or the strings "&" and "<" respectively.

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."