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

toniz

禁用掉SMILES之后还有笑脸，郁闷。

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)")是什么意思，请指教！

复制代码

meihuaqi

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

cnmtchbgs

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

liyangole

回复 25# cnmtchbgs


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

wxlfh

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

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

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

复制代码

bernana

回复  cnmtchbgs


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

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

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
   

复制代码