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

cnmtchbgs

有这么一个例子
ab:123,bc:"333,444",cd:456
用,作为分割符，分割出来希望得到是
ab:123
bc:"333,444"
cd:456
这样的效果，忽略双引号中间的分隔符。而不是
ab:123
bc:"333
444"
cd:456
请教各位大侠如何实现！

cnmtchbgs

楼上的方法也许能行，不过花脸太多，有碍阅读。
经过试验发现使用Text:arseWords这个模块，使用quotewords这个函数可以做到，代码如下：
use Text:arseWords;

$str1='ab:123,bc:"333,444",cd:456';

my @str=quotewords(",", 1, $str1);

其中quotewords函数，参数2中 1 代表不去除"号，如果改为零，代表去除引号。

cnmtchbgs

回复 6# meihuaqi


    我试过了，你的这串代码，跑不起来，报错如下：
'$)' is not recognized as an internal or external command,

cnmtchbgs

回复 13# meihuaqi


    不知道你调试过没有，我拿你这个最新的代码试验了一下，同样的错误。很奇怪的，难道跟操作系统有关，我在win vista下面测试的

cnmtchbgs

回复 13# meihuaqi


    放到perl脚本文件里面执行，结果是正确的，我研究一下这两者的区别。

cnmtchbgs

回复 16# meihuaqi


    放在文件中执行是没有问题的，这个就有意思了

cnmtchbgs

回复 16# meihuaqi


    同上，我也不明白这句话的具体含义，只知道是非贪婪匹配。

cnmtchbgs

回复 16# meihuaqi


    果然是高，$_= "ab:123,bc:\"333,444\",cd:456"; while(/\w+"?.*?(?(1)"(?=,|$)/g){print $&,"\n";}这句话我研究了很久也没搞明白，特别是(?(1)"是什么意思，请指教！

cnmtchbgs

回复 16# meihuaqi

1.     果然是高，$_= "ab:123,bc:\"333,444\",cd:456"; while(/\w+:(")?.*?(?(1)")(?=,|$)/g){print $&,"\n";}这句话我研究了很久也没搞明白，特别是(?(1)")是什么意思，请指教！

复制代码

cnmtchbgs

(?(1)")用于判断成对出现的匹配