Perl - Parse URL to get a GET Parameter Value

Question

How to get the value of a parameter code using URI::URL Perl module?

From this link:

http://www.someaddress.com/index.html?test=value&code=INT_12345

It can be done using URI::URL or URI (I know the first one is kind of obsolete). Thanks in advance.

Link to the cpan module: metacpan.org/pod/URI::URL

jsaigle
– jsaigle

2021-11-11 03:28:52 +00:00
Commented Nov 11, 2021 at 3:28 — jsaigle
– jsaigle, Commented Nov 11, 2021 at 3:28

pmakholm · Accepted Answer · 2012-09-14 13:33:31Z

11

Create a URI object and use the query_form method to get the key/value pairs for the query. If you know that the code parameter is only specified once, you can do it like this:

my $uri   = URI->new("http://www.someaddress.com/index.html?test=value&code=INT_12345");
my %query = $uri->query_form;

print $query{code};

Alternatively you can use URI::QueryParam whichs adds soem aditional methods to the URI object:

my $uri = URI->new("http://www.someaddress.com/index.html?test=value&code=INT_12345");
print $uri->query_param("code");

answered Sep 14, 2012 at 13:33

pmakholm

1,5788 silver badges24 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

oklas · Accepted Answer · 2013-11-08 19:42:43Z

use URI;
my $uri   = URI->new("http://someaddr.com/index.html?test=FIRST&test=SECOND&code=INT_12345");
my %query = $uri->query_form;
use Data::Dumper;
print Dumper \%query;

We can see:

   $VAR1 = {
              'test' => 'SECOND',
              'code' => 'INT_12345'
            };

Unfortunately, this result is wrong.

There is possible solution:

use URI::Escape;

sub parse_query {
   my ( $query, $params ) = @_;
   $params ||= {};
   foreach $var ( split( /&/, $query ) ){
     my ( $k, $v ) = split( /=/, $var );
     $k = uri_unescape $k;
     $v = uri_unescape $v;
     if( exists $params->{$k} ) {
        if( 'ARRAY' eq ref $params->{$k} ) {
           push @{ $params->{$k} }, $v;
        } else {
           $params->{$k} = [ $params->{$k}, $v ];
        }
     } else {
        $params->{$k} = $v;
     }
   }
   return $params;
}

Collectives™ on Stack Overflow

Perl - Parse URL to get a GET Parameter Value

2 Answers 2

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related