如何忽略双引号中的分割符

meihuaqi

回复 1# cnmtchbgs
发现我也有点高手的范了{:3_183:}

1. bsd# perl -e '$_= "ab:123,bc:\"333,444\",cd:456"; while(/\w+:(")?.*?(?(1)")(?=,|$)/g){print [        DISCUZ_CODE_0        ],"\n";}'
   
2. ab:123
   
3. bc:"333,444"
   
4. cd:456

复制代码

meihuaqi

擦
为啥 $& 会变成   DISCUZ_CODE_0

meihuaqi

回复 9# cnmtchbgs
把   DISCUZ_CODE_0  换成$&, 还有就是拷贝的时候注意，没有回车的，那是一行代码

meihuaqi

把 [        DISCUZ_CODE_0        ] 换成 $&

meihuaqi

perl -e '$_= "ab:123,bc:\"333,444\",cd:456"; while(/\w+"?.*?(?(1)"(?=,|$)/g){print $&,"\n";}'

meihuaqi

perl -e '$_= "ab:123,bc:\"333,444\",cd:456"; while(/\w+:(")?.*?(?(1)")(?=,|$)/g){print $&,"\n";}'

meihuaqi

无奈了
把这行代码写到文件中执行
$_= "ab:123,bc:\"333,444\",cd:456"; while(/\w+:(")?.*?(?(1)")(?=,|$)/g){print $&,"\n";}

meihuaqi

模糊的记得这个东西的学名叫 正则条件