use Win32::Registry;
$key = "SOFTWARE\\yourValue";
$HKEY_LOCAL_MACHINE->Open($key, $keyList);
print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
$keyList->GetKeys(\@subKeys);
$numberOfSubKeys = @subKeys;
print "\tThere are $numberOfSubKeys keys\n";
foreach $subKey (@subKeys){
print "\t\t$subKey\n";
}
$key = "newKey";
print "\nDeleting the $key Key\n";
if (!$keyList->DeleteKey($key)){
print "Failed to delete $key\n";
}
print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
$keyList->GetKeys(\@newSubKeys);
$numberOfSubKeys = @newSubKeys;
print "\tThere are now $numberOfSubKeys key\n";
foreach $subKey (@newSubKeys){
print "\t\t$subKey\n";
}
$keyList->Close();
|