在Perl中的字符串之间提取文本

Question

在Perl中,如果我知道文本的前后部分,如何在字符串中提取文本？

例:

输入:www.google.com/search?size=1&make=BMW&model=2000

我想提取"宝马"这个词,它总是介于"&make ="和下一个"&"之间

Answer 1

不要使用正则表达式.使用URI和URI :: QueryParam,如下所示:

use strict;
use warnings;
use URI;
use URI::QueryParam;

my $u = URI->new('http://www.google.com/search?size=1&make=BMW&model=2000');
print $u->query_param('make');