模式匹配问题求教

droopy

有一个.csv格式的文件，
每一行的格式如下
字段一,字段二,字段三,.....（字段间用逗号隔开）

如果字段中包含逗号，那么这个字段用双引号包围起来，

字段一,字段二,"字段三（包含逗号）",.....

如果字段中包含成对的引号也包含逗号，格式如下，比如
一个字段内容为 "abc","def"         既包含成对的引号和逗号

最终会是 """abc"",""def""",

所以我的文件实际包含的内容会是
abc,def,""abc"","abc,def"....

我只会用split进行简单的匹配，这个问题让我昨天想了一下午没有答案，

请大家帮我看看

apile

先用$line =~s/(".*?)(,)(.*?",)/$1，$3/g; 這裡可能要修改....:)
然後$line=~s/""/"/g;
然後再split....

[ 本帖最后由 apile 于 2006-1-9 10:41 编辑 ]

droopy

谢谢，有一点不明白，为什么要加个?呢，
.*不是就可以了吗

apile

nongreed match propose...

droopy

谢谢，周杰仑，
不过我还是不懂，perldoc -q split中也给出了方法，
========================================
@new = ();
push(@new, $+) while $text =~ m{
          "([^\"\\]*(?:\\.[^\"\\]*)*)",?
                  | ([^,]+),?
                  | ,
                    }gx;
              push(@new, undef) if substr($text,-1,1) eq ',';
===========================================
我也看不懂，
不过Text:arseWords模块很简单，问题解决了

[ 本帖最后由 droopy 于 2006-1-9 16:23 编辑 ]

joson12345

========================================
先用$line =~s/(".*?)(,)(.*?",)/$1，$3/g; 這裡可能要修改....
然後$line=~s/""/"/g;
然後再split....

[ 本帖最后由 apile 于 2006-1-9 10:41 编辑 ]
========================================
请问在$line =~s/(".*?)(,)(.*?",)/$1，$3/g语句中后面的‘g’没有‘e’的话可以对$line进行修改吗？

apile

e是expression的意思...
也就是说/1/2/ge
在2的地方
你可以丢一个subroutine进去...
这边并没有用到subroutine..所以用g就行了..

joson12345

呵呵，
$万能钥匙=周杰仑朋友；
while ($万能钥匙) {
print "all ok";
}
hehe

[ 本帖最后由 joson12345 于 2006-1-10 11:31 编辑 ]