[已解决][求助]如何做如下字串切分？

galaxy001

UID: 40457
帖子: 169
积分: 388
在线时间: 1 天 15 小时

1^# galaxy001 发表于 2008-06-29 15:52

[已解决][求助]如何做如下字串切分？

对“abc;efg;ddd; fdd"，要切为"abc", "efg", "ddd; fdd"
即以";"切开，但遇到"; "的不切。应该如何写？

cobrawgl

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

2^# cobrawgl 发表于 2008-06-29 16:19

#!/usr/bin/perl

use strict;
use warnings;

$_ = 'abc;efg;ddd; fdd';

while ($_) {
if (/^(\w+;\s+\w+)/) {
$_ = $';
print "$1 ";
} elsif (/^(\w+);/){
$_ = $';
print "$1 ";
}
}

____________________

galaxy001

UID: 40457
帖子: 169
积分: 388
在线时间: 1 天 15 小时

3^# galaxy001 发表于 2008-06-29 16:22

如果要像split那样返回数组，有简便些的办法吗？
感觉一个个push看起来不太舒服。

我暂时是这样解决的：

[Copy to clipboard] [ - ]

CODE:

my $groups='ID=12002.t00840;Name=CSLA1 - cellulose synthase-like family A; mannan synthase, expressed';
# patch for TIGR GFF3
$groups=~ s/; /@@@@@/g;
$groups=~ s/, /#####/g;

my @groups = split(/\s*;\s*/, $groups);

for my $group (@groups) {
my ($tag,$value) = split /=/,$group;
$tag          = unescape($tag);
my @values    = map {unescape($_)} split /,/,$value;
for my $v ( @values ) {
         $v=~s/@@@@@/; /g; # patch for TIGR GFF3
         $v=~s/#####/, /g; # patch for TIGR GFF3
         $feat->add_tag_value($tag,$v);
         }
}

cobrawgl

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

4^# cobrawgl 发表于 2008-06-29 18:08

There Is More Than One Way To Do It

MMMIX

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

5^# MMMIX 发表于 2008-06-29 19:29

QUOTE:

原帖由 galaxy001 于 2008-6-29 16:22 发表
如果要像split那样返回数组，有简便些的办法吗？

有的，就用 split, 不过你得仔细研究下 regexp

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2008-06-29 19:45

用零宽度向前断言就可以了。

cobrawgl

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

7^# cobrawgl 发表于 2008-06-29 21:11

QUOTE:

原帖由 flw 于 2008-6-29 19:45 发表
用零宽度向前断言就可以了。

还没有看大骆驼的正则式部分，版主能不能给个例子啊。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

8^# flw 发表于 2008-06-29 21:33

QUOTE:

原帖由 cobrawgl 于 2008-6-29 21:11 发表

还没有看大骆驼的正则式部分，版主能不能给个例子啊。

[Copy to clipboard] [ - ]

CODE:

D:\MoChou>perl -ne "print if 1../__END__/" ttt.pl
my $str = "abc;efg;ddd; fdd";
my @list = split /;(?=\S)/, $str;
print "[$_]\n" foreach @list;
__END__

D:\MoChou>ttt
[abc]
[efg]
[ddd; fdd]

D:\MoChou>

cobrawgl

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

9^# cobrawgl 发表于 2008-06-29 21:49

thanks

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

10^# mouse.rice 发表于 2008-06-29 22:02

QUOTE:

原帖由 flw 于 2008-6-29 21:33 发表

D:\MoChou>perl -ne "print if 1../__END__/" ttt.pl
my $str = "abc;efg;ddd; fdd";
my @list = split /;(?=\S)/, $str;
print "[$_]\n" foreach @list;
__END__

D:\MoChou>ttt
[abc]
[efg]
[ddd; ...

让老大给抢先了为了鼓励自己，我还是要把我的CODE贴出来，也算写个笔记，已备自己日后查阅！

while(<DATA>){
my @list = split /\;(?=\w)/;
print join ",",@list;
}

__END__
abc;efg;ddd; fdd

QUOTE:

D:\>perl -w tem.txt
abc,efg,ddd; fdd

-----------其实2周前我也不知道有“环视”一说，是看了FLW老大前些天的回帖（详见：如何提取介于某个区间的几行文字，区间的开始和结束可以用正则表达式描述）才去学习?!的用法，无心插柳柳成荫，把?<=和?=也顺带看了，呵呵，真好！希望坛子里的神仙们多多回帖，不懂的地方我们就多多查阅资料，直到弄明白，很好很强大