use XML::LibXML ;
use strict;
use warnings;
{
my $xml = <<'XML';
Hello world!
XML
my $parser = XML::LibXML->new;
my $doc = $parser->parse_string($xml);
my $result = $doc->findvalue('//lastName');
print $result;
}
{
my $xml = <<'XML';
Hello world!
XML
my $parser = XML::LibXML->new;
my $doc = $parser->parse_string($xml);
my $result = $doc->findvalue('//lastName');
print $result ;
}
####
use XML::LibXML;
use XML::LibXML::XPathContext;
{
my $xml = <<'XML';
Hello world!
XML
my $parser = XML::LibXML->new;
my $doc = $parser->parse_string($xml);
my $xc = XML::LibXML::XPathContext->new($doc);
$xc->registerNs('sdnList', 'http://tempuri.org/sdnList.xsd');
my $result = $xc->findvalue('//sdnList:lastName');
is( $result, "Hello world!", "Namespace" );
}
##
##
##
##