为什么当我把Perl代码放入foreach循环时它就不能工作?

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

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

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

输出为 Thisis

当我遇到这些问题时,我想知道为什么块中没有发生某些事情,我会添加一些调试代码以确保我真正进入块:

 print "\@lines has " . @lines . " elements to process\n";
 foreach my $line ( @lines )
      {
      print "Processing [$line]\n";
      ...;
      }

您也可以在自己喜欢的调试器中通过设置断点和检查变量来实现这一点,但这对我来说太多了。:)

如果您需要学习Perl并且已经了解Python,那么您应该不会遇到太多麻烦 Learning Perl