perl - Perl 脚本能否检测它是否在 Activestate 与 Strawberry Perl 下运行？

Question

我有一个 Perl 脚本，我仍在尝试调试，在此过程中，我注意到它在 ActivePerl 和 Strawberry Perl 下运行的行为有所不同。

这让我想知道 Perl 脚本如何检测它在这些风格中的哪一种下运行。

Answer 1

Windows 上的 ActivePerl 始终(或至少自 Perl 5.005 起)定义 Win32::BuildNumber() 函数，因此您可以在运行时检查它:

if (defined &Win32::BuildNumber) {
    say "This is ActivePerl";
}
else {
    say "This is NOT ActivePerl";
}

如果您也想在其他平台上检查 ActivePerl，那么您应该改用 ActivePerl::BUILD() 函数。它仅在 ActivePerl 5.8.7 build 814 中引入，因此它不适用于真正的旧版本。