perl - 使用严格的 subs 时不允许设置裸字环境变量

Question

为了让我的 Perl 脚本运行，我需要在操作系统上设置一个环境变量以指向我们的开发服务器：

export SERVER=DEV

但是，一旦脚本分发给我们的用户，我不希望他们每次都需要导出这个环境变量。因此，我想我会在脚本开头附近设置环境变量。所以我添加了这个：

$ENV{SERVER}=DEV;

但是，由于严格的潜艇，我的脚本不允许这样做：

Bareword "DEV" not allowed while "strict subs" in use

我的部门主管向我保证，我们必须在脚本中使用 strict ，所以没有办法绕过这个限制。是否有正确的方法来设置我忽略的裸字环境变量？

Answer 1

环境变量是字符串。

DEV您有很多选项可以在 bash中创建字符串。首先，你有

• DEV
• "DEV"
• 'DEV'

DEV在 Perl中创建字符串有很多选择。首先，你有

• "DEV",qq{DEV}
• 'DEV',q{DEV}

所以，

$ENV{SERVER} = "DEV";