Re: Cleaning up HTML tags

It seems to me that keeping state is not the issue but more the holding on to the rules. If you have a procedural interface you are presumably going to need some internal variable that holds the rules between setting them and using them. This is fine unless you want to apply different rules to the html depending on the conditions. If that's the case then you are always going to keep changing the rules with a procedural interface. With the OO one you can just have different objects and you can give them nice helpful names.

Of course if you're not doing this then it might be moot but it's seems like a good reason to use an OO interface to these sort of modules.

Struan

Comment on Re: Cleaning up HTML tags

Replies are listed 'Best First'.
Re: Re: Cleaning up HTML tags by cleverett (Friar) on Aug 27, 2003 at 03:29 UTC
`use strict; use HTML::CleanerUpper ('sterilize'); my %disinfecting_with = ( soap => {kills => 'nothing'}, steam => {doesnt_kill => [ qw/i b/ ]}, uv => {kills => 'everything'}, ); my $agent = shift \|\| ''; die "$0: I need a disinfecting agent: soap, steam or UV" unless $disinfecting_with{$agent}; my $media = join("\n", <STDIN>); print sterilize($media, with => $agent);` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Cleaning up HTML tags
by cleverett (Friar) on Aug 27, 2003 at 03:29 UTC

use strict;
use HTML::CleanerUpper ('sterilize');

my %disinfecting_with = (
  soap  => {kills => 'nothing'},
  steam => {doesnt_kill => [ qw/i b/ ]},
  uv    => {kills => 'everything'},
);

my $agent = shift || '';
die "$0: I need a disinfecting agent: soap, steam or UV"
  unless $disinfecting_with{$agent};

my $media = join("\n", <STDIN>);

print sterilize($media, with => $agent);
[download]

[reply]
[d/l]