0

このperlスクリプトでHTML::Cleanモジュールを機能させるにはどうすればよいですか。

#!/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;
4

1 に答える 1

3

HTML::Cleanコンストラクター メソッドは、ファイル名または HTML を含む文字列への参照のいずれかである引数を取ります。HTTP::Responseオブジェクトを渡しているようです。代わりに HTML を渡してみてください。

my $response = $ua->get($line);
my $html = $response->decoded_content;
my $h = HTML::Clean->new(\$html);
于 2012-05-18T10:35:14.800 に答える