Perl HTML清理

如何使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;

#/usr/bin/env perl
严格使用；
使用警告；
需要LWP:：UserAgent；
打开FH，“构造函数方法接受一个参数，该参数要么是文件名，要么是对包含HTML的字符串的引用。您似乎在向它传递一个对象。请尝试向它传递HTML

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

构造函数方法接受一个参数，该参数要么是文件名，要么是对包含HTML的字符串的引用。您似乎在向它传递一个对象。请尝试向它传递HTML

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

它仍然不起作用。我还把-use HTML:：Clean；-放在了开头。但是运气不好。你说的“不起作用”到底是什么意思“.你看到了什么意想不到的行为？你希望做什么？什么事情是你不想发生的？发生了什么你不想发生的事？要明确。最好通过编辑原始问题来回答这个问题。它仍然不起作用。我还将-use HTML:：Clean；-一开始但是运气不好。你说的“不起作用”到底是什么意思。你看到了什么意想不到的行为？你希望做什么？什么事情是你不想发生的？发生了什么你不想发生的事？要明确。最好通过编辑原始问题来回答这个问题。您希望HTML:：Clean为您做什么？您似乎没有对所创建的对象执行任何操作。您希望HTML:：Clean为您做什么？您似乎没有对所创建的对象执行任何操作。