use LWP::Simple;
use XML::Simple;
use Data::Dumper;
use strict;
use warnings;
my $parser = XMLin("c:\\temp\\data.xml");
print Dumper($parser);
print $parser->{HttpSiteAddress} . "\n";
print $parser->{SiteAssets}->{asset}->{url}, "\n";
print $parser->{FragmentAssets}->{asset}->{url}->[1];
####
$VAR1 = {
'PublishInfo' => {
'nodeUrl' => [
{
'nodeId' => '27',
'url' => 'index.htm'
},
{
'nodeId' => '256',
'url' => 'foia/index.htm'
},
{
'nodeId' => '259',
'url' => 'foia/2006/index.htm'
}
]
},
'siteStudioVersion' => '7.7.0.1',
'SiteAssets' => {
'asset' => {
'url' => '/ucm/groups/public/@websitestructure/documents/file/pghdr_left.jpg',
'dDocName' => 'pgHdr_left'
}
},
'getPageUrl' => '/ucm/idcplg?IdcService=SS_GET_PAGE&',
'siteStudioBuild' => '9.0.0.506',
'FragmentAssets' => {
'asset' => [
{
'url' => '/ucm/fragments/web_header/css/nav_ie6fix.css'
},
{
'url' => '/ucm/fragments/css4footer/img/promotions/transparency.png'
},
{
'url' => '/ucm/fragments/css4footer/img/bg-box-menu.gif'
}
]
},
'format' => '1.1',
'HttpRelativeWebRoot' => '/ucm/',
'siteId' => 'CFTC',
'DeclaredAssets' => {},
'HttpSiteAddress' => 'http://dc2kd11.cftc.gov:7070/'
};
####
http://dc2kd11.cftc.gov:7070/
/ucm/groups/public/@websitestructure/documents/file/pghdr_left.jpg
Not a HASH reference at C:\apache\apache2.2\cache_proxy\cgi-bin\test3.pl line 12.
####