in reply to LibXML, XPath and Namespaces
Can I have my bonus points please??
use v5.10; use strict; use warnings; use XML::LibXML; my $xml = XML::LibXML->load_xml(IO => \*DATA); say "The root element's namespace is: ", $xml->documentElement->namespaceURI; # Give that namespace a prefix so that we can reference it in XPath $xml->documentElement->setNamespaceDeclPrefix("", "gt"); say "Look! The new prefix works! Found: ", $xml->findvalue( '//gt:EnvelopeVersion'); __DATA__ <?xml version="1.0"?> <GovTalkMessage xmlns="http://www.govtalk.gov.uk/CM/envelope"> <EnvelopeVersion>2.0</EnvelopeVersion> <Header> <MessageDetails> ..... </MessageDetails> </Header> <GovTalkDetails> ..... </GovTalkDetails> <Body> <!-- A valid Body payload with a namespace declaration on the first el +ement --> </Body> </GovTalkMessage>
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name
|
---|
Replies are listed 'Best First'. | |
---|---|
No bonus points for you :-)
by space_monk (Chaplain) on Mar 22, 2013 at 09:28 UTC | |
by tobyink (Canon) on Mar 22, 2013 at 16:46 UTC | |
by space_monk (Chaplain) on Mar 25, 2013 at 10:07 UTC | |
by ikegami (Patriarch) on Mar 24, 2013 at 07:12 UTC | |
by space_monk (Chaplain) on Mar 25, 2013 at 10:02 UTC | |
by ikegami (Patriarch) on Apr 08, 2013 at 03:30 UTC |
In Section
Seekers of Perl Wisdom