note
rbi
Thanks. I'm trying to cope in a general way with these situations:
<code>
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";
</code>
That outputs:<br>
<code>
----------
z
x
----------
ARRAY(0x653930)
x
----------
z
Not an ARRAY reference at tmp1.pl line 31.
</code>
I can only think of evaluating <code>ref($tmp{A})</code> and <code>ref($tmp{B})</code> to decide how to operate, since in my code <code>$tmp{A}</code> 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 <code>$tmp{B}</code> is instead a scalar. I guess I'm missing something...
589844
589889