Re: source a file in Linux using perl script

The environment variables of the shell are available through the %ENV hash in Perl. See perlvar for it.

The easiest way to make the variables available to a Perl script is to set them up beforehand:

#!/bin/bash

. ~/.bash_profile
/path/to/your/perlscript.pl
[download]

If that is not possible, you can follow the approach outlined in Get default login environment to get the environment variables that the script sets up. Specifically, RE (tilly) 3: Get default login environment has a subroutine that does what you want.

Comment on Re: source a file in Linux using perl script Select or Download Code

Replies are listed 'Best First'.
Re^2: source a file in Linux using perl script by salva (Canon) on Nov 30, 2020 at 09:23 UTC
TIMTOWTDI: `#!/usr/bin/perl use POSIX; use String::ShellQuote qw(shell_quote); unless (defined $ENV{CTC_HOME}) { $ENV{DONT_LOOP_FOREVER}++ or die "infinite loop detected"; exec "source ~/.bash_profile && ".shell_quote($^X, $0, @ARGV); POSIX::_exit(255); } chdir($ENV{CTC_HOME}); ...` [download] Though, I have to admit I prefer the simpler shell wrapper solution given by Corion.	[reply] [d/l]
Re^3: source a file in Linux using perl script by Corion (Pope) on Nov 30, 2020 at 09:50 UTC
I think the one drawback of re-executing yourself like that is that you lose Perl command line switches like `-Ilib` etc. ... There is Devel::PL_origargv, which gives you the original command line, but I'm not sure that I would want to go such an esoteric length when a shell script can do the same.	[reply] [d/l]