PerlCtrl and arrays of arrays

[axtens]

G'day everyone

How would I return an array of arrays from perl, eg
my @r = [1, 2, [3,4]];
such that VB/VBScript would think the data to be
r = array(1,2,array(3,4))

This is PerlCtrl specific I know, and yes I should take it to the
ActiveState list, but I thought I'd ask here anyway, just in case.

Kind regards,
Bruce.

 

[Dr.Ruud]

axtens schreef:

How would I return an array of arrays from perl, eg
my @r = [1, 2, [3,4]];
such that VB/VBScript would think the data to be
r = array(1,2,array(3,4))

This is PerlCtrl specific I know, and yes I should take it to the
ActiveState list, but I thought I'd ask here anyway, just in case.

Maybe you are looking for

my @r = (
1,
2,
[ 3, 4 ],
);

or for

my @r = (
[ 1 ],
[ 2 ],
[ 3, 4 ],
);

 

[Martijn Lievaart]

axtens schreef:

How would I return an array of arrays from perl, eg
my @r = [1, 2, [3,4]];
such that VB/VBScript would think the data to be
r = array(1,2,array(3,4))

This is PerlCtrl specific I know, and yes I should take it to the
ActiveState list, but I thought I'd ask here anyway, just in case.

Maybe you are looking for

my @r = (
1,
2,
[ 3, 4 ],
);

or my $r = [1, 2, [3, 4]];

M4

 

[axtens]

Okay, I think I've found a solution:

I found convertArrayToVBArray at http://www.perlmonks.org/?node_id=516137
and applied it to as below

sub test {
my $res = 1;
my $dat = "hello";
my @b = ("my", "dog", "has", 3, "fleas");
my $c = convertArrayToVBArray( \@b );
my @r = ( $res, $dat, $c);
my $a = convertArrayToVBArray( \@r );
return $a;
}

By using convertArrayToVBArray on the inner array, adding the result
to the outer array, and then pushing that array through
convertArrayToVBArray, I can hand back a VT_ARRAY|VT_VARIANT that is
equivalent to

Array( 1, "hello", Array( "my", "dog", "has", 3, "fleas" ))

I really ought to blog this.

Kind regards,
Bruce.

 

[axtens]

Okay, blogged on http://codeaholic.blogspot.com/2008/02/perlpdkperlctrl-returning-array-of.html

Kind regards,
Bruce.