如何只從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將整個內容作爲單個值提取。如果要按行處理，請在line endings上首先處理split。

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/; 
}