perl - 如何在 Perl 中禁用代码块，就像在 C 中使用 #ifdef 一样？

Question

我需要阻止 Perl 脚本中的代码片段，就像您在 C 中使用 #ifdefs 所做的那样:

#define ANDROID true

#ifdef ANDROID
      # Execute code for Android only 
#else
      # Execute code for Linux, Windows and other platforms
#endif

如何在 Perl 中执行此操作？我们需要对脚本进行尽可能少的更改(有接近一千个脚本，我们需要让我们的代码尽可能通用)。所以我只需要知道在 C 中实现类似于 #ifdefs 的最佳机制是什么。

Answer 1

从您的评论来看，您似乎正在寻找一种使代码可移植的方法，在操作系统更改时运行不同的代码。如果是这样，您可以使用 built-in variable $^O :

if    ($^O eq "Android") {     # run Android code
    ....
}
elsif ($^O eq "MSWin32") {     # run windows code
    ....
}
else { 
    ...
}