Thanks. I'm trying to cope in a general way with these situations:
use strict;
use warnings;
use XML::Simple;use Data::Dumper;
my $file = './test.xml';
my $a = ['x','y'];
my $a1 = [$a];
my %tmp = ( A =>$a1, B => 'z');
XMLout(\%tmp,outputfile=>$file,noattr=>1);
%tmp = %{XMLin($file,forcearray=>['A'],noattr=>1)};
print "----------\n";
print $tmp{B}."\n";
print $tmp{A}[0]->[0]."\n";
$a = ['x'];
$a1 = [$a];
%tmp = ( A =>$a1, B => 'z');
XMLout(\%tmp,outputfile=>$file,noattr=>1);
%tmp = %{XMLin($file,forcearray=>1,noattr=>1)};
print "----------\n";
print $tmp{B}."\n";
print $tmp{A}[0]->[0]."\n";
$a = ['x'];
$a1 = [$a];
%tmp = ( A =>$a1, B => 'z');
XMLout(\%tmp,outputfile=>$file,noattr=>1);
%tmp = %{XMLin($file,forcearray=>['A'],noattr=>1)};
print "----------\n";
print $tmp{B}."\n";
print $tmp{A}[0]->[0]."\n";
That outputs:
----------
z
x
----------
ARRAY(0x653930)
x
----------
z
Not an ARRAY reference at tmp1.pl line 31.
I can only think of evaluating ref($tmp{A}) and ref($tmp{B}) to decide how to operate, since in my code $tmp{A} is an array reference to an array that can have a single element made by an array reference to a single-element array itself, and $tmp{B} is instead a scalar. I guess I'm missing something... |