"Neill Taylor" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > > > I have read the man page on using Win32::TieRegistry to find two variables > in the registry, I think I may have missed the point somewhere but I don't > seem to be able to read the keys. > > any clues ? > > # Obtain Database user and password from passed variables > if (@ARGV ==2) > { > $user = $ARGV[0]; > $pass = $ARGV[1];} > else > { > if (exists $swKey->{"/app/app/hopper/database/User"}) > { > $user = $swKey->{"/app/app/hopper/database/User"}; > $pass = $swKey->{"/app/app/hopper/database/Pass"}; > } > else > { > die "No valid password associated\n\nUseage..... perl GN3Hopper requires > a valid user and password";
Hi Neill. Can you show us how you've created $swKey? Also, please change your program to use strict; use warnings; (you should do this /all/ the time really) and let us know of any errors you can't fix. Cheers, Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
