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

Aug 3, 2005, 6:47 AM

Andy

Veteran / Moderator (18436 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

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 (18436 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