Re: Re: Re: 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. 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.

Comment on Re: Re: Re: Profanity in the CB/Nodes Download Code

Replies are listed 'Best First'.
Re: Profanity in the CB/Nodes by jonadab (Parson) on Jan 26, 2004 at 16:11 UTC
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$/` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Profanity in the CB/Nodes
by jonadab (Parson) on Jan 26, 2004 at 16:11 UTC

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$/
[download]

[reply]
[d/l]