如何从调用脚本执行另一个脚本并使其为调用脚本设置变量

我明白你的需求了——你需要在调用脚本里先完成参数的配置，再触发被调用脚本的执行，而do script2.pl因为执行时机不符合预期（比如你可能遇到它在你准备好参数前就执行的情况）所以没法用。下面给你几种针对性的解决方案，分场景来看：

场景1：被调用脚本作为独立进程运行，传递命令行参数 #

如果希望被调用脚本是一个独立的进程，你可以用system或者exec来启动它，先在调用脚本里组装好参数，再传递过去：

用system（保留调用脚本进程） #

# 调用脚本 caller.pl
# 第一步：准备好要传递的参数
my @script_args = ('--input', 'user_data.csv', '--log-level', 'debug');

# 第二步：执行被调用脚本
system('perl', 'script2.pl', @script_args) == 0
    or die "启动script2.pl失败：$?";

system会等待被调用脚本执行完成，然后回到调用脚本继续运行。返回值为0代表执行成功，非0则是错误码。

用exec（替换调用脚本进程） #

如果你不需要调用脚本继续执行，可以用exec，它会直接把当前进程替换成被调用脚本的进程：

# 调用脚本 caller.pl
my @script_args = ('--output', 'result.txt');

exec('perl', 'script2.pl', @script_args) 
    or die "无法执行script2.pl：$!";

场景2：被调用脚本在同一个Perl进程内运行，共享变量 #

如果希望被调用脚本能直接使用调用脚本里设置的变量（不需要启动新进程），可以用require配合包变量，或者把被调用脚本改成子例程的形式：

方法1：设置包变量后require #

先在调用脚本里给被调用脚本的包设置变量，再加载执行它：

# 调用脚本 caller.pl
# 先设置参数到script2的包空间
$script2::input_path = '/home/user/data';
$script2::enable_log = 1;

# 加载并执行script2.pl（只会加载一次）
require 'script2.pl';

被调用脚本里直接用这些包变量：

# script2.pl
print "读取数据路径：$script2::input_path\n" if $script2::enable_log;
# 你的业务逻辑...

方法2：把被调用脚本改成可调用的子例程 #

这种方式更灵活，能多次执行不同参数的逻辑：

# script2.pl
package script2;

# 把业务逻辑封装成子例程
sub process_data {
    my ($input_file, $is_verbose) = @_;
    print "处理文件：$input_file\n" if $is_verbose;
    # 你的处理代码...
}

1; # require需要脚本最后返回true

调用脚本里先加载，再按需调用：

# 调用脚本 caller.pl
require 'script2.pl';

# 第一次执行：设置参数1
script2::process_data('file1.txt', 1);

# 第二次执行：设置参数2
script2::process_data('file2.txt', 0);

场景3：用环境变量传递参数 #

如果需要跨进程传递参数，又不想用命令行参数，可以设置环境变量，被调用脚本直接读取：

# 调用脚本 caller.pl
# 设置环境变量
$ENV{SCRIPT2_DB_HOST} = 'localhost';
$ENV{SCRIPT2_DB_PORT} = 3306;

# 启动被调用脚本
system('perl', 'script2.pl') == 0
    or die "script2.pl执行失败：$?";

被调用脚本里读取环境变量：

# script2.pl
my $db_host = $ENV{SCRIPT2_DB_HOST};
my $db_port = $ENV{SCRIPT2_DB_PORT};
print "连接数据库：$db_host:$db_port\n";

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