freeware code to strip HTML tags ?

xgab · #1 (**permalink**) 02-13-04, 12:08 PM

Hi all, I would like to know if there is any freeware Perl code out there, similar to the PHP powerful function: strip_tags.

What I am needing is to strip HTML tags from email bodies. I have a Perl program that process emails that have been working for many years, but the HTML format in some email messages, is affecting other applications.

I need clean email messages texts.

Could anyone help me ?
Thank you in advance

Skeleton Man · #2 (**permalink**) 03-02-04, 11:56 PM

Try this:

Code:

$code = "This<HTML>should<head>be<foo>HTML<bar>free</b>";
$code = preg_replace("/<.+?>/","",$code);

print $code;

Provided there aren't stupid things like incomplete tags ("<HTML", "<b", etc), this should be all you need to do.

xgab · #3 (**permalink**) 03-03-04, 11:51 AM

Quote:

Originally Posted by Skeleton Man

Try this:

Code:

$code = "This<HTML>should<head>be<foo>HTML<bar>free</b>";
$code = preg_replace("/<.+?>/","",$code);

print $code;

Provided there aren't stupid things like incomplete tags ("<HTML", "<b", etc), this should be all you need to do.

Thank you for your reply.

Excuse me, I am a newbie... is your code Perl or PHP ?

It seems to be PHP...

I would need Perl code to strip html tags

Skeleton Man · #4 (**permalink**) 03-03-04, 06:54 PM

My appologies, I had windows open from both PHP and Perl forums so I didn't see which I was posting to.

Perl version:

Code:

$code = "This<HTML>should<head>be<foo>HTML<bar>free</b>";
$code =~ s/<.+?>//g;

print "Content-type: text/plain\n\n";
print $code;

scorwin · #5 (**permalink**) 03-19-04, 01:23 PM

This will strip all HTML tags:

##############################
use HTML::TreeBuilder;
use HTML::FormatText;

my $s; # the text out of which you wish to strip HTML

my $formatter = HTML::FormatText->new;
my $tree = HTML::TreeBuilder->new;
$tree->parse($s);
if ($tree) {
$formatter->format($tree);
$tree->delete; # DO NOT OMIT THIS STEP!
}
##############################

--Steve

xgab · #6 (**permalink**) 04-19-04, 07:31 PM

Quote:

Originally Posted by Skeleton Man

My appologies, I had windows open from both PHP and Perl forums so I didn't see which I was posting to.

Perl version:

Code:

$code = "This<HTML>should<head>be<foo>HTML<bar>free</b>";
$code =~ s/<.+?>//g;

print "Content-type: text/plain\n\n";
print $code;

Skeleton Man: Thank you so much for your help!!!! it worked!