如何从命令行传递参数修改Perl子例程的变量值？

核心思路 #

更合理的做法是在主程序层面解析命令行参数，再将参数传递给子例程，这样能让子例程保持独立性，便于复用和维护，避免子例程直接依赖命令行参数的耦合问题。

具体修改步骤 #

1. 调整命令行参数校验逻辑 #

原来的代码只允许1个参数，现在需要支持1或2个参数（第二个是可选的z值）：

if (scalar @ARGV < 1 || scalar @ARGV > 2) {
    help();
    # 建议在help()里补充说明：用法示例: perl file.pl config.dat [-20.0]
    exit;
}

2. 解析并验证可选参数 #

在加载配置文件后，读取并验证可选的z值（确保是数字格式）：

# Loading configuration file and parameters
our %configuration = load_configuration($ARGV[0]);

# 定义默认z值，若有命令行参数则替换
my $collimator_z = -25.0;
if (@ARGV == 2) {
    # 验证参数是否为有效数字
    unless ($ARGV[1] =~ /^-?\d+(\.\d+)?$/) {
        print "错误：第二个参数必须是数字格式的z坐标值\n";
        exit 1;
    }
    $collimator_z = $ARGV[1];
}

3. 修改子例程接收参数 #

让Collimator子例程通过参数接收z值，替代原来的硬编码默认值：

sub Collimator 
{ 
     my ($z) = @_; # 接收传入的z参数
     my %detector = init_det();
     
     $detector{"pos"} = "0*cm 0.0*cm $z*cm";
}

4. 调用子例程时传递参数 #

在循环中调用Collimator时，把解析好的z值传进去：

foreach my $conf ( @allConfs )
{ 
    $configuration{"variation"} = $conf ;
    
     #other geometries ....
    
    Collimator($collimator_z); # 传递z参数
}

为什么不建议在子例程内部处理参数？ #

• 子例程直接读取@ARGV会导致耦合性过高：如果后续需要从程序内部其他地方调用该子例程（比如用计算出的z值而非命令行参数），就无法直接复用，必须修改子例程逻辑。
• 主程序统一处理参数，能让职责更清晰：参数解析、验证放在主逻辑，子例程只负责生成几何结构的核心逻辑，代码可读性和可维护性更好。

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