在perl中读取引号内的字符串

Question

这是字符串：

[quote="test post1"]this is a test post[/quote]

我想只检索测试post1值

这就是我正在做的......

[tmp test][item-param body] [/tmp]
$str1 = $Scratch->{test};
$str1 =~ m/"(.?)"/;

但它没有给出的是期望值：test post1

任何帮助将不胜感激。

Answer 1

#!/usr/bin/perl;

my $str = '[quote="test post1"]this is a test post[/quote]';

if($str=~m/\"(.+)\"/) {
print $1;
}