html 删除选中指定div,HTML :: TagFilter根据类删除div

我正在尝试使用perl脚本从服务器上的静态html文件中提取内容。我想拉出特定div的内容。我知道div的类名(“getme”)。

我可以使用HTML :: TreeBuilder-＆gt; look_down来访问div。如何删除div标签并仅获取其中的内容？

示例HTML

Some Header

More text

text text text

...

到目前为止

Perl

use strict;

use warnings;

use HTML::TreeBuilder;

use HTML::TagFilter;

my $unique_filename = '/path/to/saved/files/extracted_divs/' . get_timestamp();

my $guid_counter = 0;

my $field_sep = "|";

open FILEOUT, ">>", $unique_filename or die $!;

print FILEOUT "guid|published|url|title|body\n";

foreach my $file_name (@ARGV) {

my $tree = HTML::TreeBuilder->new;

my $filter = HTML::TagFilter->new(deny => { div => {class => ["getme"]} });

$tree->parse_file($file_name);

for my $subtree ($tree->look_down(_tag => "div", class => "getme")) {

#my $html = $filter->filter($subtree->as_HTML);

my $html = $subtree->as_HTML;

#steamline HTML

$html =~ s/(?

#echo file name to screen so we know something is happening

print $file_name . "\n";

#replace slashes with spaces

my $file_url = $file_name;

$file_name =~ s/\//-/g;

#remove ".html"

$file_name =~ s/.html//g;

#echo info to output file

print FILEOUT $guid_counter++ . $field_sep . time . $field_sep;

print FILEOUT $file_url . $field_sep . $file_name . $field_sep;

print FILEOUT $html;

}

$tree = $tree->delete;

}

close (FILEOUT);

过滤器只删除class属性。是否可以删除整个标记，或者有更好的方法吗？