字符串分割问题

yizhengming

按逗号分割，双引号里面的逗号不作为分隔符, 举个例子:

    my $line = "   \"  detector located at x,y,z =\",  1p3e12.5,  abc";

分割后得到如下3个字段(注意分割后的字段前后没空格):
"  detector located at x,y,z ="
1p3e12.5
abc

情况2:  my $line = "   \"  detector located at x,y,z =\",  e12.5/\"  estimated, data \",  abc";

分割后得到如下3个字段:
"  detector located at x,y,z ="
e12.5/"  estimated, data "
abc

有啥简单的方法没?(希望我说清楚里)   如果能用一个split就好了

yizhengming

自己先顶一个  ....

jason680

回复 1# yizhengming


split(/([^",]*(?:"[^"]*")?[^",]*),/,$line);

perldoc -f split
perdoc  perlretut
perdoc  perlre

kk861123

使用Text::CSV_XS

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. use Text::CSV_XS;
   
6. 
   
7. my $line = qq|   \"  detector located at x,y,z =\",  1p3e12.5,  abc|;
   
8. my $csv = Text::CSV_XS->new( {
   
9.     binary => 1,
   
10.     allow_whitespace => 1,
    
11.     allow_loose_quotes => 1,
    
12. } );
    
13. $csv->parse($line) or die $!;
    
14. my @fields = $csv->fields();
    
15. print Dumper \@fields;

复制代码

yizhengming

回复 3# jason680


    thinks  偷偷的学习split 去

yizhengming

回复 4# kk861123


    thinks....

mcshell

回复 1# yizhengming


    try

1. split/,(?!.*",)|(?<="),/,$str;

复制代码

yizhengming

回复 7# mcshell

good  but:
    my $line = "abc, \"def\", ghi";

mcshell

回复 8# yizhengming


    perl不支持不定长否定逆序环视
   我觉得还是眼镜哥说的那个模块好用。。。我写的只是娱乐下拉

yizhengming

受 jason680 启发,  my @arr = $line =~ /("[^"]+"|[^,"\s]+(?:"[^"]+")*)/g;  这个也不错