Setting Environment Variables

[Rick Kasten]

Here's what I need to do:

1) Write "Password:" to the console
- I know how to do that
2) Accept input that is not written back to the console
- I know how to do that (Term::ReadKey)
3) Set the PASSWD variable so that when the script exits, my env
variables now include one called PASSWD that contains the text I typed
at the "Password:" prompt.
- what I need help with

Any assistance? I'm sure this is an easy one...

[Jürgen Exner]

Rick Kasten wrote:

Here's what I need to do: [...] 3) Set the PASSWD variable so that when the script exits, my env
variables now include one called PASSWD that contains the text I typed
at the "Password:" prompt.

Any assistance? I'm sure this is an easy one...

Not exactly easy, more like impossible. See the FAQ
perldoc -q env:
I {changed directory, modified my environment} in a perl script. How
come the change disappeared when I exited the script? How do I get my
changes to be visible?

jue

[Howard]

> 3) Set the PASSWD variable so that when the script exits, my env

variables now include one called PASSWD that contains the text I typed
at the "Password:" prompt.
- what I need help with

Rick, are you setting this in a win32 environment? If so, you can
use the Win32::Registry to set the variable. The key I've used to set
variables is:
HKEY_LOCAL_MACH INE\SYSTEM\Curr entControlSet\C ontrol\Session
Manager\Environ ment

Some sample code is:
use Win32::Registry ;
$p = "SYSTEM\Current ControlSet\Cont rol\Session Manager\Environ ment";
$HKEY_LOCAL_MAC HINE->Open($p, $CurrVer) || die "Open $!";

And you can either create and set or just set a value.

key->Create($newkey , name)
key->SetValue(subke y, type, value)

Hope this helps.

Howard