如何禁用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的最佳机制是什么

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

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