Question

In Perl, how do I extract the text in a string if I knew the pre and post parts of the text?

Example:

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

I would like to extract the word ‘BMW’ which is always in between “&make=” and the next “&”

Answer 1

Don’t use a regular expression. Use URI and URI::QueryParam, like so:

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');