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);