Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
my $reg = new Win32::TieRegistry $PID_KEY_ROOT, {Delimiter=>"\\"};
print "$reg\n";
$reg->CreateKey($PID_KEY) or die("$^E\n");
  2. or download this
    Use of uninitialized value $reg n concatenation <.> or string at test.
+pl line 8.
Can't call method "CreateKey" on an undefined value at test.pl line 9.
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
my $reg = new Win32::TieRegistry $PID_KEY_ROOT,{Access=>"KEY_READ",Del
+imiter=>"\\"};
print "$reg\n";
$reg->CreateKey($PID_KEY) or die("$^E\n");
  4. or download this
     my $reg = new Win32::TieRegistry $PID_KEY_ROOT,{Access=>"KEY_READ",Delimiter=>"\\"};
  5. or download this
     
$reg->CreateKey($PID_KEY)