Re^2: How to remove HTML tags from text


go ahead... be a heretic
	PerlMonks

Re^2: How to remove HTML tags from text

by holli (Abbot)

on Feb 04, 2005 at 13:01 UTC ( [id://428045]=note: print w/replies, xml )

Need Help??

in reply to Re: How to remove HTML tags from text
in thread How to remove HTML tags from text

Alternative using Html::Tokeparser:

use strict;
use HTML::TokeParser;

# from file
my $p = HTML::TokeParser->new("test.html") or die "Can't open: $!";
#from string
#my $p = HTML::TokeParser->new(\"text1 <b> text2 </b> text3");
my $t;

while (my $token = $p->get_token)
{
    $t .= $token->[1] if $token->[0] eq "T";
}

print $t;
[download]

holli, regexed monk