Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: A problem when modify a pm

by Athanasius (Monsignor)
on Dec 19, 2012 at 05:58 UTC ( #1009501=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    BEGIN {
        $PACK    = 'Win32::TieRegistry';
        $VERSION = '0.26';
        @ISA     = 'Tie::Hash';
    }
    
  2. or download this
    BEGIN {
        $PACK    = 'Win32::TieRegistry64';
        $VERSION = '0.26';
        @ISA     = 'Tie::Hash';
    }
    
  3. 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" );
    
  4. 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" );
    
  5. or download this
    15:39 >perl -Mstrict -MWin32::TieRegistry64 -wE "say $Registry;"
    Win32::TieRegistry64=HASH(0x17155bc)
    
    15:55 >
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1009501]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2014-12-18 01:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (41 votes), past polls