Perl 对 Windows 注册表的操作

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

 use Win32::Registry ;

 $key = "SOFTWAREnewKey";
 $HKEY_LOCAL_MACHINE->Open($key,$keyList);
 print "Under HKEY_LOCAL_MACHINEntyourValuen";
 $keyList->GetKeys(@subKeys);
 $numberOfSubKeys = @subKeys;
 print "tThere is $numberOfSubKeys keyn";
 foreach $subKey (@subKeys){
    print "tt$subKeyn";
 }
 print "nCreating the Perl6 Keyn";
 $keyList->Create("Perl6",$newKeyList);
 print "Under HKEY_LOCAL_MACHINEntyourValuen";
 $keyList->GetKeys(@newSubKeys);
 $numberOfSubKeys = @newSubKeys;
 print "tThere are now $numberOfSubKeys keysn";
 foreach $subKey (@newSubKeys){
       print "tt$subKeyn";
 }
 $keyList->Close();
 $newKeyList->Close();

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!