如何用正则只取字符串里的一小段，保存为另一个字符串？

kookies

UID: 4987
帖子: 193
积分: 443
在线时间: 2 天 2 小时

1^# kookies 发表于 2009-01-08 14:55

如何用正则只取字符串里的一小段，保存为另一个字符串？

比如：
$str='111[1] [2] [3]333';
我想取和之间的内容（用正则表达式），另存为一个字符串，请问能实现么？

huanghaojie

UID: 17400
帖子: 56
积分: 128
在线时间: 4 小时

2^# huanghaojie 发表于 2009-01-08 15:07

先分隔，再来取split

ly5066113

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

3^# ly5066113 发表于 2009-01-08 15:11

print $1 if $str =~ />(.+)</

DQP

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

4^# DQP 发表于 2009-01-08 15:12

my $str='111[1] [2] [3]333';
my ($p) = $str =~ m/(.*?)<\/span>/;
print $p;
再看看正则表达式

MMMIX

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

5^# MMMIX 发表于 2009-01-08 15:18

QUOTE:

原帖由 kookies 于 2009-1-8 14:55 发表
比如：
$str='111[1] [2] [3]333';
我想取和之间的内容（用正则表达式），另存为一个字符串，请问能实现么？

[Copy to clipboard] [ - ]

CODE:

$_ = '111[1] [2] [3]333';
m{<([^>]+)>([^<]*)</\1>};
print $2, "\n";

当然，这个只是针对你的例子。具体问题还要具体分析。

kookies

UID: 4987
帖子: 193
积分: 443
在线时间: 2 天 2 小时

6^# kookies 发表于 2009-01-08 15:20

QUOTE:

原帖由 DQP 于 2009-1-8 15:12 发表
my $str='111[1] [2] [3]333';
my ($p) = $str =~ m/(.*?)/;
print $p;
再看看正则表达式

太牛了！超级佩服！

MMMIX

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

7^# MMMIX 发表于 2009-01-08 15:23

QUOTE:

原帖由 ly5066113 于 2009-1-8 15:11 发表
print $1 if $str =~ />(.+)

nice

huanghaojie

UID: 17400
帖子: 56
积分: 128
在线时间: 4 小时

8^# huanghaojie 发表于 2009-01-08 15:49

=~ />(.+) 这个怎么解释

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

9^# machine 发表于 2009-01-08 15:59

$_ = '111[1] [2] [3]333';
m{<([^>]+)>([^<]*)</\1>};
print $2, "\n";

这个好。

ynchnluiti

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

10^# ynchnluiti 发表于 2009-01-08 15:59

QUOTE:

原帖由 huanghaojie 于 2009-1-8 15:49 发表
=~ />(.+) 这个怎么解释

[Copy to clipboard] [ - ]

CODE:

$str =~ />(.+)</

> <之间的字符