Neue Registry mit alter vergleichen - #161153 (Allgemeines zu Perl)

s8jascho

2012-08-20 13:19

User since
2012-08-17
14 Artikel
BenutzerIn
[default_avatar]

Okay, die Fehlermeldung existiert schon einmal nicht mehr.
Allerdings ist die Variable $copy nach Aufruf undefined.

Code (perl): (dl )

use Win32::TieRegistry;
use JSON -convert_blessed_universally;
$Registry->Delimiter("/");
my $entries = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/"};
$copy = from_json(to_json($entries, { allow_blessed => 1, convert_blessed => 1 }));