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

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

1 个答案: