: perl cut tests 2002-06-05

E ((?>a*))* aaaaa (0,5)(0,5)

E SAME aabbaa (0,2)(0,2)

E (?>a*)b abab (0,2)

E ((?>a*)b) abab (0,2)(0,2)

E ((?>a*)b)? abab (0,2)(0,2)

E ((?>a*)b){0,1} abab (0,2)(0,2)

E ((?>a*)b){1} abab (0,2)(0,2)

E ((?>a*)b){0,2} abab (0,4)(2,4)

E ((?>a*)b){1,2} abab (0,4)(2,4)

E ((?>a*)b){2} abab (0,4)(2,4)

E ((?>a*)b)* abab (0,4)(2,4)

E ((?>a*)b)+ abab (0,4)(2,4)

E (?>a*) aaaaa (0,5)

E SAME aabbaa (0,2)

E ((?>a*)*) aaaaa (0,5)(0,5)

E SAME aabbaa (0,2)(0,2)

E ((?>a*?))* aaaaa (0,0)(0,0)

E SAME aabbaa (0,0)(0,0)

E ((?>a*?)*) aaaaa (0,0)(0,0)

E SAME aabbaa (0,0)(0,0)

E ((.*)b)* ababa (0,4)(0,4)(0,3)

E ((.*?)b)* ababa (0,4)(2,4)(2,3)

E (?>a*)a aaaaa NOMATCH

E ((?>a*)|a*)a aaaaa (0,5)(0,4)

E (a+|b+|c+)*(c) aaabbbbccccd (0,11)(7,10)(10,11)

E (?>a+|b+|c+)*(c) aaabbbbccccd (0,8)(7,8)

E (a+|b+|c+)*(d) aaabbbbccccd (0,12)(7,11)(11,12)

E (?>a+|b+|c+)*(d) aaabbbbccccd (0,12)(11,12)