How to get query string parameters from POST request in CGI Perl script?

Question

You can get query param in CGI script with this code:

#!C:\Perl64\bin\perl.exe

use CGI;

my $cgi = CGI->new();

my $file = $cgi->param( "file" );
print "Content-Type: text/plain\n\n";

my $text = do {
    open(my $f, "<:encoding(UTF-8)", $file)
      or die("Can't open \$filename\": $!\n");
    local $/;
    <$f>
};

print $text;

but this don't work if request is POST, I'm sending this request using fetch API:

await fetch('cgi-bin/script.pl?file=..\foo.php', {
   method: 'POST',
   body: 'Some Text'
}).then(r => r.text());

if I open the script in Browser I get content of the file. Is there a way to tell CGI module to get params from QueryString instead of POST data? or any other raw way to parse Query String without CGI module in Perl?

$cgi->url_param('file') perldoc.perl.org/CGI.html#MIXING-POST-AND-URL-PARAMETERS — ernix
– ernix, Commented Dec 11, 2018 at 11:07

Dave Cross · Accepted Answer · 2018-12-11 13:55:22Z

2

Seems weird to make a POST request with all of the data in the URL. Why not just make a GET?

But, anyway, CGI.pm has you covered. There's a section in the documentation called Mixing post and url parameters which says the following:

my $color = url_param('color');
It is possible for a script to receive CGI parameters in the URL as well as in the fill-out form by creating a form that POSTs to a URL containing a query string (a "?" mark followed by arguments). The param() method will always return the contents of the POSTed fill-out form, ignoring the URL's query string. To retrieve URL parameters, call the url_param() method. Use it in the same way as param(). The main difference is that it allows you to read the parameters, but not set them.

answered Dec 11, 2018 at 13:55

Dave Cross

69.5k3 gold badges55 silver badges101 bronze badges

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

3 Comments

jcubic Over a year ago

Will this work without use CGI; my $cgi = CGI->new();? You didn't use $cgi->

Dave Cross Over a year ago

@jcubic: Yeah, that works too. But I've never really seen the point of using CGI objects. Whoever needs more than one CGI object in a program?

Dave Cross Over a year ago

@jcubic: Also, please read CGI::Alternatives and Please Don't Use CGI.pm.

Collectives™ on Stack Overflow

How to get query string parameters from POST request in CGI Perl script?

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related