I wish I could write the filter. Alas, I lack both the knowledge and the privilege on PM to do that. That's why I feel discussions of profanity aren't going to get us(well, me at least) very far.
Have you noticed that no one seems to change their mind as a result of discussions about profanity? That PodMaster doesn't change his sig? That someone always brings the subject up again? Discussion is supposed to make everyone's opinion clear to everyone else. Is anyone unclear about anyone's opinion about profanity? How does this help PerlMonks grow if it changes nothing? A discussion of whether giving monks a choice of filtering profanity or not would end this type of discussion might do a bit of good. I somehow doubt that though.
I learned profanity in elementary school. By the time I was a teenager I had all the advanced degrees. The subject does not interest me, it is boring in fact. Perl is what interests me. As I said before, profanity is getting in the way.
xenchu
The Needs of the World and my Talents run parallel to infinity.
| [reply] [d/l] |
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$/
| [reply] [d/l] |