I think Srikanth made a slight typo - see my comment below.
>>> Srikanth Madani <[EMAIL PROTECTED]> 04/08/04 09:51AM
>>>
>I have a general problem sourcing out variables in perl. I certainly
can
>read the environment variables, but setting them persistently even
after
>the script has finished is something I'm having a little more
difficulty
>with.
Hi Scott,
You can set environment variables in a Perl script using
$ENV{ORA_VAR} = "value";
This will set the environment variable for that and all child
processes.
When the script exists, this variable will no longer be available.
^^^^^
Did you mean "exits"?? ;-)
------------------------------------
So what you can do is call the subsequent program (which needs the
updated/new environment variable value) from within (and after) the
Perl
script which sets it.
If you really want to access the parent shell, see 2.8 of
comp.unix.questions [as suggested by perldoc -q environment] at
http://www.cs.uu.nl/wais/html/na-dir/unix-faq/faq/part2.html
Cheers,
Srikanth Madani
________________________________________
perl -e'$_="87 69S69E75C69S78 68A32W73A83Y32!";($p,$i,$n,$k
,$f,$l,$o,$y,$d,$s)=(localtime,join"",map(chr,split/\D/));$o>4?print$s,
HERE:print$s,435660-86400*$o-3600*$n-60*$i-$p,join"",split/\d+/'
