Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 244
  • Last Modified:

Put query string from URL request - PERL HTTP Daemon

I want to be able to call for example:

127.0.0.1:8000/?abc=123

And get the value of 'abc' printed to the console..



##!/usr/bin/perl

use HTTP::Daemon;
use Data::Dumper;

my $d = HTTP::Daemon->new(
    LocalPort => 8000
) || die;

while (my $c = $d->accept) {
    while (my $request = $c->get_request) {
		
print $request->url->path();

        my $response = HTTP::Response->new( 200, 'OK');
        $response->header('Content-Type' => 'text/html'),
        $response->content("Ack");
        $c->send_response($response);
		$c->close;
		exit;
    }
}

Open in new window

0
Mark
Asked:
Mark
1 Solution
 
Mark OlsenSr. DeveloperCommented:
Looking at the documentation for Http::Request::Params you would do something along these lines:

# make the parser from the request
my $parser = HTTP::Request::Params->new({
                  req => $request,
               });

# parse the params into a hash
my $params = $parser->params;

# retrive the desired param value
my $paramValue = $params{'abc'};

Open in new window


disclaimer: my Perl is a bit rusty so this may need a few tweaks.
0
 
MarkProgrammerAuthor Commented:
Thank you
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now