Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 197
  • 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

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

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