Read registry error

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

It's nearly copied from CPAN help, but when run only show "can't find..."message. I'm using Windows7. Anyone help? Thanks!

use Win32::TieRegistry( Delimiter => '/' );
sub isExist{
    my $tips= $Registry->{"HKEY_LOCAL_MACHINE/Software/Microsoft/"}
          or  die "Can't find the Windows tips: $^E\n";
        foreach(  keys %$tips  ) {
            print "$_: ", $tips->{$_}, "\n";
        }
}
[download]

Comment on Read registry error Download Code

Replies are listed 'Best First'.
Re: Read registry error by brap (Pilgrim) on Oct 29, 2012 at 17:30 UTC
Hi anaconda_wly, Just for grins, I tried this on a pretty locked-down Windows 7 machine. The error message I received was `Can't find the Windows tips: The system could not find the environment option that was entered`. I have no idea what that means. Knowing that the PC I'm using is locked down, I tried changing the root key to `HKEY_CURRENT_USER`. With that change, your code worked as posted. I wonder if Win32::TieRegistry is opening the registry key for read/write access?	[reply] [d/l] [select]
Re^2: Read registry error by anaconda_wly (Scribe) on Oct 31, 2012 at 05:22 UTC
Brap, I'm trying. While I tried a use `Win32::TieRegistry( Access=>KEY_READ, Delimiter => '/' );` but get an error "Bareword "KEY_READ" not allowed while "strict subs" in use"	[reply] [d/l]
Re^2: Read registry error by sundialsvc4 (Abbot) on Oct 29, 2012 at 20:27 UTC
That appears to be an option ... but read/write could very well be the default.
Re: Read registry error (no tips) by tye (Sage) on Oct 30, 2012 at 02:20 UTC
Windows 7 doesn't come with Tips. Below I picked a different Registry key that I find often fills up with simple text data and also only asked for 'read' access: `use Win32::TieRegistry( Delimiter => '/' ); sub isExist{ my $tips= $Registry->Open( "HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/ +Run/", { Access => 'KEY_READ' }, ) or die "Can't find the 'Run' key: $^E\n"; foreach( keys %$tips ) { print "$_: ", $tips->{$_}, "\n"; } } isExist();` [download] It works for me on Windows 7. But it wouldn't work if you don't even have 'read' access to that part of the Registry (seems unlikely). And it will report nothing if you don't have any "Run" entries (I've never been so lucky). - tye	[reply] [d/l]
Re^2: Read registry error (no tips) by anaconda_wly (Scribe) on Oct 31, 2012 at 08:28 UTC
Your way is OK for me. Thanks!	[reply]
Re: Read registry error by Anonymous Monk on Oct 29, 2012 at 16:22 UTC
what is $^E in the error message?	[reply]
Re^2: Read registry error by anaconda_wly (Scribe) on Oct 29, 2012 at 19:44 UTC
The error message was"The system could not find the environment option that was entered"	[reply]
Re^3: Read registry error by Anonymous Monk on Oct 30, 2012 at 00:17 UTC
That is bizzare. Try `C:\> reg query HKEY_LOCAL_MACHINE\Software\Microsoft\`	[reply] [d/l]

Back to Seekers of Perl Wisdom