1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| use strict;
use Data::Dumper;
use Win32::TieRegistry 0.20 qw(
TiedRef $Registry
Delimiter / ArrayValues 1 SplitMultis 1 AllowLoad 1
REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
KEY_READ KEY_WRITE KEY_ALL_ACCESS
);
my $key= $Registry->Open( "LMachine/Software/Test/", {Access=>KEY_READ(),Delimiter=>"/"} )
or die "Can't open HKEY_LOCAL_MACHINE key: $^E\n";
### Affiche la clé
print Dumper($key);
### Sauvegarde dans un fihier
$key->AllowSave( 1 );
$key->RegSaveKey( "d:/test/DiskReg", [] );
### modification de la clé de registre
system("pause");
### restauration de la clé
$key->AllowLoad( 1 );
$key->RegRestoreKey($key,"d:/test/DiskReg"); |