如何根据perl的版本添加功能？

发布时间：2020-12-15 21:51:52 所属栏目：大数据来源：网络整理

导读：如果有人问这个我很抱歉,但我发现很难找到. 我在本地使用Perl 5.12,但我们的一些机器使用Perl 5.8.8,暂时不会更新. 对于审计,我在平台5.12上使用’say’. 我写了一个简单的函数来实现5.8.8的说法,但我不想在5.12上使用它. 有没有办法只在旧版本的Perl上使用

如果有人问这个我很抱歉,但我发现很难找到.

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

对于审计,我在平台5.12上使用’say’.

我写了一个简单的函数来实现5.8.8的说法,但我不想在5.12上使用它.

有没有办法只在旧版本的Perl上使用我的say函数并使用5.12的’builtin’版本？

解决方法

您可以使用$^ 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" }
    }    
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!