Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: Read registry error (no tips)

by tye (Sage)
on Oct 30, 2012 at 02:20 UTC ( #1001444=note: print w/replies, xml ) Need Help??

in reply to Read registry error

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();

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        

Replies are listed 'Best First'.
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!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1001444]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2018-06-18 04:40 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (107 votes). Check out past polls.