Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

More sexeger

by darksym (Beadle)
on Apr 23, 2002 at 14:15 UTC ( #161313=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #4p1s0: # Already optimal matching forward
       (?:   a  (?: ble | n(?:ce|t) | te | l )
    ...
       )
    #4p0s1: # It's better than this:
       (?:ic|(?:[ae]nc|[ai]bl|at|iv|iz)e|iti|al|ism|er|ous|(?:e?me|[ae])nt
    +|ou)
    
  2. or download this
    #3p0s1: # Less optimal
    (?:   (?: icat | ativ | aliz )  e
    ...
      |   l  (?: aci | uf )
      |   ssen
    )
    
  3. or download this
       (?:abcd|efg|won|I|[now]|know|my|regexes)
       (?:abcdcba|efgfe|wonow|[now]|I|knowonk|mym|regexesexeger)
       (?x-ism: dcba|gfe |     now |I| [own] |wonk|y m|sexeger)
    
  4. or download this
    #!/usr/bin/perl
    use Regex::PreSuf;
    ...
    print "4p1s0r:", presuf ({suffixes=>0}, @step4list), "\n";
    print "4p1s1r:", presuf ({suffixes=>1}, @step4list), "\n";
    print "4p0s1r:", presuf ({prefixes=>0}, @step4list), "\n";
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2014-12-23 02:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (133 votes), past polls