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

Question

我需要阻止Perl脚本中的代码片段，就像你可以使用#ifdef s在C中做的那样：

#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 { 
    ...
}