从 Perl 中的 Windows 注册表读取[重复]

我试图在不检查一系列硬编码路径的情况下获取程序的安装位置，希望从 Windows 注册表中存储的路径中获取它，但是当我尝试读取所需的键值。

我读过关于使用 Perl 解析 Windows 注册表，我想我已经将所有答案合并到我的脚本中，但是当我尝试读取注册表值时，即使从提升的命令提示符运行以确保脚本具有管理员权限，我总是得到空结果。

我首先尝试使用 Win32::TieRegistry，正如前面提到的，返回值是空的，所以然后我尝试只是剔除并使用reg query，但这会给出有关未找到密钥的错误。运行相同reg queryPerl 外部的命令成功读取密钥。我究竟做错了什么？

Update:根本原因（在我收到的几个答案中指出）是试图从 32 位 Perl 访问 64 位注册表视图;默认情况下，Windows 中的任何 32 位应用程序都会重定向到HKLM\Software\WOW6432Node当尝试访问时HKLM\Software钥匙，所以我需要找到一种方法来避免这种情况，因为我感兴趣的钥匙不存在于该位置。

Perl 脚本：

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use Win32::TieRegistry (Delimiter => '/');

my $mykey = $Registry->{'HKEY_LOCAL_MACHINE/Software/ikv++ technologies ag/medini unite (x64)'};
my $mykeyval = $mykey->{'/Path'};

print " value=$mykeyval\n";

print Dumper $mykey;

my $sysCmd =`reg query "HKLM\\Software\\ikv++ technologies ag\\medini unite (x64)" /v Path`;
print " sysCmd=$sysCmd\n";

Output:

C:\Users\username\AppData\Local\Temp>perl test_reg_read.pl
Use of uninitialized value in concatenation (.) or string at test_reg_read.pl line 9.
 value=
$VAR1 = {};
ERROR: The system was unable to find the specified registry key or value.
 sysCmd=

Manual reg queryPerl 之外的命令：

C:\Users\username\AppData\Local\Temp>reg query "HKLM\Software\ikv++ technologies ag\medini unite (x64)" /v Path

HKEY_LOCAL_MACHINE\Software\ikv++ technologies ag\medini unite (x64)
    Path    REG_SZ    C:\Program Files\ikv++ technologies ag\mediniUnite

请注意，所有这些现在都是从提升的命令提示符运行的；一旦它在那里工作，我就会尝试一下是否有必要。

您使用的是 64 位操作系统和 32 位 perl 这意味着当从 perl 运行时，您实际上获得的是 WOW6432Node 中的值，而不是您想要的键

你需要使用 64 位 perl。

例如从我自己的机器上

λ c:\Strawberry\perl\bin\perl
my $sysCmd = `reg query  "HKLM\\SOFTWARE\\VMware, Inc.\\VMware Drivers" /v vmci.status`;
print $sysCmd;
^D
ERROR: The system was unable to find the specified registry key or value.

λ c:\Strawberry\perl\bin\perl
my $sysCmd = `reg query "HKLM\\SOFTWARE\\VMware, Inc.\\VMware USB" /v InstallPath`;
print $sysCmd;
^D

HKEY_LOCAL_MACHINE\SOFTWARE\VMware, Inc.\VMware USB
    InstallPath    REG_SZ    C:\Program Files (x86)\Common Files\VMware\USB\

其中“ HKEY_LOCAL_MACHINE\SOFTWARE\VMware, Inc.\VMware USB”位于 WOW6432Node 中，而驱动程序不在 WOW6432Node 中。

这会影响从 perl 运行的命令和模块。

[为了完整性而编辑] 显然有一种方法可以从 32 位 Perl 获取 64 位密钥，如讨论底部所示http://www.perlmonks.org/?node_id=1007098