Select Code to Download

Select or download this

BEGIN {
    $PACK    = 'Win32::TieRegistry';
    $VERSION = '0.26';
    @ISA     = 'Tie::Hash';
}

Select or download this

BEGIN {
    $PACK    = 'Win32::TieRegistry64';
    $VERSION = '0.26';
    @ISA     = 'Tie::Hash';
}

Select or download this

# Basic master Registry object:
$RegObj= {};
@$RegObj{qw( HANDLE MACHINE PATH DELIM OS_DELIM ACCESS FLAGS ROOTS )}=
+ (
    "NONE", "", [], "\\", "\\",
    KEY_READ|KEY_WRITE, $Flag_HexDWord|$Flag_FixNulls, "${PACK}::_Root
+s" );

Select or download this

# Basic master Registry object:
sub KEY_WOW64_64KEY () { 0x0100 }
...
@$RegObj{qw( HANDLE MACHINE PATH DELIM OS_DELIM ACCESS FLAGS ROOTS )}=
+ (
    "NONE", "", [], "\\", "\\",
    KEY_READ|KEY_WRITE|KEY_WOW64_64KEY|KEY_WOW64_32KEY, $Flag_HexDWord
+|$Flag_FixNulls, "${PACK}::_Roots" );

Select or download this

15:39 >perl -Mstrict -MWin32::TieRegistry64 -wE "say $Registry;"
Win32::TieRegistry64=HASH(0x17155bc)

15:55 >