Perl中基于输入调用子例程并传递变量值的实现求助

原代码存在几个关键问题：xxx和yyy子例程中的$input是局部变量，执行完子例程后就会销毁，没有对外返回值；execute子例程也没有定义如何接收外部变量；同时缺少对命令行参数的处理逻辑，无法根据输入触发对应子例程。

下面是修正后的完整实现：

sub xxx 
{
    my $input = "repository_1";
    return $input; # 返回局部变量的值，供外部调用
}

sub yyy
{
    my $input = "repository_2";
    return $input; # 返回局部变量的值，供外部调用
}

sub execute
{
    my ($repo) = @_; # 接收外部传入的仓库名称参数
    print "This is the Repository connected : $repo\n";
}

# 处理命令行参数逻辑
my $target_sub = $ARGV[0];
if ($target_sub eq 'xxx') {
    my $repo_name = xxx();
    execute($repo_name);
} elsif ($target_sub eq 'yyy') {
    my $repo_name = yyy();
    execute($repo_name);
} else {
    print "错误：无效参数，请输入 xxx 或 yyy\n";
    exit 1;
}

关键修改说明： #

• 给xxx和yyy添加return语句：通过返回局部变量的值，让外部代码能获取到子例程中定义的仓库名称
• 改造execute子例程：通过@_接收传入的参数，使其可以复用，根据不同输入输出对应内容
• 新增命令行参数处理：读取脚本执行时传入的第一个参数（$ARGV[0]），判断参数值后调用对应子例程，再将结果传给execute执行
• 增加错误处理：当输入无效参数时，给出提示并退出脚本

测试效果： #

执行perl main.pl xxx，输出：

This is the Repository connected : repository_1

执行perl main.pl yyy，输出：

This is the Repository connected : repository_2

执行无效参数（如perl main.pl zzz），输出：

错误：无效参数，请输入 xxx 或 yyy

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