用perl操作注册表的一些基本函数（转） z

最新推荐文章于 2018-10-11 09:31:00 发布
最新推荐文章于 2018-10-11 09:31:00 发布
阅读量817 收藏
点赞数
分类专栏： ALL Perl 文章标签： perl list access object descriptor attributes
ALL 同时被 2 个专栏收录
200 篇文章 0 订阅
订阅专栏
Perl
52 篇文章 0 订阅
订阅专栏

用perl操作注册表的一些基本函数

Tag： 学习笔记

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://n0thing.blogbus.com/logs/237690.html

一 Open():

语法：
$object->Open($RegistryObj,$hKey);
$object A part of the registry.
$RegistryObj The key under the $object you want to explore.
$hKey Handle of the opened key.
$object:
$HKEY_LOCAL_MACHINE
$HKEY_USERS
$HKEY_CURRENT_USER
$HKEY_CLASSES_ROOT
$HKEY_CURRENT_CONFIG

示例：
use Win32::Registry;
my $Register = "SOFTWARE//Microsoft";
my ($hkey,@key_list,$key);

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
$hkey->GetKeys(/@key_list);
print "$Register keys/n";
foreach $key (@key_list)
{
print "$key/n";
}
$hkey->Close();

二 OpenEx():

语法：
$object->OpenEx($SubKey,$Filename,$hKey);
$object A part of the registry.
$Sam Security Access Mask.
$hKey Handle of the opened key.
$Sam：
KEY_ALL_ACCESS：Full access (read, write, delete)
KEY_READ：Read-only access
KEY_WRITE：Write-only access

示例：
use Win32::Registry;
my $Register = "SOFTWARE//Microsoft";
my ($hkey,@key_list,$key);

$HKEY_LOCAL_MACHINE->OpenEx($Register,KEY_ALL_ACCESS,$hkey)|| die $!;
$hkey->GetKeys(/@key_list);
print "$Register keys/n";
foreach $key (@key_list)
{
print "$key/n";
}
$hkey->Close();
注：Code to add to /perl5/lib/Win32/Registry.pm

#Cut & Paste this sub in /perl5/lib/win32/registry.pm
#--------------------%<---------%<----------------------------
sub OpenEx
{
my $self = shift;

if( $#_ != 2 ){
die 'usage: OpenEx( $SubKey, $Sam, $ObjRef )';
}

local ($SubKey,$Sam) = @_;
local ($Result,$SubHandle,$Garbage);
undef $Garbage;

$Result = Win32::RegOpenKeyEx($self->{'handle'},$SubKey,$Garbage,$Sam,$SubHandle);
$_[2] = _new( $SubHandle );

if (!$_[2] ){
return 0;
}

($! = Win32::GetLastError()) if(!$Result);

# return a boolean value
return($Result);
}

三 connect()

语法：
$object->Connect( $Node,$ObjRef );
$object A part of the registry.
$Node UNC of a Windows computer, ex : LUKE.
$ObjRef Handle of the opened key.

示例：
use Win32::Registry;
my ($node) = 'MyComputer';
my ($hNode,$Key,%values);

$HKEY_LOCAL_MACHINE->Connect($node,$hNode)|| die"Cannot connect to $node";
$hNode->Open("SOFTWARE//Microsoft//Windows NT//CurrentVersion",$hKey)|| die "cannot open regitsry";
$hKey->GetValues(/%values);
$hKey->Close();
$hNode->Close();
foreach (keys(%values))
{
print "Value $_,data = $values{$_}[2]/n";
}
注：Code to add to /perl5/lib/Win32/Registry.pm

