[新手请教]正则表达式的问题!!!

PerlLover

UID: 37737
帖子: 136
积分: 312
在线时间: 1 天 1 小时

1^# PerlLover 发表于 2008-01-23 13:26

[新手请教]正则表达式的问题!!!

[xxxxx]
如何取道两个中括号之间的xxxxx内容呢。

duo_wang

UID: 22801
帖子: 42
积分: 96
在线时间: 2 小时

2^# duo_wang 发表于 2008-01-23 13:28

\[.+\]

PerlLover

UID: 37737
帖子: 136
积分: 312
在线时间: 1 天 1 小时

3^# PerlLover 发表于 2008-01-23 13:32

如果说
a=[100]
那我想把100取出来的方法是什么呢.

jane007

UID: 32699
帖子: 68
积分: 156
在线时间: 6 小时

4^# jane007 发表于 2008-01-23 13:39

用\[.+\]这个取出[100]，再去掉括号比较好。

PerlLover

UID: 37737
帖子: 136
积分: 312
在线时间: 1 天 1 小时

5^# PerlLover 发表于 2008-01-23 13:39

我这样写，print $1 if $a = ~/\[.+\]/;
但是不对。应该如何写呢

duo_wang

UID: 22801
帖子: 42
积分: 96
在线时间: 2 小时

6^# duo_wang 发表于 2008-01-23 13:41

print $1 if $a = ~/\[(.+)\]/;
给.+加上括号

PerlLover

UID: 37737
帖子: 136
积分: 312
在线时间: 1 天 1 小时

7^# PerlLover 发表于 2008-01-23 13:45

还是不可以啊，报错信息：Can't modify constant item in scalar assignment

PerlLover

UID: 37737
帖子: 136
积分: 312
在线时间: 1 天 1 小时

8^# PerlLover 发表于 2008-01-23 13:57

a="[bbb]";

print $1 if $a =~ /\[(.+)\]/;

这样写是编译不过去的哈，郁闷，都没人理

jane007

UID: 32699
帖子: 68
积分: 156
在线时间: 6 小时

9^# jane007 发表于 2008-01-23 14:07

看看这段：
my $reg = '\[(.+)\]';

my $string = "a[100]";

if($string =~ /$reg/)
{
print "Successful: $1\n";
}

linuxnextyear

UID: 8338
帖子: 10
积分: 23
在线时间: 10 分钟

10^# linuxnextyear 发表于 2008-01-23 14:08

我也试了一下：
$_="[100]";
if (/\[(.+)\]/){
      print "Yes\n";
      print $1;
}else{
      print "No\n";
"my.pl" 63L, 1022C written
[root@cache251-217 perl]# perl my.pl
Yes
100