Perl 数组哈希 - 严格的 refs

Question

这对大多数人来说可能很简单，但我有一个 Perl 脚本，我不使用严格的，并使用以下语法：

$welcome_data[$x]{email}       = $data[0];

它工作正常。现在，当我启用严格时：

$welcome_data[$x]{email}       = $data[0];
Can't use string ("") as a HASH ref while "strict refs" in use

谁能帮我解决我做错了什么？？

非常感谢

Answer 1

$welcome_data[$x]{email}

简称

$welcome_data[$x]->{email}

换句话说，$welcome_data[$x] 应该是一个引用（或 undef^[1]）。但是，在您的情况下，它包含一个空字符串。就像你在做的那样

${""}{email}

这显然不是你想做的。但幸运的是，这正是 strict refs 旨在捕捉的那种错误。现在，您可以在将空字符串分配给 $welcome[$x] 的任何位置进行修复。

---

1. 如果它是 undef，Perl 会自动激活一个新的匿名哈希的引用，就像你曾经使用过一样

   ( $welcome_data[$x] //= {} )->{email}