--------------#!/usr/bin/perl use XML::Simple qw/XMLin/; use XML::Simple; use Data::Dumper qw/Dumper/; use File::Basename qw/dirname basename fileparse/; use IPC::Open2 qw/open2/; use Getopt::Long qw/GetOptions/; my $config = XMLin('./appsimage_EBSB4.xml'); print Dumper($config);
cat ./appsimage_EBSB4.xml
----------------<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE clone[ <!ENTITY envPageConfig SYSTEM "./envPageConfig.xml"> ]> <clone-config> "\&envPageConfig"; </clone-config> -------------------- cat ./envPageConfig.xml <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE clone[ <!ENTITY envPageConfig SYSTEM "./envPageConfig.xml"> ]> <clone-config> "&envPageConfig"; </clone-config> ohpr434:EBSB11:/home/oracle/test$cat envPageConfig.xml <comt4> <bolinfpwd>welcome</bolinfpwd> </comt4>
When I execute test.pl
-----------------------$VAR1 = { 'comt4' => [ { 'bolinfpwd' => 'welcome' }, { 'bolinfpwd' => 'welcome' }, { 'bolinfpwd' => 'welcome' } ] };
Can you help me limiting this array to single value which is the ideal case.
In reply to Duplicate entries with nested xml by Raghu.S
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |