Gossamer Forum: General: Perl Programming: Best way to strip most HTML?

Aug 3, 2005, 6:47 AM

Andy

Veteran / Moderator (17297 posts)

Aug 3, 2005, 6:47 AM

Post #1 of 3

Shortcut

Best way to strip most HTML?

Hi,

Does anyone know of a way to strip out everything from a passed in variable, excluding valid text, and etc tags?

Code:
sub cleanhtml { 

  my $in = $_[0];  
  $in =~ s|</?.*>||sig; 

}

..but that will filter out all HTML tags, which I don't want Unsure

TIA

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Aug 12, 2005, 12:46 PM

NamedRisk

User (51 posts)

Aug 12, 2005, 12:46 PM

Post #2 of 3

Shortcut

Re: [Andy] Best way to strip most HTML? In reply to

sorry i want to help you but first i need to understand you.

you want to just filter tags ?

Aug 13, 2005, 1:08 AM

Andy

Veteran / Moderator (17297 posts)

Aug 13, 2005, 1:08 AM

Post #3 of 3

Shortcut

Re: [NamedRisk] Best way to strip most HTML? In reply to

Hi,

Its ok, I managed to get it working <G>

Code:
sub cleanhtml { 

  my $in = $_[0]; 

  my @to_exclude = qw/style font script html body head div span meta/; 

  $in =~ s|<style>(.*?)</style>||sig; 
  $in =~ s|<title>(.*?)</title>|<h1>$1</h1>|sig; 

  $in =~ s|<p(.*?)>(.*?)</p>|<p>$2</p>|sig; 

  foreach (@to_exclude) { 
   # $in =~ s/<[^>]*>[^<]*$_[^<]*<[^>]*>//sig; 
    $in =~ s/<$_.*?>//sig; 
    $in =~ s/<\/$_.*?>//sig; 
  } 

  return $in; 

}

Thanks for the reply though Cool

Cheers

Andy (mod)
andy@ultranerds.co.uk