1

我有一个 html 文件存储在磁盘上（文件是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 行是我应用过滤器的位置）。我在这里做错了什么。

4

1 回答 1

2

首先，您应该始终在 程序开始时，尤其是在寻求帮助修复它之前。use strictuse warnings

您已经创建了两个HTML::TagFilter对象：$tf一个没有过滤器，$self一个删除<img>了元素。您已经习惯$tf了处理 HTML，因此您的数据不会改变。

这段代码有效，加上我提到的更正和其他一些。

use strict;
use warnings;

use HTML::TagFilter;

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

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

open my $out, '>', 'D:\Scripts\remove.html' or die "Unable to open output file: $!";
print $out $tf->filter($html);
于 2012-05-25T08:14:02.200 回答