At Tue, 30 Jan 2001 05:23:41 -0500 (EST), Dave Cross <[EMAIL PROTECTED]> wrote:
> Damian's latest diary entry <http://www.yetanother.org/damian/diary_latest.html>
> talks about the work he's been doing on a module called Regex::Common.
Actually, it's Regexp::Common in case you were looking for it on CPAN.
I've been browsing the source code. He has a couple of regexes which
match profanity and he's rot13ed them to avoid offending people. Here
are the unrot13ed versions [this'll make Eudora blush!]
'(?:piss(?:\\
take|\\-take|take|e(?:rs|[srd])|ing|y)?|quims?|shit(?:t(?:e(?:rs|[dr])|ing|y)|e(?:rs|[sdry])|ing|[se])?|t(?:urds?|wats?)|wank(?:e(?:rs|[rd])|ing|s)?|a(?:rs(?:e(?:\\
hole|\\-hole|hole|[sd])|ing|e)|ss(?:\\ holes?|\\-holes?|ed|holes?|ing))|b(?:ull(?:\\
shit(?:t(?:e(?:rs|[dr])|ing)|s)?|\\-shit(?:t(?:e(?:rs|[dr])|ing)|s)?|shit(?:t(?:e(?:rs|[dr])|ing)|s)?)|low(?:\\
jobs?|\\-jobs?|jobs?))|c(?:ock(?:\\
suck(?:ers?|ing)|\\-suck(?:ers?|ing)|suck(?:ers?|ing))|rap(?:p(?:e(?:rs|[rd])|ing|y)|s)?|u(?:nts?|m(?:ing|ming|s)))|dick(?:\\
head|\\-head|ed|head|ing|less|s)|f(?:uck(?:ed|ing|s)?|art(?:e[rd]|ing|[sy])?|eltch(?:e(?:rs|[rsd])|ing)?)|ha(?:rd[\\-\\
]?on|lf(?:\\ a[sr]|\\-a[sr]|a[sr])sed)|m(?:other(?:\\
fuck(?:ers?|ing)|\\-fuck(?:ers?|ing)|fuck(?:ers?|ing))|uth(?:a(?:\\
fuck(?:ers?|ing|[aaa])|\\-fuck(?:ers?|ing|[aaa])|fuck(?:ers?|ing|[aaa]))|er(?:\\
fuck(?:ers?|ing)|\\-fuck(?:ers?|ing)|fuck(?:ers?|ing)))|erde?))'
and
'(?:p(?:ork|r(?:onk|icks?)|uss(?:ies|y)|iss(?:\\
take|\\-take|take|e(?:rs|[srd])|ing|y)?)|quims?|root(?:e(?:rs|[rd])|ing|s)?|s(?:od(?:d(?:ed|ing)|s)?|punk|crew(?:ed|ing|s)?|h(?:ag(?:g(?:e(?:rs|[dr])|ing)|s)?|it(?:t(?:e(?:rs|[dr])|ing|y)|e(?:rs|[sdry])|ing|[se])?))|t(?:urds?|wats?|its?)|wank(?:e(?:rs|[rd])|ing|s)?|a(?:rs(?:e(?:\\
hole|\\-hole|hole|[sd])|ing|e)|ss(?:\\
holes?|\\-holes?|ed|holes?|ing))|b(?:on(?:e(?:rs|[sr])|ing|e)|u(?:gger|ll(?:\\
shit(?:t(?:e(?:rs|[dr])|ing)|s)?|\\-shit(?:t(?:e(?:rs|[dr])|ing)|s)?|shit(?:t(?:e(?:rs|[dr])|ing)|s)?))|a(?:stard|ll(?:e(?:rs|[dr])|ing|s)?)|lo(?:ody|w(?:\\
jobs?|\\-jobs?|jobs?)))|c(?:ock(?:\\
suck(?:ers?|ing)|\\-suck(?:ers?|ing)|suck(?:ers?|ing)|s)?|rap(?:p(?:e(?:rs|[rd])|ing|y)|s)?|u(?:nts?|m(?:ing|ming|s)))|d(?:ongs?|ick(?:\\
head|\\-head|ed|head|ing|less|s)?)|f(?:uck(?:ed|ing|s)?|art(?:e[rd]|ing|[sy])?|eltch(?:e(?:rs|[rsd])|ing)?)|h(?:ump(?:e(?:rs|[rd])|ing|s)?|a(?:rd[\\-\\
]?on|lf(?:\\ a[sr]|\\-a[sr]|a[sr])sed))|m(?:other(?:\\ fuc!
!
k(?:ers?|ing)|\\-fuck(?:ers?|ing)|fuck(?:ers?|ing))|uth(?:a(?:\\
fuck(?:ers?|ing|[aaa])|\\-fuck(?:ers?|ing|[aaa])|fuck(?:ers?|ing|[aaa]))|er(?:\\
fuck(?:ers?|ing)|\\-fuck(?:ers?|ing)|fuck(?:ers?|ing)))|erde?))'
Enjoy!
Dave...
