在Perl中采购Shell脚本

Question

I want to source a shell script from within Perl and have the environment variables be available in Perl, but I'm not sure if there's an elegant way to do it. Obviously, using system() won't work since it runs in a forked process, and all environment changes will be lost. I think there's a CPAN module that can do it, but I prefer not to use external modules.

I've seen two solutions that would not work in my case:

1. Have a wrapper that calls the shell script, and then calls the Perl script. I do not know ahead of time which of my shell scripts I need to call.

2. Manually opening the shell script and scraping for arg=value pairs. This won't work either because the shell script is not a simple list of ARG=VALUE , but rather contain a bunch of conditionals, and variables can have different values depending on certain conditions.

Answer 1

sh -c "source script; env"应该在环境的末尾以name = value对的形式输出环境，然后您可以从您的perl脚本中进行解析（因为Perl是用于解析的语言，因此应该很容易）。

Answer 2

You can do this by installing external module from CPAN which is Shell::Source

$env_path= Shell::Source->new(shell=>"tcsh",file=>"../path/to/file/temp.csh");
$env_path->inherit;

As perl creates its own instance while running on a shell, so we can not set environment path for the main shell as the perl's instance will be like sub shell of the main shell. Child can not set environment paths for parents.

Now till the perl's sub shell will run you'll be able to access all the paths present in temp.csh by using Shell::Source