使用Excel::Writer::XLSX时动态工作表无法在子例程中访问

问题核心原因 #

1. 哈希键类型错误：你用了$ws{\$final_name}（标量引用作为键），而非直接用工作表名称字符串$ws{$final_name}。不同子例程中即使变量值相同，引用地址也不同，导致无法匹配键。
2. 哈希作用域/传递方式错误：%ws如果是CreateWorkbook内的局部变量，未通过引用传递给add_data，子例程访问的是独立副本而非原哈希。

具体解决步骤 #

1. 修正哈希键的使用方式 #

直接用工作表名称字符串作为哈希键，而非标量引用：

sub CreateWorkbook {
    my $workbook = Excel::Writer::XLSX->new('output.xlsx');
    my %ws;

    # 硬编码工作表（正常工作的写法）
    $ws{test} = $workbook->add_worksheet('Test');

    # 动态生成工作表：用字符串作为键
    my $final_name = 'spanish'; # 假设来自SQL查询结果
    $ws{$final_name} = $workbook->add_worksheet($final_name);

    # 验证：此处可正常访问动态工作表
    print "动态工作表名称：", $ws{$final_name}->get_name(), "\n";

    # 返回工作簿和哈希引用（关键：传递引用而非值）
    return ($workbook, \%ws);
}

2. 通过哈希引用跨子例程传递 #

在主逻辑中接收引用，并传递给add_data子例程：

# 主程序调用
my ($wb, $ws_ref) = CreateWorkbook();
add_data($wb, $ws_ref);

3. 在add_data中正确访问工作表 #

通过哈希引用访问目标工作表，直接用字符串键或变量键：

sub add_data {
    my ($wb, $ws_ref) = @_;

    # 硬编码访问动态工作表
    $ws_ref->{spanish}->write(0, 0, "西班牙语工作表数据");

    # 变量方式访问（适合循环处理多个动态工作表）
    my $target_sheet = 'spanish';
    $ws_ref->{$target_sheet}->write(1, 0, "另一行数据");
}

额外验证点 #

• 若必须使用引用作为键，需确保add_data中使用同一个标量引用（比如将$final_name的引用也传递过去），但这种方式没必要，直接用字符串键更直观可靠。
• 避免使用全局哈希（除非必要），通过引用传递更符合Perl的模块化编程规范，减少作用域冲突。

内容的提问来源于stack exchange，提问作者niebyl2002