Hallo freunde, ich bin ein Anfänger und brauche eure Hilfe,ich möchte ein Program schreiben das: der Schlüssel(in der Registry) liest, und nach dem Wert was er gelesen hat, irgendwas dahinter schreiben. das habe ich bis jetzt mit diesem Code hier unten geschaft. Aber Davor muss ich checken ob der Wert was ich schreiben möchte schon exestiert oder nicht. wenn nicht dann schreibe ich das nach dem Alten Wert und wenn es exestiert dann sagt es mir "schon exestiert".
und Danke euch für eure Hilfe . use StandLib;
use strict;
use Tk;
use Win32::Registry;
use Win32::TieRegistry;
my $lesenusr;
#---------Wert der Umgebungsvariable Auslesen mit $lesen-----------------------
$Registry->Delimiter("/");
$key = $Registry->{"/CUser/Environment/"};
$lesenusr = $key->{"/PITEST"};
print "$lesenusr\n";
#undef %key;
#-------- $lesen: Wert der Variable + Zeichen Dahinter schreiben --------------
$Registry->Delimiter("/");
$key = $Registry->{"CUser/"};
$key->{"Environment/"} = {
"/PITEST" => "$lesenusr\;C:\\Windows",
};
print "RegistrierungsDatenbank wieder aktualisiert!\n";
Datum: 16.03.2007-15:48
Registry
