Perl的@_数组是否存在10元素上限？子例程第11个参数总为undef

首先明确：Perl的内置参数数组@_不存在10个元素的上限，哪怕传入上百个参数都可以正常接收，你遇到的问题和@_本身的限制无关，本质是参数接收逻辑和实际传参数量不匹配，结合你给出的代码，具体原因如下：

• 你在子例程中定义的接收变量一共有11个，从$new_file_name到$discard_dups，列表赋值时会按顺序对应@_的前11个元素，多余的传参会被直接丢弃。
• 你调用merge_dat时一共传了12个参数，其中第11个参数是你调用上下文里的$discard_dups变量，第12个参数是字面量0。如果子例程内的$discard_dups最终为undef，说明你调用时传入的第11个参数本身就是未定义的，而你想传给$discard_dups的有效值（也就是末尾的0）因为是第12个参数，没有被变量接收，直接被丢弃了。

根据你的实际需求二选一即可：

• 如果你末尾的0是多余传参：直接删除调用时最后一个多余的0，保证调用时第11个参数就是你要传给$discard_dups的有效值即可。
• 如果你确实需要传入第12个参数：在子例程的接收变量列表末尾新增对应的变量来接收第12个参数，示例如下：

sub merge_dat {
    my($new_file_name, 
        $existing_file_name, 
        $output_file_name, 
        $start_elaphrs, 
        $end_elaphrs, 
        $time_adjust,
        $existing_file_orig_name,
        $period_file,
        $indent,
        $verbose,
        $discard_dups,
        $extra_param) = (@_); # 新增变量接收第12个参数

如果还是无法定位问题，可以在子例程入口加调试代码打印所有传参，快速确认@_的实际内容：

sub merge_dat {
    # 调试代码，确认传参情况
    print "总传参数量: " . scalar @_ . "\n";
    for my $idx (0 .. $#_) {
        print "第${idx}个参数值: " . (defined $_[$idx] ? $_[$idx] : 'undef') . "\n";
    }
    # 原有逻辑
}

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