Perl 对 Windows 注册表的操作

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

 use Win32::Registry ;

 $key = "SOFTWARE\\newKey";
 $HKEY_LOCAL_MACHINE->Open($key,$keyList);
 print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
 $keyList->GetKeys(\@subKeys);
 $numberOfSubKeys = @subKeys;
 print "\tThere is $numberOfSubKeys key\n";
 foreach $subKey (@subKeys){
    print "\t\t$subKey\n";
 }
 print "\nCreating the Perl6 Key\n";
 $keyList->Create("Perl6",$newKeyList);
 print "Under HKEY_LOCAL_MACHINE\n\tyourValue\n";
 $keyList->GetKeys(\@newSubKeys);
 $numberOfSubKeys = @newSubKeys;
 print "\tThere are now $numberOfSubKeys keys\n";
 foreach $subKey (@newSubKeys){
       print "\t\t$subKey\n";
 }
 $keyList->Close();
 $newKeyList->Close();

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。