1: perl cut tests 2002-06-05
2
3E	((?>a*))*		aaaaa		(0,5)(0,5)
4E	SAME			aabbaa		(0,2)(0,2)
5E	(?>a*)b			abab		(0,2)
6E	((?>a*)b)		abab		(0,2)(0,2)
7E	((?>a*)b)?		abab		(0,2)(0,2)
8E	((?>a*)b){0,1}		abab		(0,2)(0,2)
9E	((?>a*)b){1}		abab		(0,2)(0,2)
10E	((?>a*)b){0,2}		abab		(0,4)(2,4)
11E	((?>a*)b){1,2}		abab		(0,4)(2,4)
12E	((?>a*)b){2}		abab		(0,4)(2,4)
13E	((?>a*)b)*		abab		(0,4)(2,4)
14E	((?>a*)b)+		abab		(0,4)(2,4)
15
16E	(?>a*)			aaaaa		(0,5)
17E	SAME			aabbaa		(0,2)
18E	((?>a*)*)		aaaaa		(0,5)(0,5)
19E	SAME			aabbaa		(0,2)(0,2)
20E	((?>a*?))*		aaaaa		(0,0)(0,0)
21E	SAME			aabbaa		(0,0)(0,0)
22E	((?>a*?)*)		aaaaa		(0,0)(0,0)
23E	SAME			aabbaa		(0,0)(0,0)
24
25E	((.*)b)*		ababa		(0,4)(0,4)(0,3)
26E	((.*?)b)*		ababa		(0,4)(2,4)(2,3)
27
28E	(?>a*)a			aaaaa		NOMATCH
29E	((?>a*)|a*)a		aaaaa		(0,5)(0,4)
30
31E	(a+|b+|c+)*(c)		aaabbbbccccd	(0,11)(7,10)(10,11)
32E	(?>a+|b+|c+)*(c)	aaabbbbccccd	(0,8)(7,8)
33E	(a+|b+|c+)*(d)		aaabbbbccccd	(0,12)(7,11)(11,12)
34E	(?>a+|b+|c+)*(d)	aaabbbbccccd	(0,12)(11,12)
35