Help for this page

Select Code to Download


  1. or download this
    my $regexLockParams = '(?:[\\s,]+'
        ."|(?:$regexSubstringOf{angle}|$regexSubstringOf{offset})\\s*$rege
    +xNumber"
        ."|$regexSubstringOf{dispersion}\\s*$regexNumber"
           #."|..."
        .')+';
    
  2. or download this
    sub safeCapture
    {
        # Workaround for Regex issue in which backtracked captures inside 
    +alternations inside repetition, will stomp on the capture value.
    ...
        my $postfix = shift;
        return "$prefix($cap(?=$postfix))$postfix";
    }