如何编写跨平台的perl代码

Question

一个perl脚本，包括Windows和Linux的不同模块，为了使它跨平台，我想要实现它，就像在C ++中一样：

#if _WIN32
//...
#else
//...
#endif

Answer 1

if，$^O：

use if $^O eq 'MSWin32', Win32::Console::ANSI::;

---

可替换地，

use Win32::Console::ANSI ();

相当于

BEGIN {
    require Win32::Console::ANSI;
}

所以你也可以使用

BEGIN {
    require Win32::Console::ANSI
        if $^O eq 'MSWin32';
}