foreach my $row (1..$end)
{
foreach my $col (3..27 )
{
# skip empty cells
next unless defined
$worksheet->Cells($row,$col)->{'Value'};
# print out the contents of a cell
$var = $worksheet->Cells($row,$col)->{'Value'};
push @dates, $var;
print $var; #this prints the value just fine
}
}
my %hash;
$hash{'first'} = \@dates;
print Dumper \%hash; #This prints object information
Я использую модуль OLE для Perl и каждое значение, которое я получаю из своего листа, и печатаю $ var, тогда я получаю ожидаемое значение, но когда я помещаю все в хеш, он печатает:
'first' => [
bless( do{\(my $o = 15375916)}, 'OLE::Variant'),
bless( do{\(my $o = 15372208)}, 'OLE::Variant'),
И так далее. Я не должен понимать что-то о хешах, потому что я действительно в тупике.