回答

在Perl中，全局关联数组%ENV包含当前进程的环境变量。对这个哈希的任何操作都会直接反映在进程的环境中，并且会影响通过system、exec、open等产生的子进程。

使用示例：

print $ENV{"HOME"};       # 获取用户家目录的路径
$ENV{"PATH"} = "/usr/bin"; # 重写PATH变量

细节：

• %ENV中的任何更改都会立即影响从此Perl进程启动的所有未来命令行。
• 将undef赋值或删除元素会删除对应的环境变量。
• 为了确保安全，不要在%ENV中直接使用用户输入，尤其是在CGI或系统脚本中。
• 不是所有变量在所有系统中都有。通过exists $ENV{"VAR"}检查密钥的存在。

鬼畜问题

使用操作$ENV{"MYVAR"} = undef是否删除了环境变量？

**回答：**不！这只是将变量赋值为undef，但密钥仍然保留在哈希中！要删除环境变量，请使用delete $ENV{"MYVAR"}。

# 不会从环境中删除变量
$ENV{"FOO"} = undef;

# 正确 - 删除它
delete $ENV{"FOO"};

由于对主题细节的无知而导致的真实错误示例

---

故事

在Web服务器上，为了安全清理环境，程序员赋值为undef而不是删除变量。变量没有消失，可能被攻击者利用，造成了在PATH中执行命令的安全漏洞。

---

故事

在将环境变量传递给子进程时，忘记删除旧变量，导致执行第三方工具时出现意外崩溃和程序行为不正常。

---

故事

试图为子进程清理所有环境时，脚本只是执行%ENV = ();，但没有事先检查所需变量。这导致崩溃，因为一些服务需要强制的环境密钥（例如，USER或本地化变量）。