求一个正规表达式写法（在线等）

HawaiiLeo

UID: 25588
帖子: 141
积分: 324
在线时间: 1 天 3 小时

1^# HawaiiLeo 发表于 2008-12-24 10:08

求一个正规表达式写法（在线等）

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

现在使用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

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2008-12-24 10:12

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

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

3^# cobrawgl 发表于 2008-12-24 11:15

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

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

仅针对你给出的例子啊

HawaiiLeo

UID: 25588
帖子: 141
积分: 324
在线时间: 1 天 3 小时

4^# HawaiiLeo 发表于 2008-12-24 12:04

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

结果：
abc
begin""2"",""2""end
efg

谢谢cobrawgl

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

5^# ynchnluiti 发表于 2008-12-24 12:17

QUOTE:

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

学习

HawaiiLeo

UID: 25588
帖子: 141
积分: 324
在线时间: 1 天 3 小时

6^# HawaiiLeo 发表于 2008-12-25 13:42

CSV文件各个项目可能包含有"和,的符号，出力的的时候把一个双引号都转换成了两个双引号，
如下的内容，怎么分割成正确的结果啊？
"abc"","",""bcd","","","123","",""

上面的内容我想得到
abc"","",""bcd
空
空
123
空
空

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

7^# ly5066113 发表于 2008-12-25 13:48

Excel打开，另存为*.txt

HawaiiLeo

UID: 25588
帖子: 141
积分: 324
在线时间: 1 天 3 小时

8^# HawaiiLeo 发表于 2008-12-25 14:01

现在有两个Oracle数据库，因为其他原因不能用db link更新，也不能用固定长文件更新，
就想把数据从Oracle出力成CSV文件，然后和前一天的出力文件做差分，
再用差分结果去更新另外一个Oracle对应的表。

所以excel就不行了，而且linux环境，excel也没有啊。

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

9^# cobrawgl 发表于 2008-12-25 14:19

我觉得你这个更适合用 parser 来做

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

10^# ynchnluiti 发表于 2008-12-25 14:41

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

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

use Text::CSV;
$csv = Text::CSV->new();

$line=q("abc"","",""bcd","","","123","","");

$status = $csv->parse($line);# parse a CSV string into fields
@columns = $csv->fields();

for (@columns) {
print $_,"\n";
}
__DATA__
"abc"","",""bcd","","","123","",""

QUOTE:

$ ./csv
abc",","bcd

123