Thread Neue Registry mit alter vergleichen
(27 answers)
Opened by s8jascho at 2012-08-17 09:25
Moin moin.
Ich habe das Clone-Modul einmal ausprobiert und auch dieses scheint nur wieder Referenzen zu beherbergen, vorausgesetzt ich benutze es richtig. Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 #! /usr/bin/perl use Clone qw(clone); use Win32::TieRegistry; $Registry->Delimiter("/"); my $entries = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/"}; my $copyOfEntries = clone($entries); print $entries->{'/SnapshotMonitors'}; print $copyOfEntries->{'/SnapshotMonitors'}; $entries->{'/SnapshotMonitors'} = ["2","REG_SZ"]; print $entries->{'/SnapshotMonitors'}; print $copyOfEntries->{'/SnapshotMonitors'}; $entries->{'/SnapshotMonitors'} = ["2","REG_SZ"]; Die richtige Ausgabe bei meinen Einstellungen in der Registry müsste eigentlich: 1121 lauten. Ausgegeben wird allerdings: 1122. |