如果我在Windows上，如何有条件地使用Perl模块？

Question

以下Perl代码..

if ($^O eq "MSWin32") {
  use Win32;                                                                                                                                                                                           
  .. do windows specific stuff ..
}

..在Windows下运行，但无法在所有其他平台下运行（“无法在@INC中找到Win32.pm”）。 如何在Windows下运行时指示Perl尝试导入Win32，并忽略所有其他平台下的import语句？

Answer 1

此代码适用于所有情况，并且还在编译时执行加载，因为您构建的其他模块可能依赖于它：

BEGIN {
    if ($^O eq "MSWin32")
    {
        require Module;
        Module->import();  # assuming you would not be passing arguments to "use Module"
    }
}

这是因为use Module (qw(foo bar))相当于BEGIN { require Module; Module->import( qw(foo bar) ); } BEGIN { require Module; Module->import( qw(foo bar) ); } BEGIN { require Module; Module->import( qw(foo bar) ); }如perldoc -f中所述。

（编辑，几年后......）

这甚至更好：

use if $^O eq "MSWin32", Module;

在这里阅读更多关于if pragma的信息 。

Answer 2

作为序列的快捷方式：

BEGIN {
    if ($^O eq "MSWin32")
    {
        require Win32;
        Win32::->import();  # or ...->import( your-args ); if you passed import arguments to use Win32
    }
}

你可以使用if pragma：

use if $^O eq "MSWin32", "Win32";  # or ..."Win32", your-args;

Answer 3

通常， use Module或use Module LIST在编译时进行评估，无论它们出现在代码中的哪个位置。 运行时等价物是

require Module;
Module->import(LIST)

Answer 4

require Module;

但是use也调用import ， require则没有。 因此，如果模块导出到默认命名空间，您也应该调用

import Module qw(stuff_to_import) ;

您还可以eval "use Module" - 这非常eval "use Module" ，因为perl可以在运行时找到正确的路径。