perl - 使用 Perl 的 Win32::Registry 时如何修复 `"main::HKEY_LOCAL_MACHINE"used once once` 警告？

Question

我有一个可以获取注册表键值的脚本。这是代码。

    use strict;
    use warnings;

    my $winRegistryStatus=0;

    eval {
       require Win32::Registry;
       Win32::Registry->import();
    };
    unless($@) {
       $winRegistryStatus=1;
    }

    my $registryPath = "Self\Random";
    my $keyName = "Configure";
    my $registryKeySettings;
    my %registrySubKeyValues;

    $main::HKEY_LOCAL_MACHINE->Open($registryPath, $registryKeySettings) || die "Cannot open $registryPath: $!";
    $registryKeySettings->GetValues(\%registrySubKeyValues); # get sub keys and value -hash ref
    foreach my $subKey (keys %registrySubKeyValues) {
        my $_subKey = $registrySubKeyValues{$subKey};
        next unless $$_subKey[0] eq $keyName;
        print "Configure=" . $$_subKey[2];
    }

输出

   Name "main::HKEY_LOCAL_MACHINE" used only once: possible typo at ....
   Configure=Yes

我可以获得 Configure 的值，但它也会返回一个警告，我不知道如何修复它。

有没有人告诉我我哪里错了，可以告诉我如何解决？

谢谢。

Answer 1

“仅使用一次”是一个警告，表示使用警告 问题是因为您只使用了一次$main::HKEY_LOCAL_MACHINE。你在这里没有错。这只是一个提示，表明您可能忘记了什么。

在这种情况下，您可以忽略它，或者简单地停用那种警告:没有警告“一次”。

一般来说，将这些内容包含在 BLOCK 中并向其中添加一个长的描述性注释来解释为什么要在此处关闭这种警告是个好主意。

{ # Disable 'used only once' warning because the $::HKEY_...
  # var was imported by Win32::Registry and is not used anywhere else.
  $main::HKEY_LOCAL_MACHINE->Open($registryPath, $registryKeySettings) 
    || die "Cannot open $registryPath: $!";
}

您可以找到有关警告的更多信息here .