use Win32::TieRegistry;

&neu;

sub neu
{
print "Registryschluessel finden und loeschen!\n";
print "Suchbegriff: ";
$eingabe = <STDIN>;
&start ($eingabe);

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

      &func($regroot); 

      sub func
        {    my $regkey = shift;
             my ($key, $dir);
        
        foreach $key (keys %$regkey)
                   {    chomp($key);
                         if ($key =~ /(\/)$/)
                               {    chomp($key);
                        
 if ($key =~ /^$eingabe?/ig)
                    
         {    $PathSubKey = $regkey -> Path;        
                    
             print $PathSubKey, "[$key]", "\n";
                        
         print "Schluessel (l)oeschen, (w)eitersuchen? [l/w] ";
                    
             my $choice1 = <STDIN>;
               
               
  print "\n";
                    
             if ($choice1 =~ /l/i)
               
               
      {    $inhalt = $regkey -> Open ("$key");
                        
               
  print "[$key]", "\n";
               
               
          foreach $inh (keys %$inhalt)
                        
               
      {    printf "   Key: %15s       Wert: %s\n", $inh, $inhalt->{$inh};    }
                        
               
  print "Folgende Schlüssel und Werte werden gelöscht! [j/n] ";
               
               
          my $choice2 = <STDIN>;
               
               
          if ($choice2 =~ /j/i)
               
               
              {&nbsp
;   my $del1 = delete $regkey -> {"$key"};
               
               
               
   print "Suche (f)ortsetzen, (n)eue Suche, (b)eenden? ";
               
               
               
   my $choice3 = <STDIN>;
               
               
               
   if ($choice3 =~ /f/i)
               
               
               
       {    &start;  
      }
               
               
               
   if ($choice3 =~ /n/i)
               
               
               
       {    &neu;  &n
bsp; }
               
               
               
   if ($chioce3 =~ /b/i)
               
               
               
       {    exit;   
 }
               
               
              }
               
               
      }    
               
               
      
               
             }
               
     else    
               
         {    $dir = $regkey -> Open ("$key");        # In neuen Schlüssel wechseln
                             $path = $dir -> Path;
                             &func($dir);    
                         }
                
 }        
            }
    }
}
}