为什么 Win32::TieRegistry 无法列出子项？

Question

使用 Cygwin Perl v5.8.8 和 Win32::TieRegistry 0.26。

我们可以为 HKEY_CURRENT_USER 获取绑定哈希对象：

$ perl -e '
my %RegHash;
use Win32::TieRegistry( TiedHash => \%RegHash );
use Data::Dumper;
my $Key = $RegHash{"HKEY_CURRENT_USER"};
print Dumper $Key;'
$VAR1 = bless( {}, 'Win32::TieRegistry' );

这适用于子键：

$ perl -e '
my %RegHash;
use Win32::TieRegistry( TiedHash => \%RegHash );
use Data::Dumper;
my $Key = $RegHash{"HKEY_CURRENT_USER\\Software"};
print Dumper $Key;'
$VAR1 = bless( {}, 'Win32::TieRegistry' );

我们可以打印该键的信息：

$ perl -e '
my %RegHash;
use Win32::TieRegistry( TiedHash => \%RegHash );
use Data::Dumper;
my $Key = $RegHash{"HKEY_CURRENT_USER\\Software"};
print Dumper $Key->Information;'
$VAR1 = 'CntSubKeys';
$VAR2 = 48;
$VAR3 = 'MaxSubClassLen';
$VAR4 = 21;
...

但是文档暗示我们可以简单地通过将其视为哈希来列出子键：

$ perl -e '
my %RegHash;
use Win32::TieRegistry( TiedHash => \%RegHash );
use Data::Dumper;
my $Key = $RegHash{"HKEY_CURRENT_USER\\Software"};
print Dumper keys %$Key; '

但是数组是空的。 它坏了还是我做错了什么？ 还有其他方法列出子键吗？

这也不起作用：

$ perl -e '
my %RegHash;
use Win32::TieRegistry( TiedHash => \%RegHash );
use Data::Dumper;
my $Key = $RegHash{"HKEY_CURRENT_USER\\Software"};
print Dumper $Key->SubKeyNames;'
Can't use an undefined value as an ARRAY reference at
/usr/lib/perl5/vendor_perl/5.8/cygwin/Win32/TieRegistry.pm line 720.

Answer 1

使用您的代码：

my %RegHash;
use Win32::TieRegistry( TiedHash => \%RegHash );
use Data::Dumper;
my $Key = $RegHash{"HKEY_CURRENT_USER\\Software"};
print Dumper keys %$Key;

我在我的机器上得到了这个结果（WinXP，ActiveState Perl v5.10.0，Win32-TieRegistry 0.25）：

$VAR1 = 'Adobe\\';
...
$VAR101 = 'Classes\\';
$VAR102 = '\\';

这就是我从您的第二个代码示例中得到的结果：

$VAR1 = 'Adobe';
...
$VAR101 = 'Classes';

所以您的两个代码示例在 ActiveState Perl 上都工作正常至少是Windows XP。

编辑：这看起来像一个更普遍的问题/错误：

• TieRegistry 模块无法枚举值 在community.activestate.com
• Win32::TieRegistry 错误（或者是我？） prlmnks.org 上的
• weblog.siliconcerebrate 上的博客文章。 com
• 整件事似乎与 Windows Vista 有关