Okay -- I've looked at the attachment -- remember when I mentioned
namespaces a while back? This document uses one, so things get more
complicated.
The solution I always use for this is to put the root element into an
XPath Context object and assign a prefix for the default namespace (I
want oh-so-much to believe there's an easier solution than this, but I
found this one late at night some years ago and have stuck with it ever
since)
This code will do what you want:
#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML;
use XML::LibXML::XPathContext;
my $XML = '/tmp/carrerabuild1.proj';
# this loads the XML document, then passes the root element into the
# XPathContext constructor -- perldoc XML::LibXML::XPathContext
my $document =
XML::LibXML::XPathContext->new(XML::LibXML->load_xml(location =>
$XML)->documentElement);
# this adds a prefix to the default namespace from your document so we
# can "find" its elements
$document->registerNs(p =>
'http://schemas.microsoft.com/developer/msbuild/2003');
my @include = map $_->value(),
$document->findnodes('//p:ItemGroup/p:BuildProject/@Include');
use Data::Dumper;
print Data::Dumper->Dump([\@include],[qw/*include/]);
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
