perl - 在散列元素中使用未初始化的值 $_

Question

这是关于我在运行 Perl 脚本时收到的警告消息。

我明白我收到此警告的原因:可能是因为 $element被调用时未定义，但我没有看到它。

for ( my $element->{$_}; @previous_company_names; ) {
    map { $element => $previous_company_names->{$_} }
            0 .. $previous_company_names;

结果就是这条消息

Use of uninitialized value $_ in hash element

Answer 1

首先也是最重要的——对于一个新程序员来说，你必须做的最重要的事情是use strict;和 use warnings; .你有 my在那里，这表明你可能是，但重新迭代它是值得的。
$_是一个特殊的变量，称为隐式变量。在 for 循环中以这样的方式使用它并没有真正的意义。看看 perlvar 了解更多细节。

事实上，我建议避开 map直到你真正理解它为止，因为这是一种迷惑自己的好方法。

与 for (或 foreach )循环，您可以:

for my $thing ( @list_of_things ) {
    print $thing;
 }

或者你可以这样做:

for ( @list_of_things ) {
   print $_;
}

$_由第二个循环的每次迭代隐式设置，这非常有用，因为很多东西默认使用它。

例如。

for ( @list_of_things ) {
   chomp; 
   s/ /_/g;
   print;
}

说到 map - map 是一个聪明的小函数，它可以让你为列表中的每个元素评估一个代码块。就个人而言 - 我仍然对此感到困惑，并倾向于坚持使用 for或 foreach大部分时间都是循环。

但是你正在用它做什么，并没有真正起作用 - map做一个哈希。

所以像:

use Data::Dumper; 
my %things = map { $_ => 1 } 1..5; 
print Dumper \%things; 

这将创建哈希“事物”:

$VAR1 = {
          '1' => 1,
          '3' => 1,
          '5' => 1,
          '4' => 1,
          '2' => 1
        };

再次，$_在内部使用，因为它是魔术变量 - 每个循环都设置为“第二位中的任何内容”(例如 1,2,3,4,5)，然后对 block 进行评估。

所以你的 map 表达式并没有多大意义，因为你没有 $element定义......即使你这样做了，你也会反复覆盖它。

我还要注意 - $previous_company_names必须是数字，并且与 @previous_company_names 没有任何关系.您可能想使用 $#previous_company_names这是最后一个元素索引。