Re^3: Forcing to anonymous array in XML::simple

[grep]

in reply to Re^2: Forcing to anonymous array in XML::simple
in thread Forcing to anonymous array in XML::simple

Yes, B will also be forced into a 1 element array (with ForceArray => 1). But IMO that is the way it should be. It's consistant.

[rbi]

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...