如何编写跨平台的Perl代码 [英] How to write cross-platform perl code

问题描述

一个perl脚本，其中将包括适用于Windows和Linux的不同模块，为了使其跨平台，我想以某种方式实现它，就像在C ++中一样：

A perl script which would include different modules for both Windows and Linux, In order to make it cross-platform, I want someway to implement it, just like in C++:

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

推荐答案

如果， $ ^ O ：

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

---

或者，

---

Alternatively,

use Win32::Console::ANSI ();

等同于

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

所以您也可以使用

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

这篇关于如何编写跨平台的Perl代码的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！