如何将csh脚本中的环境变量传递至Perl脚本？

用system调用csh脚本时，csh是Perl的子进程，子进程中设置的环境变量仅在自身进程空间生效，退出后父进程（Perl）无法直接获取这些变量。

方案1：让csh脚本输出变量，Perl捕获后设置 #

修改xyz.csh，让它直接输出变量的键值对：

#!/bin/csh
setenv HOME_PATH /home/my_home
echo "HOME_PATH=$HOME_PATH"

然后修改Perl脚本，捕获输出并提取变量：

#!/usr/bin/perl
# 捕获csh脚本的输出
my $output = `./xyz.csh`;
chomp $output;

# 解析输出，提取HOME_PATH的值
if ($output =~ /^HOME_PATH=(.*)$/) {
    $ENV{HOME_PATH} = $1;
    print "$ENV{HOME_PATH}\n";
} else {
    print "无法获取HOME_PATH变量\n";
}

方案2：通过source + env导出所有环境变量 #

如果csh脚本里有多个环境变量需要传递，可以让shell先source脚本，再输出所有环境变量，Perl读取后筛选需要的：

#!/usr/bin/perl
my %child_env;

# 启动csh，source脚本后输出所有环境变量
open my $env_fh, '-|', 'csh -c "source ./xyz.csh && env"' or die "执行失败: $!";

while (<$env_fh>) {
    chomp;
    # 分割变量名和值（只分割第一个=）
    my ($key, $value) = split /=/, $_, 2;
    $child_env{$key} = $value;
}
close $env_fh;

# 使用获取到的HOME_PATH
print $child_env{HOME_PATH}, "\n";

方案3：将环境变量写入临时文件，Perl读取 #

如果csh脚本逻辑复杂，可以让它把需要的环境变量写入临时文件：
修改xyz.csh：

#!/bin/csh
setenv HOME_PATH /home/my_home
echo "HOME_PATH=$HOME_PATH" > /tmp/env_vars.tmp

Perl脚本读取临时文件：

#!/usr/bin/perl
open my $tmp_fh, '<', '/tmp/env_vars.tmp' or die "无法打开临时文件: $!";
while (<$tmp_fh>) {
    chomp;
    my ($key, $value) = split /=/, $_, 2;
    $ENV{$key} = $value;
}
close $tmp_fh;

print "$ENV{HOME_PATH}\n";
# 可选：删除临时文件
unlink '/tmp/env_vars.tmp';

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