Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re^4: Looking for a cleaner regex ( trie since 5.10 ! )

by choroba (Cardinal)
on Dec 08, 2017 at 15:22 UTC ( [id://1205176]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    /(?^:(?^x:(?:s(?:e(?:t(?:(?:(?:(?:hos|ne)t|gr)en|s(?:erven|ockop))t|p(
    +?:r(?:iority|otoent)|went|grp))|m(?:ctl|get|op)|ek(?:dir)?|lect|nd)|y
    +(?:s(?:write|call|open|read|seek|tem)|mlink)|h(?:m(?:write|read|ctl|g
    +et)|utdown)|ocket(?:pair)?|(?:qr|ta)t|printf|ubstr|leep|rand|in)|g(?:
    +e(?:t(?:p(?:r(?:oto(?:byn(?:umber|ame)|ent)|iority)|w(?:ent|nam|uid)|
    +eername|grp|pid)|s(?:erv(?:by(?:name|port)|ent)|ock(?:name|opt))|host
    +(?:by(?:addr|name)|ent)|net(?:by(?:addr|name)|ent)|gr(?:ent|gid|nam)|
    +login|c))?|mtime|lob|t)|r(?:e(?:ad(?:lin[ek]|pipe|dir)?|(?:quir|vers|
    +nam)e|winddir|set|cv|f)|index|mdir|and)|c(?:h(?:r(?:oot)?|dir|mod|own
    +)|o(?:n(?:tinue|nect)|s)|lose(?:dir)?|aller|rypt|mp)|l(?:o(?:c(?:alti
    +me|k)|g)|i(?:sten|nk)|c(?:first)?|e(?:ngth)?|(?:sta)?t)|e(?:nd(?:(?:h
    +os|ne)t|p(?:roto|w)|serv|gr)ent|x(?:ec|it|p)|of|q)|u(?:(?:n(?:lin|pac
    +)|mas)k|c(?:first)?|time)|f(?:or(?:mline|k)|c(?:ntl)?|ileno|lock)|w(?
    +:a(?:it(?:pid)?|ntarray|rn)|rite)|m(?:sg(?:ctl|get|rcv|snd)|kdir)|t(?
    +:ell(?:dir)?|runcate|imes?)|d(?:bm(?:close|open)|ump|ie)|a(?:ccept|la
    +rm|tan2|bs|nd)|__(?:(?:FIL|LIN)E|SUB)__|o(?:pen(?:dir)?|rd?|ct)|b(?:i
    +n(?:mode|d)|less)|i(?:n(?:dex|t)|octl)|v(?:alues|ec)|p(?:ack|ipe)|n(?
    +:ot|e)|quotemeta|x(?:or)?|CORE|join|kill|hex)))/
    
  2. or download this
    /CORE|__FILE__|__LINE__|__SUB__|abs|accept|alarm|and|atan2|bind|binmod
    +e|
    bless|caller|chdir|chmod|chown|chr|chroot|close|closedir|cmp|connect|
    ...
    symlink|syscall|sysopen|sysread|sysseek|system|syswrite|tell|telldir|t
    +ime|
    times|truncate|uc|ucfirst|umask|unlink|unpack|utime|values|vec|wait|
    waitpid|wantarray|warn|write|x|xor/x
    
  3. or download this
    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
    }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2024-04-24 05:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found