k_manimuthu has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

I have a perl file and .sh file. the perl file call the sh file. I want to use the shell script variable into the perl file. Is there any possible way to access the shell variable in to a perl file in run time. Below I show my sample perl file and the .sh file.

Thanks,

perl Script

#!/usr/bin/perl
# File Name : parent.pl
# Initial level stuffs
# Some stuffs
system ("sh path_reset.sh mypath");

# Any possible way to use the shell script variable here
print "\n$MY_LIB_PATH";

[download]

Shell Script

#!/bin/sh
# File Name : path_reset.sh
VAR1="value 1"
VARn="value n"

MY_HOME=$1
MY_LIB_PATH=$ORACLE_HOME/$MY_HOME
MY_LIB_PATH=$ORACLE_HOME/$MY_HOME/$VAR1
export $MY_LIB_PATH; 
echo $MY_LIB_PATH

[download]

Replies are listed 'Best First'.
Re: Call shell script variables in perl
by Eliya (Vicar) on Mar 21, 2011 at 10:41 UTC

    system runs a subprocess, and because a subprocess gets its own copy of the environment, you cannot set/modify an environment variable from within a subprocess such that it will be available to the parent process (your Perl script here).  In other words, the new subprocess' environment is gone as soon as the process has ended, i.e. when system returns.  Exporting won't help.

    But you could print the variable's value to stdout in the shell script, and capture it in the Perl script (e.g. via backticks).

[reply]
[d/l]

      Thanks for your information. I am showing (STDOUT) more information to the end user. I want to use the particualar variable only in my perl program. I will get the output as you metioned method and do regex stuff to to get the result. Thanks

[reply]
Re: Call shell script variables in perl
by moritz (Cardinal) on Mar 21, 2011 at 09:51 UTC
    See %ENV. But it only works if you do the exporting correct: export MY_LIB_PATH; (no $ on the variable name).

    Update: d'oh, just read Eliya's reply, and realized that I haven't read the scripts carefully enough.

    Perl 6 - second systems done right
[reply]
[d/l]
Re: Call shell script variables in perl
by Corion (Patriarch) on Mar 21, 2011 at 10:59 UTC
[reply]
Re: Call shell script variables in perl
by Anonymous Monk on Mar 21, 2011 at 13:14 UTC
[reply]

Back to Seekers of Perl Wisdom