perl - 为什么将 Perl 代码放入 foreach 循环时不起作用？

Question

此代码正确输出行数组中的标量:

  $line = "This is my favorite test";
  @row = split(/ /, $line);

  print $row[0];
  print $row[1];

foreach 循环中的相同代码不打印任何标量值:

  foreach $line (@lines){
      @row = split(/ /, $line);
      print $row[0];
      print $row[1];
  }

什么可能导致这种情况发生？

我是来自 python 的 Perl 新手。我需要为我的新职位学习 Perl。

Answer 1

正如 Jefromi 的评论中已经提到的，无论问题是什么，它都存在于您发布的代码之外。这完全正常:

$lines[0] = "This is my favorite test";

foreach $line (@lines) {
    @row = split(/ /, $line);
    print $row[0];
    print $row[1];
}

输出为 Thisis