It seems that Win32::OLE::Variant doesn't work!
Below is the script:
############################################################################
#! perl -W
use strict;
use Win32::OLE;
use Win32::OLE::Variant;
my $Array = Variant(VT_ARRAY|VT_R8, [1,2], 2);
$Array->Put([[1,2], [3,4]]);
Below is the warning message:
############################################################################
C:\>tst.pl
Win32::OLE(0.1702): SetSafeArrayFromAV bad index at C:\tst.pl line 10.
Win32::OLE(0.1702) error 0x8002000b: "Invalid index" at C:\tst.pl line 10
eval {...} called at C:\tst.pl line 10
I am using the following version of perl:
############################################################################
This is perl, v5.8.6 built for MSWin32-x86-multi-thread
Do you guys have the similar problem?
Another quetions is:
my $Array = Variant(VT_ARRAY|VT_R8, [1,2], 2);
############################################################################
What do 1, 2, 2 mean respectively?
Thy mean the lower boundary of the second dimension, the upper
boundary of the second dimension,
and the total number of dimension?
Thank in advance!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
