perl - 电子表格中的 Perl 哈希严格引用错误

Question

下面是perl代码

use Spreadsheet::WriteExcel;

my $workbook = new Spreadsheet::WriteExcel( 'one_worksheet.csv' );

my ${path_1} = $workbook->add_worksheet('Max Input');
my ${path_2} = $workbook->add_worksheet('Min Input');

foreach (keys %max_hash ) {
    ${$_}->write(0, $column, "$max_hash{$_}" );
    $column = $column + 1;
}

我收到这个错误

"Can't use string ("path_1") as a SCALAR ref while "strict refs" in use".

%max_hash有钥匙path_1和path_2。

解决办法是什么？

Answer 1

语法my ${path_1}不寻常，但实际上不是问题。use warnings打开后，您将收到一条警告消息：

模糊使用 ${path_1} 解析为 $path_1

最好只替换为my $path_1.

您的实际问题是这一行：

${$_}->write(0,$column,"$max_hash{$_}");

您正在尝试使用称为“符号引用”的东西（也称为“使用变量作为变量的名称”）。由于各种原因 ，它们是一个非常糟糕的主意——这就是为什么阻止你这样做。use strict

将工作表存储在哈希中要好得多。

use Spreadsheet::WriteExcel;

# "Class->new()" is far better than "new Class"
my $workbook = Spreadsheet::WriteExcel->( 'one_worksheet.csv' );
my %worksheets;
$worksheets{path_1} = $workbook->add_worksheet('Max Input');
$worksheets{path_2} = $workbook->add_worksheet('Min Input');
foreach(keys %max_hash) {
    $worksheets{$_}->write(0, $column, $max_hash{$_});
    $column = $column + 1;
}

Answer 2

声明变量时不要使用花括号。利用：

my $path_1 = $workbook->add_worksheet('Max Input');

${something}语法意味着取消引用，因此 perl 将something其视为引用。此外，与 . 一起使用是错误的my。