有个文本匹配搜素的问题 求思路

sunzhiguolu

1. perl -ne '$b=1 if(/width:/);if($b){$s.=$_;$_=$s;if(y/{/{/==y/}/}/){print;last}}' f

复制代码

moperyblue

1. awk '/width:/{f=1}f{if(/{/)++i;if(/}/)--i;if(i==0){print;f=0}}f'

复制代码

jason680

回复 1# david_95

$ perl -00lne '{if(m/(width:\s*(\{(?:[^}{]+|(?2))*\}))/xms){print $1}}' x.xml
width: {
                    normalized_value: {
                        unit: inches,
                        value: 10.49999998929,
                    },
                    unit: centimeters,
                    value: 26.67,
                }