Removing HTML

[Bill H]

Does anyone have an easy/fast way of removing HTML tags from a text
file using perl? I am using the following brute force way of doing it,
which does work, but can be a little slow:

$body = substr($body,0,$a);

while(index($body,"<") != -1)
{
$a = index($body,"<");
$beg = substr($body,0,$a);
$body = substr($body,$a + 1)." ";
$a = index($body,">");
$fin = substr($body,$a + 1);
$body = $beg.$fin;
}
$body =~ s/ / /gi;

 

[Simon Andrews]

Does anyone have an easy/fast way of removing HTML tags from a text
file using perl?

use HTML::Strip;

my $hs = HTML::Strip->new();
my $clean_text = $hs->parse( $raw_html );
$hs->eof;

http://search.cpan.org/~kilinrax/HTML-Strip-1.06/Strip.pm

HTH

Simon.

 

[Paul Lalli]

Does anyone have an easy/fast way of removing HTML tags from a text
file using perl?

Please check the built-in Perl FAQ *before* posting to a world-wide
group asking people to read it for you. . .

$ perldoc -q html
Found in /opt2/Perl5_8_4/lib/perl5/5.8.4/pod/perlfaq9.pod
How do I remove HTML from a string?

Also available on the web at:
http://perldoc.perl.org/perlfaq9.html#How-do-I-remove-HTML-from-a-string?

Paul Lalli

 

[Martijn Lievaart]

Does anyone have an easy/fast way of removing HTML tags from a text
file using perl? I am using the following brute force way of doing it,
which does work, but can be a little slow:

An alternative to what the other posters said, but possibly even slower is
to use lynx with the --dump option.

HTH,
M4

 

[Joe Smith]

Does anyone have an easy/fast way of removing HTML tags from a text
file using perl?

Once upon a time someone complained that HTML:arser was too hard to use.
I whipped up this little ditty to show it's easy.
-Joe


#!/usr/bin/perl
# Name: nohtml Author: (e-mail address removed) 07-Nov-2001
# Purpose: Extracts just the text portions of a document.

use strict; use warnings;
use HTML:arser ();

sub text_handler { # Ordinary text
print @_;
}

my $p = HTML:arser->new(api_version => 3);
$p->handler( text => \&text_handler, "dtext");
$p->parse_file(shift || "-") || die $!;