#Hack send by Frederick, Michael
#Cut & Paste this sub in /perl5/lib/win32/registry.pm
#--------------------%<---------%<----------------------------
sub Connect
{
my $self = shift;

if( $#_ != 1 )
{
die 'usage: Connect( $Node, $ObjRef )';
}

local ($Node) = @_;
local ($Result,$SubHandle);

$Result = RegConnectRegistry ($Node, $self->{'handle'}, $SubHandle);
$_[1] = _new( $SubHandle );

return 0 if (!$_[1] );

($! = Win32::GetLastError()) if(!$Result);

# return a boolean value
return($Result);
}

四 GetKeys()

语法：
$hkey->GetKeys(/@Key_list);
$hkey Pointer to a key of the registry.
@Key_list Array with all the subkeys.

示例：
use Win32::Registry;
my $Register = "SOFRWARE//Microsoft";
my ($hkey,@key_list,$key);

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
$hkey->GetKeys(/@key_list);
print "$Register keys/n";
foreach $key (@key_list)
{
print "$key/n";
}
$hkey->Close();

五 GetValues

语法：
$hkey->GetValues(/%values);
$hkey Pointer to a key of the registry.
%values Hash (Name, Type, Value) for each value.
value:
0 REG_NONE
1 REG_SZ
2 REG_EXPAND_SZ
3 REG_BINARY
4 REG_DWORD
REG_DWORD_LITTLE_ENDIAN
5 REG_DWORD_BIG_ENDIAN
6 REG_LINK
7 REG_MULTI_SZ
8 REG_RESOURCE_LIST
9 REG_FULL_RESOURCE_DESCRIPTOR
10 REG_RESSOURCE_REQUIREMENT_MAP

示例：
use Win32::Registry;
my %RegType = (
0 => 'REG_0',
1 => 'REG_SZ',
2 => 'REG_EXPAND_SZ',
3 => 'REG_BINARY',
4 => 'REG_DWORD',
5 => 'REG_DWORD_BIG_ENDIAN',
6 => 'REG_LINK',
7 => 'REG_MULTI_SZ',
8 => 'REG_RESOURCE_LIST',
9 => 'REG_FULL_RESOURCE_DESCRIPTION',
10 => 'REG_RESSOURCE_REQUIREMENT_MAP');

my $Register = "Software//MICROSOFT//Java VM";
my $RegType, $RegValue, $RegKey, $value;
my %values;

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;

$hkey->GetValues(/%values);

foreach $value (keys(%values))
{
$RegType = $values{$value}->[1];
$RegValue = $values{$value}->[2];
$RegKey = $values{$value}->[0];
next if ($RegType eq ''); #do not print default value if not assigned
$RegKey = 'Default' if ($RegKey eq ''); #name the default key
print "$RegKey";
print " ($RegType{$RegType}) : ";

SWITCH:
{
if ($RegType == 4)
{printf "Ox%1x /n", unpack("L",$RegValue); last SWITCH; }
if ($RegType == 5)
{printf "Ox%1x", unpack("N",$RegValue); last SWITCH; }
if ($RegType < 8 )
{printf "$RegValue/n"; last SWITCH; }
print "/n";
}
}
$hkey->Close();

六 Create()

语法：
$hkey->Create($key,$subkey);
$hkey Pointer to a key of the registry.
$key Name of a key to open or to create.
$subkey Receives the handle of the opened or created key.

示例：
use Win32::Registry;
my $Register = "SOFTWARE";
my $hkey,$SubKey;

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
$hkey->Create("LanSing",$SubKey);
$hkey->Close();

七 DeleteKey()

语法：
$hkey->DeleteKey($subkey);
$hkey Pointer to a key of the registry.
$subkey Name of subkey to delete.
示例：
use Win32::Registry;
my $Register = "SOFTWARE";
my $hkey;

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
$hkey->DeleteKey("LanSing");
$hkey->Close();

八 DeleteValue()

语法：
$hkey->DeleteValue($Name);
$hkey A currently open key.
$Name Name of value to delete.

示例：
use Win32::Registry;
my $Register = "SOFTWARE//LanSing";
my $hkey;

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
$hkey->DeleteValue("TheValue");
$hkey->Close();

九 SetValue()

语法：
$hkey->SetValue($subkey,$type,$value);
$hkey A currently open key.
$subkey Name of subkey to modify.
$type This parameter must be of REG_SZ type.
$value Name of the value.
示例：
use Win32::Registry;
my $Register = "SOFTWARE//LanSing";
my $hkey;

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
$hkey->SetValue("lansing",REG_SZ,"successful");
$hkey->Close();
注：其实是在"SOFTWARE//LanSing"下建一个名为"lansing"的子键，使其默认的数值数据是"successful".

十 SetValueEx()

语法：
$hkey->SetValueEx($ValueNam,$Reserved,$Type,$Data);
$hkey A currently open key.
$ValueName Name of the value to set.
$Reserved Must be NULL (undef).
$Type Type of the value.
$Data The value or data.
示例：
use Win32::Registry;
my $Register = "SOFTEARE//LanSing";
my $hkey;

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
undef $garbage;
$hkey->SetValueEx("TheName",$garbage,REG_SZ,"successful");
$hkey>Close();
注：在"SOFTEARE//LanSing"这个键下增加一项，名称是"TheName"，类型是"REG_SZ",键值是"successful"，
    注意和上面函数的区。

十一 QueryValue()

语法：
$hkey->QueryValue($SubKey,$Value);
$hkey A currently open key.
$SubKey Name of subkey to query.
$Value Value of the unnamed value

示例：
use Win32::Registry;
my $Register = "Software//LanSing";
my $hkey, $value;

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
$hkey->QueryValue($subkey,$value);
print "the unnamed value is : ";
if ($value eq '')
{
print "undefined/n";
}
else
{
print "$value/n";
}
$hkey->Close();
注：得到的是"Software//LanSing"默认的键值。

十二 QueryKey()

语法：
$hkey->QueryKey($SubKey,$Value);
$hkey A currently open key.
$SubKey Number of subkeys contained by the specified key. Can be NULL.
$Value Number of values associated with the key. Can be NULL.

示例：
use Win32::Registry;
my $Register = "SOFTWARE//LanSing";
my $hkey;

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
$hkey->QueryKey($subkeys,$values);
print "$subkeys keys, $values values/n";
$hkey->Close();
注：ActivePerl-5.6.1.635-MSWin32-x86.msi版本的QueryKey函数用法是：
usage: $obj->QueryKey($classref, $number_of_subkeys, $number_of_values)

十三 Save()

语法：
$hkey->Save($Filename);
$hkey A currently open key.
$Filename File name ! This file cannot already exist.
If this filename includes an extension, it cannot be used on FAT file systems
by the Load function. The file will have the System, Hidden and Read-Only
attributes setted (before you began searching around ...)!

示例：
use Win32::Registry;
my $Register = "SOFTWARE//LanSing";
my $hkey;

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
if(IsWin95())
{
$hkey->Save("c://just_in_case")
}
else
{
$hkey->Save("c://just_in_case.reg");
}
$hkey->Close();
注：IsWin95()这个函数在ActivePerl-5.6.1.635-MSWin32-x86.msi版本中没定义？

十四 Load()

语法：
$hkey->Load($SubKey,$Filename);
$hkey A currently open key.
$SubKey Name of the key to be created under hkey.
$Filename Filename

示例：
use Win32::Registry;
my $Register = "";
my $subkey = "MyHomeKey";

$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;
$hkey->Load($subkey,"c://just_in_case.reg");
$hkey->Close();


<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
KataDoc360
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
perl的注册表添加（附件Perl.reg）
12-16
win7+bugzilla+apache+mysql+activePerl环境安装bugzill时： Perl安装 安装： 将ActiveState Perl 安装到C:/Perl64 或C:/Perl 最好是5.16版本，ActivePerl-5.16.3.1604-MSWin32-x64-298023.msi 安装 Modules(下面的重点推荐方法比较简易一些) Bugzilla 需要安装一些perl模块，请确保你的计算机能连接到internet，所有需要模块都在http://landfill.bugzilla.org/ppm/ C:\>cd bugzilla C:\cd bugzilla>ppm 进入DOS命令行，输入ppm,或通过运行安装perl时创建的快捷方式，在开始ActivePerl_5.1 程序Perl Package Manager 从而启动ppm(图形界面)来选择需要升级的包。 需要升级如下包: AppConfig TimeDate DBI DBD-mysql Template-Toolkit MailTools GD Chart GDGraph GDTextUtil PatchReader Net::LDAP 修改perl注册表 下载附件，解压，编辑后，双击即可添加到注册表。 C:\\Perl64\\bin\\perl.exe是我的安装目录，可以修改为你自己的perl安装路径
使用Perl DBI操作MySQL的一些建议
12-15
以下是一些使用Perl DBI操作MySQL时的重要建议和注意事项： 1. **字符集设置**： 当MySQL数据库的字符集设置为UTF8时，为了确保数据的正确读取和显示，Perl脚本也需要进行相应的配置。引入`use utf8;`声明源代码中...
用Perl显示注册表信息
斑竹的程序设计专栏
10-22 1803
List Registry PropertiesDescriptionReturns information about the computer registry. This script was tested using Perl 5.8.0.804 for Microsoft Windows, available from ActiveState. Supported PlatformsWi
[转载]用perl操作注册表的一些基本函数
weixin_33725807的博客
09-22 92
用perl操作注册表的一些基本函数 版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明 http://n0thing.blogbus.com/logs/237690.html 一 Open(): 语法： $object->Open($RegistryObj,$hKey); $object A part of the registry. $RegistryObj The ...
Perl: class method and instance method
liken的专栏
08-18 1051
类函数调用Class->method(@arg)===================Class::method('Class', @args);第一个参数是类名称对象(实例)函数调用Instance->method(@arg)=================Class::method(Instance, @arg);bless的解释可参见http://bbs2.chinaunix.net/viewthread.php?tid=981190bless in perldochttp://perldoc.pe
Perl参考函数
weixin_34178244的博客
07-28 144
这是标准的Perl解释器所支持的所有重要函数/功能的列表。在一个函数中找到它的详细信息。 abs - 绝对值函数 accept - 接受传入的socket连接 alarm - 调度一个SIGALRM atan2 -Y/X的反正切值，范围在-PI到PI bind - 地址绑定到一个套接字 binmode - 准备二进制文件I / O bless - 创建一个对象 caller -...
perl中的字符串操作函数chomp与chop介绍
09-22
在Perl编程语言中，字符串操作是非常常见的任务，其中`chomp`和`chop`是两个经常被用来处理字符串尾部字符的函数。这两个函数虽然都能去除字符串末尾的字符，但它们的功能和使用场景有所不同。 `chomp`函数主要用于...
Perl Substr()函数及函数的应用
09-03
Perl的Substr()函数是一个非常实用的字符串操作工具，它允许程序员从一个较大的字符串中提取出指定部分的子字符串，或者进行替换操作。在Perl编程中，Substr()函数经常被用来处理字符串截取和修改的需求。 Substr()...
perl uc,lc,ucfirst,lcfirst大小写转换函数
09-21
Perl提供了一系列内置函数用于字符串操作，其中包括非常实用的大小写转换函数：`uc`, `lc`, `ucfirst`, 和 `lcfirst`。这些函数可以帮助开发者轻松地对字符串中的字符进行大小写转换，提高编程效率。 #### 字符串大...
Perl时间处理函数用法介绍
09-21
Perl时间处理函数是Perl编程语言中用于管理日期和时间的核心工具。这些函数允许开发者方便地进行日期和时间的计算、格式化以及与操作系统交互。在Perl中，时间通常以“纪元秒”（Unix时间戳）的形式存储，即从1970年...
注册表(regedit)使用技巧
11-22
注册表全攻略,reg文件全攻略 有的时候为了方便修改注册表，我们会制作一些脚本，但是不管是inf文件还是vbs脚本
Perl执行shell命令的几种方式及其区别
博主是个懒蛋
02-24 4414
There are many ways to execute external commands from Perl. The most commons are: system functionexec functionbackticks (``) operatoropen function All of these methods have different behaviour, so
Perl常用的预定义变量
weixin_34059951的博客
04-24 202
Perl提供了大量的预定义变量，下面列举了常用的一些预定义变量：$_在执行输入和模式搜索操作时使用的默认空格变量 $.文件中最后处理的当前行号 $@由最近一个eval()运算符提供的Perl语法报错信息 $!获取当前错误信息值，常用于...
各种手动安装Win32 Perl module的方法
volts_j的专栏
10-20 1251
> HOW TO INSTALL:> - IF you are using the core distribution of Win32 Perl:> a) Copy the ADMINMISC.PM file into the directory> perl/lib/site/win32> b) Rena
System Security Administration for NT
09-19 1314
Network Solutions  http://www.networksolutions.com  Abstract System security administration has, for the most part, been largely ignored as network administration has flourished. The result of this is
windows下Perl开发环境的安装和配置
xnix相关的收藏
10-27 1818
Perl是一种深受世界各地开发者喜爱的实用摘要和报表语言，虽然它是在Unix上诞生和发展起来的，但在Windows编程领域也已经占有一席之地。 在ActiveState等公司的领导之下，从1995年中期开始Perl开始了稳定地发展，不仅增加了标准的Perl功能，而且增加了许多面向Windows的功能，比如OLE和COM集成等。 事实上，到目前为止所有Perl程序员都已经能够确信，自己为UNIX服务
Perl导入代码文件
weixin_33897722的博客
10-11 259
从函数复用开始：eval和do执行perl文件 当我们定义了一个功能比较通用的子程序，比如获取数值的绝对值。想要到处使用这个子程序，就得不断复制、粘贴这段绝对值函数的定义文本。显然，这是不太理想的方式。 于是，就将包含这个子程序的代码放进一个perl文件，然后通过特殊的语法去导入这个文件。 例如，文件sum.pm包含一个sum子程序，该子程序返回参数相加之和。 #!/usr/bin/env per...
Perl语言：从历史到转换操作与特点
首先，通过示例展示了如何使用Perl进行DNA序列的反转和补变操作： ```perl my $DNAseq = "ACTACTAGCGCATATAT"; print "DNA sequence is\t$DNAseq\n"; my $reverseq = reverse $DNAseq; print "reversed DNA ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值