On Mar 20, 2004, at 6:17 PM, WC -Sx- Jones wrote:

Greetings:

Comments about how to perform these
5 checks as ONE TEST are welcome -

/\s+\w+\<g.*\>\w+\s+/ REJECT Invalid HTML Spam vG
/\s+\w+\<j.*\>\w+\s+/ REJECT Invalid HTML Spam vJ
/\s+\w+\<k\w{3,}\>\w+\s+/ REJECT Invalid HTML Spam vK
/\s+\w+\<y.*\>\w+\s+/ REJECT Invalid HTML Spam vY
/\s+\w+\<z.*\>\w+\s+/ REJECT Invalid HTML Spam vZ

m/\s+\w+\<(?:[gjyz].*|k\w{3,})\>\w+\s+/


I believe that's the same. Maybe I'm missing something though, seems too easy.

James


-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>




Reply via email to