----- Original Message -----
From: "Jorge Goncalvez" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursday, January 24, 2002 4:00 AM
Subject: Re: Re:What's wrong with this?
> it still not working i tried this:
> use Win32::Registry;
> my $Register ="Software";
> my $Register2=".DEFAULT\\Software";
> my $hkey;
> $HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
> $hkey->DeleteKey("Cygwin2");
> $hkey->Close();
> $HKEY_CURRENT_USER->Open($Register,$hkey)|| die $!;
> $hkey->DeleteKey("Cygwin2");
> $hkey->Close();
> $HKEY_USERS->Open($Register2,$hkey)|| die $!;
> $hkey->DeleteKey("Cygwin2");
> $hkey->Close();
Well, I am not familiar with this module, and your Open IS correct after looking at it
on CPAN.
This is just a guess (not even sure if you can create a hash [%rkey] like this...),
but give it a
try. CPAN states that this module is obsolete and to use Win32:TieRegistry instead...
Shawn
use strict;
use Win32::Registry;
my $Register ="Software";
my $Register2=".DEFAULT\\Software";
my $hkey;
my $delete='Cygwin2';
my %rkey(
$HKEY_LOCAL_MACHINE=>$Register,
$HKEY_LOCAL_MACHINE=>$Register,
$HKEY_USERS=>$Register2
);
for($HKEY_LOCAL_MACHINE,$HKEY_CURRENT_USER,$HKEY_USERS) {
$_->Open($rkey{$_},$hkey)|| die $!;
$hkey->DeleteKey($delete);
$hkey->Close();
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
