Perl HTML清理
Perl HTML清理
提问于 2012-05-18 18:09:08
如何使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;回答 1
Stack Overflow用户
发布于 2012-05-18 18:35:15
HTML::Clean构造函数方法接受一个参数，该参数可以是文件名，也可以是对包含HTML的字符串的引用。您似乎正在向它传递一个HTTP::Response对象。尝试将HTML传递给它。
my $response = $ua->get($line);
my $html = $response->decoded_content;
my $h = HTML::Clean->new(\$html);页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/10650659
复制相关文章
相似问题
腾讯云开发者
