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

cnmtchbgs

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

justlooks

1. 
   
2. $ echo 'ab:123,bc:"333,444",cd:456'|perl -ne 's/(,)(\w+:)/\n\2/g;print'
   
3. ab:123
   
4. bc:"333,444"
   
5. cd:456
   

复制代码

bernana

回复  cnmtchbgs


    这个是正解了，我昨天研究了一下，有了头绪。非贪婪匹配，然后（？=，|$)向前断 ...
liyangole 发表于 2011-01-05 12:59

    问下?=和?<=有什么区别呀？

iLRainyday

我这个是不是有点傻？？

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $string = q{ab:123,bc:"333,444",cd:456};
   
7. my @elements = split /(?<="),|(?<=\d),(?=[a-z])/, $string;
   
8. 
   
9. local $" = "\n";
   
10. print "@elements";

复制代码

wxlfh

强烈建议使用Text::CSV模块。不要重复别人已经解决得很好的事情了。

另，用正则或者split操作符来解析CSV（就是以逗号分隔的文件）文件，实在是一件很痛苦的事情。

liyangole

回复 25# cnmtchbgs


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

cnmtchbgs

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

meihuaqi

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

cnmtchbgs

回复 16# meihuaqi

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

复制代码

cnmtchbgs

回复 16# meihuaqi


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