perl - 如何从 Perl 中的网页内容中仅获取特定行

Question

我正在使用下面的代码来获取网页内容。它工作正常，但我想从中获得特定的线路。任何帮助是极大的赞赏。

use strict;
use warnings;
use LWP::Simple;

my $content = get('http://www.w3schools.com/');
print $content;
my @arr;
my $flag = 0;
push (@arr, $content);
#print @arr;

my $find = "HTML 4.01";
for (@arr)
{
  if ($_ =~ /$find/) 
  {
    print "$_\n";
    print "passed\n";
    $flag = 1;
  }
}

if ($flag == 1)
{
  print "Testcase passed";
}
else
{  
  die "Testcases fails";
}

Answer 1

get将整个内容作为单个值获取。如果你想逐行处理，split首先在line endings上。

use strict;
use warnings;
use LWP::Simple qw(get);

for my $line (split qr/\R/, get('http://www.w3schools.com/')) {
    print $line if $line =~ /\QHTML 4.01/;
}