in reply to Re: Re: Re: Profanity in the CB/Nodes
in thread Profanity in the CB/Nodes
I wish I could write the filter. Alas, I lack both the knowledge and the privilege on PM to do that.
You wouldn't need any privileges on Perlmonks to write it as a proxy. As an added bonus, it could be made to work with all sites, not just Perlmonks. Most of it is probably already done, in the form of various modules (LWP, HTML::Parser or one of the other various HTML parsers (you need to parse the HTML so that you can filter the words only when they are going to show up as page content, not when e.g. they are in hidden form fields), Regexp::Common, (there is specifically a regex there for common profanity), Net::Server or perhaps HTTP::Daemon, and so on). All you'd really have to do is piece it together with a bit of Perl glue. As for the knowledge, I suspect you could learn as you go (start by learning to use each of the modules...), and it would probably be a good learning project. I suspect you could have something mostly working in six months or less, and then you could put it up on the CPAN if you like...
Have you noticed that no one seems to change their mind as a result of discussions about profanity?
Yes, I have noticed that. This discussion is no different in that respect from any of the others, which is why you don't see me chiming in, except on matters to do with implementing something in Perl (err, and a small bit of off-topic humor).
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
|
|---|