当我从excel文件中提取文本时,它的格式为Win32::OLE::Variant=SCALAR(0x1214f94)
。我如何将其转换为Perl变量?当我尝试使用值函数只是打印@data = @{$dataHash{$header}};
将Win32 :: OLE :: Variant转换为perl变量?
my ($refs,$rows,$header) = &extract;
my %dataHash = %{$refs};
print "Keys:",keys %dataHash,"\n";
my @headers = @{$header};
my @test = @{$dataHash{'Date'}};
foreach my $scalar (@test){
print $scalar;
}
foreach my $header (@headers){
print "Checking Header: $header\n";
@data = @{$dataHash{$header}};
print $data;
foreach my $scalar (@data){
print FH "$scalar\n";
}
}
UPDATE:
所有我需要做的就是进入use Win32::OLE::Variant
和Win32::OLE::Variant=SCALAR(0x1214f94)
成为可读的答案。