perl - 如何添加基于 perl 版本的函数？

Question

如果有人问过这个，我很抱歉，但我发现很难搜索。

我在本地使用 Perl 5.12，但我们的一些机器使用 Perl 5.8.8，它们暂时不会更新。

对于审计，我在平台 5.12 上使用“say”。

我写了一个简单的函数来在 5.8.8 上实现 say，但我不想在 5.12 上使用它。

有没有办法只在旧版本的 Perl 上使用我的 say 函数并在 5.12 上使用 say 的“内置”版本？

Answer 1

您可以使用 $^V special variable确定 Perl 解释器的版本:

BEGIN {
    if ($^V ge v5.10.1) {  # "say" first appeared in 5.10
        require feature;
        feature->import('say');
    }
    else {
        *say = sub { print @_, "\n" }
    }    
}