small modification below. > -----Original Message----- > From: Toby Stuart [mailto:[EMAIL PROTECTED]] > Sent: Thursday, January 23, 2003 12:56 PM > To: 'Johnstone, Colin' > Cc: '[EMAIL PROTECTED]' > Subject: RE: Removing HTML Tags > > > > > > -----Original Message----- > > From: Johnstone, Colin [mailto:[EMAIL PROTECTED]] > > Sent: Thursday, January 23, 2003 12:29 PM > > To: '[EMAIL PROTECTED]' > > Subject: Removing HTML Tags > > > > > > Gidday all, > > > > When using our CMS (Interwoven Teamsite) I want to remove > > from any textarea any html tags that I don't want content > > contributors to use. On in particular is the font tag. Can > > one use a regex to remove these? > > > > I guess Im looking for a regex to remove anything between the > > font tags e.g <font>and </font>. Of course their could be > > anynumber of attributes in the openning font tag. > > > > Any help appreciated > > Thanking you in anticipation > > > > Colin Johnstone > > > > > > > > use strict; > use warnings; > > my @remove_tags = qw(i b font); > > my $html = 'Some text. <i>italics</i> <b>bold</b> <font > class="myclass" > size="2">Hi There</font> <font>ABC > </font> <h1>Hi</h1>'; > > foreach my $tag (@remove_tags) > { > $html =~ s!<$tag.*?>(.*?)</$tag>!$1!gs; # Actually this is probably a bit better :) $html =~ s!<$tag.*?>(.*?)</$tag>!$1!gsim;
> } > > print $html; > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]