Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: The craziest RegExes you ever created

by McDarren (Abbot)
on Jul 03, 2006 at 00:52 UTC ( #558911=note: print w/replies, xml ) Need Help??


in reply to The craziest RegExes you ever created

The following is not one that I wrote, but it is the first example of a complex regular expression that I ever encountered - so I always remember it. It can be found in the procmailrc(5) manpage.
(^(Mailing-List:|Precedence:.*(junk|bulk|list)|To: Multiple recipient +s of |(((Resent-)?(From|Sender)|X-Envelope-From):|>?From )([^>]*[^(. +%@a-z0-9])?(Post(ma?(st(e?r)?|n)|office)|(send)?Mail(er)?|daemon|m(md +f|ajordomo)|n?uucp |LIST(SERV|proc)|NETSERV|o(wner|ps)|r(e(quest|sponse)|oot)|b(ou +nce|bs\.smtp)|echo|mirror|s(erv(ices?|er)|mtp(error)?|ystem)|A(dmin(i +strator)?|MMGR |utoanswer))(([^).!:a-z0-9][-_a-z0-9]*)?[%@>\t ][^<)]*(\(.*\).* +)?)?$([^>]|$)))

I've never tried to dissect it, but looking at it now (and having a somewhat better understanding of regular expressions than I did when I first saw it) I guess it's really not all that complex at all - mainly just lots of alternation.

Cheers,
Darren :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://558911]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (3)
As of 2020-11-28 05:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?