如何通過在 Perl 中推送來打印變量？

Question

我正在嘗試創建一個從 Perl 中的 Excel 文件推送的數組變量。

my @registers=();
my $registers_num;

for (my $register_row = 0+3; $register_row < 5; $register_row++) {
    push( @registers,  $worksheet->get_cell( $register_row, 0));
}

print "register: ", $registers[0], "\n ";
$registers_num = @registers;
print "register_num:", $registers_num, "\n ";

當我執行 Perl 時，我得到了以下內容。 我預計打印$registers[0] = ID和$registers[1] = TOPINT ，但出了點問題。

register: Spreadsheet::ParseExcel::Cell=HASH(0xd021bb8)
 register_num:2

Answer 1

假設您使用的是Spreadsheet::ParseExcel ，就像您之前的問題一樣， get_cell方法返回一個Cell對象，而不是單元格中的值。 要訪問單元格的值，您應該使用 Cell 對象的value方法：

for (my $register_row = 0+3; $register_row < 5; $register_row++) {
    my $name = $worksheet->get_cell($register_row, 0);
    push( @registers,  $name->value() );
}

這僅將單元格值（“寄存器名稱”）存儲在@registers數組中。