Help for this page

Select Code to Download


  1. or download this
    #!perl -w

...
shemp,curly,joe
larry,moe
larry,curly,moe
  2. or download this
    >re.pl 1
olive&(popeye|bluto)
...
^((?=.*\b(moe)\b)((?=.*\b(shemp)\b)|(?=.*\b(curly)\b)|(?=.*\b(joe)\b))
+(?=.*\b(larry)\b))
----
larry,curly,moe
  3. or download this
    die "Invalid expression <$test>\n"
  if $test =~ /[^a-z\s\&\|\(\)]|^\s*[\&\|]|[\&\|]\s*$|[\&\|]\s*[\&\|]|
+[\&\|]\s*\)|\(\s*[\|\&]/;