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

cnmtchbgs

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

ly5066113

可以用 Text::CSV 吧。

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";
}

cnmtchbgs

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

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

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

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

liyangole

回复 4# cnmtchbgs


    ok,我试试这个模块。

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

liyangole

安装了模块，试了，

cnmtchbgs

回复 6# meihuaqi


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

meihuaqi

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