in reply to Win32::OLE Type for VB's "As Single"
I would look into using variants.
my $number = 1;
my $var_number = Variant(VT_R4, $number);
Shame on me not reading the OP properly!!
my $number = Variant(VT_I4, 1);;
my $prices = Variant(VT_R4 | VT_ARRAY, [1,10], 1); # Index 0 .. 9
my $others = Variant(VT_R4 | VT_ARRAY, [1,5], 1); # Index 0 .. 4
my $returnValue = $object->GetData($number,$prices,$others);
Variant(VT_R4 | VT_ARRAY | VT_BYREF, [1,5], 1);
I have no possibility to test this myself, so please regard this as the shot in the dark it is. But since you don't seem to have reached a working solution, I offer you this straw....
.desrever si txet eritne ehT
.backwards are (letters the not but) words the Only
ehT sdrow era ni redro, tub eht srettel era eht rehto yaw.
Who ndees baacdkrws wehn you have Tceilmopgyya?
?wdors reeersvd up meixd about How
.tusnnmihep rof nuttolg a m'I
Results (441 votes). Check out past polls.