strip given HTML tags

[Dan Jacobson]

This solution posted two months ago was supposed to strip all the HTML
tags given on the command line, but it turns out it strips all the
tags whatsoever. Help.

#!/usr/bin/perl -w
# striptag -- strip given tags out of HTML
#Usage example: striptag font div < file.html
use strict;
use HTML:arser;
my $parser = HTML:arser->new( text_h => [ sub { print shift; },"dtext" ]);
$parser->parse_file(*STDIN);

 

[ko]

This solution posted two months ago was supposed to strip all the HTML
tags given on the command line, but it turns out it strips all the
tags whatsoever. Help.

#!/usr/bin/perl -w
# striptag -- strip given tags out of HTML
#Usage example: striptag font div < file.html
use strict;
use HTML:arser;
my $parser = HTML:arser->new( text_h => [ sub { print shift; },"dtext" ]);
$parser->parse_file(*STDIN);

From the HTML:arser docs, right above the 'BUGS' section:

'More examples are found in the ``eg/'' directory of the HTML-Parser
distribution;' ... 'the program hstrip shows how you can strip out
certain tags/elements and/or attributes;'

Unfortunately, the files aren't available on your system unless you're
running an older version of Perl and had to install the module
manually (core module for newer versions of Perl). So you need to
download the distribution from CPAN. *All* of the example scripts are
good starting points on how to use the module.

Anyway, here's a quick fix:

#!/usr/bin/perl -w
use strict;
use HTML:arser;

# any method to assign to @ignore_tags and @files HERE.
my @ignore_tags = qw[font script];
my @files = qw[1.html 2.html];

strip_tags($_ ) foreach (@files);

sub strip_tags {
my $file = shift;
HTML:arser->new(
default_h => [ sub { print shift }, 'text'],
ignore_tags => \@ignore_tags,
)->parse_file($file);
}

HTH - keith