perl -0777 -nle 'print $2 if(/(.*?(xx.*?)oo){3}/s)' f
perl -ne 'if(/xx/../oo/){print if($P and !/oo/);next}$P?exit:$P++' f
perl -ne 'if(/xx/.../xx/){next if(!$P);exit if(/oo/);print}$P++' f
perl -0777 -ne 'while(m/((xx.*?)oo.*?xx)/sg){print $2 if($P++)}' f
xx
1
inside
xx
oo
outside
oo
outside
xx
2
inside
xx
outside
oo
outside
oo
xx
3
inside
xx
oo
outside
oo
outside
欢迎光临 Chinaunix (http://bbs.chinaunix.net/) | Powered by Discuz! X3.2 |