模式匹配CVS记录的问题

wwwjy2000

$s = q(a,b,,"""d,d""");
my @arr1 = $s =~ /((?:"(?:[^"]|"")+")|(?:[^,])*)/g;
my @arr2 = $s =~ /((?:"(?:[^"]|"")+")|(?:[^,])+)/g;

上面3行代码中：
@arr1中，每个非空字段后多匹配一个空记录
@arr2中，b后面的空记录未能匹配。
请问如何才能匹配出正确的4字段？（不用TEXT：：CSV＿XS的情况下）
谢谢！

shijiang1130

$s = q(a,b,,"""d,d"""); my @arr1 = $s =~ /((?:"(?:[^"]|"")+")|(?:[^,])*)/g; my @arr2 = $s =~ /((?:"(?:[^"]|"")+")|(?:[^,])+)/g; print "@arr1"."n"; print @arr2; F:>perl 1.pl a b """d,d""" ab"""d,d""" F:>

如何才能匹配出正确的4字段?
打印出是这个样子啊,怎么4字段,5吧.就是,为分隔符不?
split可以不?

$s = q(a,b,,"""d,d"""); @arr=split(/,/,$s); print "n"."@arr"; a b """d d"""

[ 本帖最后由 shijiang1130 于 2009-3-1 19:20 编辑 ]

wwwjy2000

$s = q(a,2,,"""d,d""");
my @arr1 = $s =~ /((?:"(?:[^"]|"")+")|(?:[^,])*)/g;
my @arr2 = $s =~ /((?:"(?:[^"]|"")+")|(?:[^,])+)/g;

print "------------arr1-----------\n";
print "[$_]\n" for (@arr1);
print "------------arr2-----------\n";
print "[$_]\n" for (@arr2);
print "---------------------------\n";
结果：
------------arr1-----------
[a]
[]
[2]
[]
[]
["""d,d"""]
[]
------------arr2-----------
[a]
[2]
["""d,d"""]
---------------------------
split肯定不行:["""d,d"""]作为一个整体，如用split，将把其分成两部份。想要的结果应为：
[a]
[2]
[]
["""d,d"""]
问题是： 怎样才能等到上面的结果？

最后一个字段["""d,d"""]改为["d,d"]可能好理解点，即字段中含有字段分隔符","时，将用双引号引起，
若字段中有双引号，将用连在一起的两个双引号表示原来的每个引号
扣![字符b］ 不能显示，改"2"

[ 本帖最后由 wwwjy2000 于 2009-3-3 14:52 编辑 ]

shijiang1130

$s = q(a,b,,"""d,d"""); ($x,$y,$z,@o)=split(/,/,$s); print "\n"."$x"; print "\n"."$y"; print "\n"."$z"; print "\n"."@o";

wwwjy2000

split不可行！
因为含有","的字段不一定固定在第4字段的。楼上的老兄的方案仅适用于给出的例子
不具通用性