perl - 我试图在 perl 中逐行浏览 html 页面，但它只是将整个文件视为一行。我该如何解决？

Question

所以我在我的代码中定义了一个 url，然后我将它分配给内容，所以整个 html 文件应该存储在$content. 当我从 STDIN 读取时，它会自动逐行运行，但这里似乎并非如此。这$end == 1部分只是说while循环应该何时停止。我是 Perl 的新手，所以它可能只是一些语法问题，但我尝试过使用双等号或$line = $content在循环内移动部分，但我仍然无法修复它。任何帮助，将不胜感激！谢谢！

my $content = get $url;
while(my $line = $content && $end == 1) {
    #code to edit line
}

Answer 1

尝试这个：

my @content = get $url;
foreach my $line (@content) {
    ...
}

Answer 2

while ($content =~ /\G(.*\n|.+\z)/g) {
   my $line = $1;
   ...
}

---

至于$end，您的变量名称错误或您的逻辑颠倒了。无论如何，这样的结构是完全没有必要的。只需使用last.