#! perl

use Win32::TieRegistry;

print "Registryschluessel finden und loeschen!\n";
print "Suchbegriff: ";
$eingabe = <STDIN>;

my $regroot = $Registry -> Open ("CConfig/Software", {Delimiter=>"/"});
my $regpath= $regroot -> Path;

&func($regroot); 

sub func
{    my $regkey = shift;
    my ($key, $dir);
    
    foreach $key (keys %$regkey)              &nb
sp;             # Check ob Keys oder Keys mit Werten
        {    chomp($key);
            
            if ($key =~ /^(\/[$eingabe].*)/i)
               
 {    my $name = $1;
               
     $PathSubKey = $regkey -> Path;        
               
     chomp($name);
               
     print "RegistyPath: ", $PathSubKey, "\n";
               
     print "Name: ", $name, "        Wert: ", $regkey->{$name}, "\n\n";
               
     print "Schluesselwertepaar loeschen? [j/n] ";
               
     my $choice = <STDIN>;
               
     print $choice;
               
     if ($choice =~ /j{1}|J{1}/)
               
         {    print "JA";
               
             my $del = delete $regkey -> {"$name"};    
               
         }
               
 }
        
     if ($key =~ /(\/)$/)
                 {if ($key =~ /^([$eingabe].*)/i)
                    
 {    my $name1 = $1;
                        
     $PathSubKey = $regkey -> Path;        
                    
         print $PathSubKey, "[$name1]", "\n";
                        
     print "Schluessel mit allen Schluesselwertepaaren loeschen? [j/n] ";
               
             my $choice1 = <STDIN>;
               
             if ($choice1 =~ /j{1}|J{1}/)
               
               
  {    my $del1 = delete $regkey -> {"$name1"};
               
               
      
               
               
      exit;    
               
               
  }                        
         
               
         }
               
 $dir = $regkey -> Open ("$key");        # In neuen Schlüssel wechseln
                     $path = $dir -> Path;
                    
 &func($dir);    
                 }   ;     
        }
}