Perl中数据类型的问题

megnlingling

　　今天修改PERL脚本读取EXCEL中的数据时，发现一个问题。有一列存放的是日期格式的数据。使用PERL取出来的VALUE使用print打印出来都是：Win32::OLE::Variant=SCALAR(XXXXX)。
　　网上查找一番。问题很快解决。
　　需要关注一下EXCEL中各种变量类型的转化。下面列出来一些常见的数据类型：
　　From: http://paginas.fe.up.pt/~jvv/PERL/manual/site/lib/Win32/OLE/Variant.html#variants
A Variant is a data type that is used to pass data between OLE connections.
The default behavior is to convert each perl scalar variable into an OLE Variant according to the internal perl representation. The following type correspondence holds:

        C type          Perl type       OLE type
------          ---------       --------
int              IV            VT_I4
double             NV            VT_R8
char *             PV            VT_BSTR
void *           ref to AV       VT_ARRAY
?              undef          VT_ERROR
?        Win32::OLE object    VT_DISPATCH
Note that VT_BSTR is a wide character or Unicode string. This presents a problem if you want to pass in binary data as a parameter as 0x00 is inserted between all the bytes in your data. The Variant() method provides a solution to this. With Variants the script writer can specify the OLE variant type that the parameter should be converted to. Currently supported types are:

        VT_UI1     unsigned char
VT_I2      signed int (2 bytes)
VT_I4      signed int (4 bytes)
VT_R4      float      (4 bytes)
VT_R8      float      (8 bytes)
VT_DATE    OLE Date
VT_BSTR    OLE String
VT_CY      OLE Currency
VT_BOOL    OLE Boolean
 
根据这个，很快就能找到各种类型的映射。
例如：
我要读取的列为日期类型，则需要在脚本的最前面添加：
 

use Win32::OLE::Variant;
　　 再使用：

Variant(VT_DATE, $sheet->Range("O$row")->{'Value'});
　　 访问即可。
　　有兴趣的朋友可以来这里看看：http://www.perlmonks.org/index.pl?node_id=153486
　　如果本博文对您有用，请支持一下吧~~