如何写这样的正则表达式？

[quace]

1.需要将[TAG]XXXXX[/TAG]中的内容XXXX取出
2.将这个标签和内容去除

[duracell]

python
>>> a=re.compile(r'\[TAG\](.*?)\[/TAG\](.*)')
>>> b=a.search('[TAG]XXXXX[/TAG][TAG]ZZZZZ[/TAG][TAG]ZZZZZ[/TAG]')
>>> while b:
... print b.group(1)
... b=a.search(b.group(2))
...
XXXXX
ZZZZZ
ZZZZZ

perl 不懂

[fibbery]

my $str="ldskjafldk[TAG]XXXXX[/TAG]ds;lakfjdslakjf";
if ($str=~/(\[TAG.*TAG\])/)
{
print("$1\n");
print("match\n");
}
else
{
print"no match\n";
}
=============
$1=[TAG]XXXXX[/TAG]
如果存在多个[TAG]XXXXX[/TAG]，那么$2是第二次匹配串。

[fibbery]

$str1=substr($1,5,length($1) - 11);
==
楼主你不是要的到这个串吧！

[wti]

$s=[TAG]XXXXX[/TAG];
$s =~ m#[TAG](/w+)[/TAG]#;
print $1;

[wti]

sorry should be
$s =~ m#[TAG](\w+)[/TAG]#;

[huiming1130]

$a="asdfsdf[TAG]xxxxx[/TAG]sdfs";
$a=~s#\[TAG](.*)\[\/TAG]##;
$b=$1;
如此的话，$b为取出的内容，同时$a为"asdfsdfsdfs",已经将标签和内容都去除了

[huiming1130]

哦
对不起，有误
$a=~s#\[TAG\](.*)\[\/TAG\]##;
这样才对

[fi9]

哈,想了一个中午终于还是被我想出来了,哈!

$str="1234\"abcd\\\"ABCD\\\"HIJK\"1234\"abcd\\\"ABCD\\\"HIJK\"1234"
##其就是:1234"abcd\"ABCD\"HIJK"1234"abcd\"ABCD\"HIJK"1234
$str=~m/\"([^\"]|\\\")*[^\\]\"/i;
print $&;
##这样就可以得到:"abcd\"ABCD\"HIJK"
##而不且得到: "abcd\"ABCD\"HIJK"1234"abcd\"ABCD\"HIJK"
##或者: "abcd\"ABCD\"HIJK"1234"
##哈

[fi9]

楼上的写得都不错。
但是，我现在也有个和楼主的差不多的问题：
把[TAG]和[/TAG]换成"和"也就是串啦；
像：
$str="1234"abcd\\\"ABCD\\\"HIJK"1234"
也就是：
1234"abcd\"ABCD\"HIJK"1234
我怎么才能够取得串中的真正串呢？！
也就是取得的结果为：
abcd\"ABCD\"HIJK

$str = ~m/\"[.*]\"/i;
print $&;
这样是不行了！

[zzzxxxcccvvv]

<store>

[Perrin]

$text = "\[TAG\](\.*)\[\/TAG\]"