求一個(gè)正規(guī)表達(dá)式寫法（在線等）

HawaiiLeo

my $str = "abc","begin""2"",""2""end","efg";
上面的字符串，我想分割成
abc
begin""2"",""2""end
efg

現(xiàn)在使用my @s = split(/","/, substr($str, 1, length($str)-2);
得到的是：
abc
begin""2"
"2""end
efg

如果使用my @s = split(/","/, substr($str, 1, length($str)-2);得到的是：
ab
egin""2"",""2""en
fg

請問哪位有好地解決辦法。

MMMIX

你可以考慮用 look ahead，在 perlre 中搜索下看看要怎么用

cobrawgl

$_ = q{"abc","begin""2"",""2""end","efg"};

print $1, ' | ', $2, ' | ', $3 if /"(\w{3})","(.*)","(\w{3})"/;


僅針對你給出的例子啊

HawaiiLeo

感謝MMMIX大師的提示，使用perlre  look ahead能得到需要的結(jié)果
my $str = "abc","begin""2"",""2""end","efg";
my @s = split(/(?<!")","(?!")/, substr($str, 1, length($str)-2));

結(jié)果：
abc
begin""2"",""2""end
efg

謝謝cobrawgl

[ 本帖最后由 HawaiiLeo 于 2008-12-24 12:05 編輯 ]

ynchnluiti

原帖由 HawaiiLeo 于 2008-12-24 12:04 發(fā)表
split(/(?<!")","(?!")/, substr($str, 1, length($str)-2));

學(xué)習(xí)

HawaiiLeo

CSV文件各個(gè)項(xiàng)目可能包含有"和,的符號，出力的的時(shí)候把一個(gè)雙引號都轉(zhuǎn)換成了兩個(gè)雙引號，
如下的內(nèi)容，怎么分割成正確的結(jié)果��？
"abc"","",""bcd","","","123","",""

上面的內(nèi)容我想得到
abc"","",""bcd
空
空
123
空
空

ly5066113

Excel打開，另存為*.txt

HawaiiLeo

現(xiàn)在有兩個(gè)Oracle數(shù)據(jù)庫，因?yàn)槠渌�原因不能用db link更新，也不能用固定長文件更新，
就想把數(shù)據(jù)從Oracle出力成CSV文件，然后和前一天的出力文件做差分，
再用差分結(jié)果去更新另外一個(gè)Oracle對應(yīng)的表。

所以excel就不行了，而且linux環(huán)境，excel也沒有啊。

cobrawgl

我覺得你這個(gè)更適合用 parser 來做

ynchnluiti

Text::CSV 可以。http://search.cpan.org/dist/Text-CSV/lib/Text/CSV.pm

1. #!/usr/bin/perl
   
2. 
   
3. use Text::CSV;
   
4. $csv = Text::CSV->new();
   
5. 
   
6. $line=q("abc"","",""bcd","","","123","","");
   
7. 
   
8. $status  = $csv->parse($line);# parse a CSV string into fields
   
9. @columns = $csv->fields();
   
10. 
    
11. for (@columns) {
    
12.     print $_,"\n";
    
13. }
    
14. __DATA__
    
15. "abc"","",""bcd","","","123","",""

復(fù)制代碼

$ ./csv
abc",","bcd


123