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

meihuaqi

把 [        DISCUZ_CODE_0        ] 换成 $&

meihuaqi

perl -e '$_= "ab:123,bc:\"333,444\",cd:456"; while(/\w+"?.*?(?(1)"(?=,|$)/g){print $&,"\n";}'

meihuaqi

perl -e '$_= "ab:123,bc:\"333,444\",cd:456"; while(/\w+:(")?.*?(?(1)")(?=,|$)/g){print $&,"\n";}'

cnmtchbgs

回复 13# meihuaqi


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

cnmtchbgs

回复 13# meihuaqi


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

meihuaqi

无奈了
把这行代码写到文件中执行
$_= "ab:123,bc:\"333,444\",cd:456"; while(/\w+:(")?.*?(?(1)")(?=,|$)/g){print $&,"\n";}

cnmtchbgs

回复 16# meihuaqi


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

liyangole

回复 13# meihuaqi


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

cnmtchbgs

回复 16# meihuaqi


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

toniz

貌似这个问题回答过很多相似的。。

perldoc -q "delimited string"
Found in /usr/lib/perl5/5.8.8/pod/perlfaq4.pod
       How can I split a [character] delimited string except when inside [character]?

       Several modules can handle this sort of pasing---Text::Balanced, Text::CSV, Text::CSV_XS, and
       Text:arseWords, among others.

       Take the example case of trying to split a string that is comma-separated into its different fields. You
       can't use "split(/,/)" because you shouldn't split if the comma is inside quotes.  For example, take a
       data line like this:

           SAR001,"","Cimetrix, Inc","Bob Smith","CAM",N,8,1,0,7,"Error, Core Dumped"

       Due to the restriction of the quotes, this is a fairly complex problem.  Thankfully, we have Jeffrey
       Friedl, author of Mastering Regular Expressions, to handle these for us.  He suggests (assuming your
       string is contained in $text):

            @new = ();
            push(@new, $+) while $text =~ m{
                "([^\"\\]*(?:\\.[^\"\\]*)*)",?  # groups the phrase inside the quotes
              | ([^,]+),?
              | ,
            }gx;
            push(@new, undef) if substr($text,-1,1) eq ',';

       If you want to represent quotation marks inside a quotation-mark-delimited field, escape them with back-
       slashes (eg, "like \"this\"".

       Alternatively, the Text:arseWords module (part of the standard Perl distribution) lets you say:

           use Text:arseWords;
           @new = quotewords(",", 0, $text);

       There's also a Text::CSV (Comma-Separated Values) module on CPAN.