Question

我在磁盘上存储了一个 html 文件( 文件是 < a href=> http:// home. howstuffworks. com/ home- improprovement/ building/ projects/ return- on- investment- from- remodel2.htm > rel= "nofollow" > this ) 。我想删除图像的所有 html 标签。这是我迄今尝试过的。

#!/usr/bin/perl -w
use HTML::TagFilter;
my $tf = new HTML::TagFilter;

open READ, "D:\Scripts\file.html" or die "Couldn t open file: $!"; 
$string1 = join("", <READ>); 
close READ;

my $self = HTML::TagFilter->new(deny => {img => { all }});
open (MYFILE,  >D:\Scripts\remove.html );
print MYFILE $tf->filter($string1);
close (MYFILE);

只要我运行这个程序它就印了

Odd number of elements in anonymous hash at remove everything else.pl line 9.
Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl64
/site/lib/HTML/TagFilter.pm line 499.

文件已存储, 但还没有删除图像标记( 第9行是我应用过滤器的地方) 。我在这里做错了什么。

Answer 1

首先,在程序启动时,你应该ways 严格使用 和 使用警告 ,特别是在请求帮助修复之前。

您创建了两个 < code> HTML:: TagFilter 对象: $tf 没有过滤器的 $tf 和删除元素的 。您使用 $tf 处理 HTML, 使您的数据保持不变。



这个守则起作用了,我提到的更正和其他一些更正也起作用了。

use strict;
use warnings;

use HTML::TagFilter;

my $tf = HTML::TagFilter->new(deny => {img => {all => []}});

my $html = do {
  open my $fh,  D:Scriptsfile.html  or die "Couldn t open file: $!";
  local $/;
  <$fh>;
};

open my $out,  > ,  D:Scripts
emove.html  or die "Unable to open output file: $!";
print $out $tf->filter($html);

友情链接