1: perl group extension tests 2001-06-18 2 3E (?(0)a|b) a ESUBREG 4Ex SAME a (0,1) 5E SAME b ESUBREG 6Ex SAME b NOMATCH 7 8K ~((0)a|b) a (0,1) 9K SAME b NOMATCH 10K SAME ~((0)a|b) (5,6) 11 12E (?(1)a|b) a ESUBREG 13Ex SAME a NOMATCH 14E SAME b ESUBREG 15Ex SAME b (0,1) 16 17K ~((1)a|b) a NOMATCH 18K SAME b (0,1) 19K SAME ~((1)a|b) (7,8) 20 21E (a)(?(1)a|b) aa (0,2)(0,1) 22E SAME ab NOMATCH 23E SAME ba NOMATCH 24E SAME bb NOMATCH 25 26K @(a)~((1)a|b) aa (0,2)(0,1) 27K SAME ab NOMATCH 28K SAME ba NOMATCH 29K SAME bb NOMATCH 30 31E ((a)|(b))(?(2)a|b) aa (0,2)(0,1)(0,1) 32E SAME ab NOMATCH 33E SAME ba NOMATCH 34E SAME bb (0,2)(0,1)(?,?)(0,1) 35 36E ((a)|(b))(?(3)a|b) aa NOMATCH 37E SAME ab (0,2)(0,1)(0,1) 38E SAME ba (0,2)(0,1)(?,?)(0,1) 39E SAME bb NOMATCH 40 41Bi ^g.*style$ Grep-Style (0,10) 42Ei ^g.*style$ Grep-Style (0,10) 43E (?+i)^e.*style$ Egrep-Style (0,11) 44K ~(i)k*style Ksh-Style (0,9) 45K ~(Bi)grep-style Grep-Style (0,10) 46K ~(Bi)grep-style$ Grep-Style (0,10) 47K ~(Bi)^grep-style$ Grep-Style (0,10) 48K ~(Bi)g.*style$ Grep-Style (0,10) 49K ~(Bi)^g.*style$ Grep-Style (0,10) 50K ~(Ei)^e.*style$ Egrep-Style (0,11) 51