html - Perl HTML 清理

Question

我怎样才能使 HTML::Clean 模块在这个 perl 脚本中工作。

#!/usr/bin/env perl

use strict;
use warnings;

require LWP::UserAgent;

open FH, "<", "text.txt";
my $ua = LWP::UserAgent->new;
$ua->timeout(10);

foreach my $line (<FH>) {
    my $response = $ua->get($line);
    my $h = new HTML::Clean(\$response);

    if ($response->is_success) {
        print $response->decoded_content;
    }
    else {
        die $response->status_line;
    }
}
close FH;

Answer 1

HTML::Clean构造方法接受一个参数，该参数可以是文件名，也可以是对包含 HTML 的字符串的引用。您似乎正在向它传递一个HTTP::Response对象。尝试将 HTML 传递给它。

my $response = $ua->get($line);
my $html = $response->decoded_content;
my $h = HTML::Clean->new(\$html);