http://www.perlmonks.org?node_id=802830


in reply to XML::Twig n00b

#!/usr/bin/perl -- use strict; use warnings; use XML::Twig; my $xml = <<'__XML__'; <?xml version="1.0" encoding="UTF-8"?> <authenticationReports> <generatedTime>Tue Sep 29 07:07:34 PDT 2009</generatedTime> <appDeploymentFile name="app-deployment.properties.hklcp.trading"> <application name="hk"> <urlInfo> <url>e/t/hk/accts_subscription</url> <otherPrereq>HKPwdPreReq</otherPrereq> </urlInfo> <urlInfo> <url>e/t/hk/accts_forms</url> <otherPrereq>HKPwdPreReq</otherPrereq> </urlInfo> <urlInfo> <url>e/t/hk/custtradingpage</url> <otherPrereq>BasicPrereq</otherPrereq> </urlInfo> <urlInfo> <url>e/t/hk/accts_userinfo</url> <otherPrereq>HKPwdPreReq</otherPrereq> </urlInfo> <urlInfo> <url>e/t/hk/headermain</url> </urlInfo> <urlInfo> <url>e/t/hk/custservicepage</url> </urlInfo> <urlInfo> <url>e/t/hk/accts_transfermoney</url> <otherPrereq>HKPwdPreReq</otherPrereq> </urlInfo> <urlInfo> <url>e/t/hk/userprereq</url> </urlInfo> <urlInfo> <url>e/t/hk/indices_us</url> </urlInfo> <urlInfo> <url>e/t/hk/homeloggedmessage</url> </urlInfo> <urlInfo> <url>e/t/hk/lead</url> </urlInfo> <urlInfo> <url>e/t/hk/orderviewmin</url> </urlInfo> <urlInfo> <url>e/t/hk/accts_changelogin</url> <otherPrereq>SessionPreReq</otherPrereq> </urlInfo> </application> <application name="intl"> <urlInfo> <url>e/t/intl/quotesandresearch</url> </urlInfo> <urlInfo> <url>e/t/intl/intltablesubnavviewcomponent</url> </urlInfo> <urlInfo> <url>e/t/intl/intltablemetaviewcomponent</url> </urlInfo> <urlInfo> <url>e/t/intl/disclaimer</url> </urlInfo> <urlInfo> <url>e/t/intl/headermain</url> </urlInfo> <urlInfo> <url>e/t/intl/indices_us</url> </urlInfo> <urlInfo> <url>e/t/intl/lead</url> </urlInfo> <urlInfo> <url>e/t/intl/selectlanguage</url> </urlInfo> <urlInfo> <url>e/t/intl/get-screen</url> <otherPrereq>BasicPrereq</otherPrereq> </urlInfo> <urlInfo> <url>e/t/intl/page_f</url> </urlInfo> <urlInfo> <url>e/t/intl/basicprereq</url> </urlInfo> <urlInfo> <url>e/t/intl/page</url> <otherPrereq>BasicPrereq</otherPrereq> </urlInfo> </application> </appDeploymentFile> </authenticationReports> __XML__ { my $name = ""; my %apps; my %urls; my $t = new XML::Twig( start_tag_handlers => { 'appDeploymentFile/application' => sub { my ( $twig, $tag, %att ) = @_; #~ %att is only defined when twig_roots #~ $_ is only defined when twig_handlers #~ twig_handlers is uses less memory $name = $att{name} || $_->{'att'}->{name}; return; }, }, twig_handlers => { #~ twig_roots => { 'appDeploymentFile/application/urlInfo/url' => sub { #~ warn "root _ = $_ |||| @_ "; warn $_->text;; $apps{$name}{ "/" . $_->text }++; $urls{ "/" . $_->text } = $name; return; }, }, ); $t->parse($xml); undef $t; use Data::Dumper(); print Data::Dumper->new([ \%apps, \%urls ])->Indent(1)->Dump; } __END__ $VAR1 = { 'intl' => { '/e/t/intl/lead' => 1, '/e/t/intl/page_f' => 1, '/e/t/intl/get-screen' => 1, '/e/t/intl/basicprereq' => 1, '/e/t/intl/indices_us' => 1, '/e/t/intl/intltablesubnavviewcomponent' => 1, '/e/t/intl/selectlanguage' => 1, '/e/t/intl/page' => 1, '/e/t/intl/quotesandresearch' => 1, '/e/t/intl/intltablemetaviewcomponent' => 1, '/e/t/intl/disclaimer' => 1, '/e/t/intl/headermain' => 1 }, 'hk' => { '/e/t/hk/orderviewmin' => 1, '/e/t/hk/indices_us' => 1, '/e/t/hk/accts_subscription' => 1, '/e/t/hk/userprereq' => 1, '/e/t/hk/custtradingpage' => 1, '/e/t/hk/custservicepage' => 1, '/e/t/hk/accts_changelogin' => 1, '/e/t/hk/accts_transfermoney' => 1, '/e/t/hk/homeloggedmessage' => 1, '/e/t/hk/lead' => 1, '/e/t/hk/accts_forms' => 1, '/e/t/hk/accts_userinfo' => 1, '/e/t/hk/headermain' => 1 } }; $VAR2 = { '/e/t/intl/lead' => 'intl', '/e/t/intl/page_f' => 'intl', '/e/t/hk/userprereq' => 'hk', '/e/t/hk/custservicepage' => 'hk', '/e/t/intl/indices_us' => 'intl', '/e/t/intl/selectlanguage' => 'intl', '/e/t/intl/intltablemetaviewcomponent' => 'intl', '/e/t/intl/quotesandresearch' => 'intl', '/e/t/intl/headermain' => 'intl', '/e/t/intl/disclaimer' => 'intl', '/e/t/hk/accts_forms' => 'hk', '/e/t/hk/accts_userinfo' => 'hk', '/e/t/hk/accts_subscription' => 'hk', '/e/t/hk/indices_us' => 'hk', '/e/t/hk/orderviewmin' => 'hk', '/e/t/intl/get-screen' => 'intl', '/e/t/hk/custtradingpage' => 'hk', '/e/t/intl/basicprereq' => 'intl', '/e/t/hk/accts_changelogin' => 'hk', '/e/t/hk/accts_transfermoney' => 'hk', '/e/t/hk/homeloggedmessage' => 'hk', '/e/t/intl/intltablesubnavviewcomponent' => 'intl', '/e/t/intl/page' => 'intl', '/e/t/hk/lead' => 'hk', '/e/t/hk/headermain' => 'hk' };