windows - 使用 Win32::Registry 在 Linux 机器中出现问题

Question

我的 perl 脚本必须在 Windows 和 Linux 服务器上运行。随着脚本的运行，我必须为特定的事情更新注册表。当我使用“使用 Win32::Registry”时，它在 Windows 上运行良好，但在 Linux 上，无论以下 if 语句如何，它都会出错。

if ($OS =~ /Windows/ )
{
use Win32::Registry;
...
...
}

在我看来，perl 在编译时加载“使用”，这一定是问题所在。我该怎么做才能让 Perl 在 Linux 上运行时不加载 use win 32 命令？

我试过用

if ($OS =~ /Windows/ )
{
require Win32::Registry;
...
...
} 

有了这个，脚本在两台服务器上运行良好，但它在注册表中保存二进制值而不是字符串值。

那么如何让 Perl 脚本在两台服务器上运行并将字符串值保存在注册表中呢？

谢谢。

Answer 1

use Foo;

是

BEGIN {
   require Foo;
   import Foo;
}

所以用

BEGIN {
   if ($OS =~ /Windows/)
      require Win32::Registry;
      import Win32::Registry;
   }
}

或

use if $OS =~ /Windows/, 'Win32::Registry';

• > use
• > if pragma