>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.
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+/'
����������������������������������������
