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

liyangole

我用了很笨的方法。楼上的没有用过那个模块 ，下面是我的代码：
#!/usr/bin/perl -w
$str=qq/ab:123,bc:"333,444",cd:4r6/;
$str=~s/"(\d+?),(\d+?)"/"$12"/;
@a=split/,/,$str;
for $value (@a) {
  $value=~s/("[^"]+?)[^"]+?"/$1,$2/;
  print $value,"\n";
}

liyangole

回复 4# cnmtchbgs


    ok,我试试这个模块。

liyangole

安装了模块，试了，

liyangole

回复 13# meihuaqi


    请详细介绍一下/\w+"?.*?(?(1)"(?=,|$)/g  谢谢

liyangole

回复 25# cnmtchbgs


    这个是正解了，我昨天研究了一下，有了头绪。非贪婪匹配，然后（？=，|$)向前断言。确定匹配位置。值得学习借鉴了。