Chinaunix

标题: Perl 对 Windows 注册表的操作 [打印本页]
作者: life-boy    时间: 2011-03-23 22:41
标题: Perl 对 Windows 注册表的操作
[代码] 新建键值
  1. use Win32::Registry ;

  3. $key = "SOFTWARE\\newKey";
  4. $HKEY_LOCAL_MACHINE->Open($key, $keyList);
  5. print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
  6. $keyList->GetKeys(\@subKeys);
  7. $numberOfSubKeys = @subKeys;
  8. print "\tThere is $numberOfSubKeys key\n";
  9. foreach $subKey (@subKeys){
  10.    print "\t\t$subKey\n";
  11. }
  12. print "\nCreating the Perl6 Key\n";
  13. $keyList->Create("Perl6",$newKeyList);
  14. print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
  15. $keyList->GetKeys(\@newSubKeys);
  16. $numberOfSubKeys = @newSubKeys;
  17. print "\tThere are now $numberOfSubKeys keys\n";
  18. foreach $subKey (@newSubKeys){
  19.       print "\t\t$subKey\n";
  20. }
  21. $keyList->Close();
  22. $newKeyList->Close();
复制代码
[代码] 删除键值
  1. use Win32::Registry;

  3. $key = "SOFTWARE\\yourValue";
  4. $HKEY_LOCAL_MACHINE->Open($key, $keyList);
  5. print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
  6. $keyList->GetKeys(\@subKeys);
  7. $numberOfSubKeys = @subKeys;
  8. print "\tThere are $numberOfSubKeys keys\n";
  9. foreach $subKey (@subKeys){
  10.    print "\t\t$subKey\n";
  11. }
  12. $key = "newKey";
  13. print "\nDeleting the $key Key\n";
  14. if (!$keyList->DeleteKey($key)){
  15.    print "Failed to delete $key\n";
  16. }
  17. print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
  18. $keyList->GetKeys(\@newSubKeys);
  19. $numberOfSubKeys = @newSubKeys;
  20. print "\tThere are now $numberOfSubKeys key\n";
  21. foreach $subKey (@newSubKeys){
  22.    print "\t\t$subKey\n";
  23. }
  24. $keyList->Close();
复制代码
[代码] 创建新键
  1. #!/usr/bin/perl -w

  3. use Win32::Registry;

  5. $key_name = "SOFTWARE\\YourKey";

  7. $status = $HKEY_LOCAL_MACHINE->Create( $key_name, $keyobj );

  9. if ($status) {

  11.     $keyobj->SetValueEx( 'Value',  # Name
  12.         0,        # Reserved.
  13.         REG_SZ,   # Type
  14.         'Comments' );


  17.     $keyobj->Close();
  18. }
复制代码
[代码] 读取注册表信息
  1. use Win32::Registry;
  2. $| = 1;
  3. $key = "HARDWARE";
  4. $HKEY_LOCAL_MACHINE->Open($key, $nextKeyList);
  5. listKeys($nextKeyList);
  6. sub listKeys(){
  7.    $count++;
  8.    my ($keyList) = @_;
  9.    my ($nextObj, @subKeys, $subKey);
  10.    $keyList->GetKeys(\@subKeys);
  11.    foreach $subKey (@subKeys){
  12.       $tabString = "   " x $count;
  13.       print "$tabString $subKey\n";
  14.       $keyList->Open($subKey, $nextKeyList);
  15.       listKeys($nextKeyList);
  16.       $count--;
  17.    }
  18.    $keyList->Close();
  19. }
复制代码
作者: brainwang198206    时间: 2011-05-06 11:08
回复 1# life-boy


  学习了，非常感谢。



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2