Re: xml parsing

[Lawrence Statton]

On 08/16/2012 07:46 AM, Irfan Sayed wrote:


can you please give me sample code to store the xml contents to perl array
using LibXML

lets say xml files is as :


  <ItemGroup>

     <BuildProject Include="AssemblyInfo.csproj" />
     <BuildProject Include="Assembly.csproj" />

   </ItemGroup>

regards
irfan


I'm going to assume what you wanbt is the list of Included filenames...

#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML;

my $XML = <<';';
 <ItemGroup>

    <BuildProject Include="AssemblyInfo.csproj" />
    <BuildProject Include="Assembly.csproj" />

  </ItemGroup>
;

my $document = XML::LibXML->load_xml(string => $XML);

my @include = map $_->findvalue('@Include'), 
$document->documentElement->findnodes('/ItemGroup/BuildProject');

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/