Ad:

Perl Discussion Thread
Unsolved
Views: 4246

Jan 10th, 2009

retreive query string

Expand Post »

how do I retreive query string in perl ?

let's say I have http://server.com?name=foo
how do I get the value of 'name'

thx

cvv3@yahoo.com

Similar Threads

GridView in ASPX in C#
where to put .asp code into html code in ASP.NET

perl1user

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

8 posts
since Jan 2009

Permalink

Jan 10th, 2009

Re: retreive query string

perl Syntax (Toggle Plain Text)
use CGI;
 
chomp($name = param("name")); # // $name should have "foo" in it.
use CGI;

chomp($name = param("name")); # // $name should have "foo" in it.

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 11th, 2009

Re: retreive query string

Click to Expand / Collapse Quote originally posted by perl1user ...

how do I retreive query string in perl ?

let's say I have http://server.com?name=foo
how do I get the value of 'name'

thx

cvv3@yahoo.com

Already answered on one or two other forums.

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Jan 11th, 2009

Re: retreive query string

Perl Syntax (Toggle Plain Text)
$str="http://server.com?name=foo&age=20&id=3&pass=123456";
$str=~s/^.*?\?//;
while($str=~m/(.*?)\b=(.*?)(&|$)/){
	print "$1----$2\n";
	$str=$';
}
 
$str="http://server.com?name=foo&age=20&id=3&pass=123456";
$str=~s/^.*?\?//;
while($str=~m/(.*?)\b=(.*?)(&|$)/){
	print "$1----$2\n";
	$str=$';
}

summer_cherry

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Jan 2009

Permalink

Jan 15th, 2009

Re: retreive query string

nevermind this post. The thread didn't show me there were any replies on the page before I responded.

Last edited by Phaelax; Jan 15th, 2009 at 8:03 pm.

Phaelax

Reputation Points: 92

Solved Threads: 51

Practically a Posting Shark

Offline

856 posts
since Mar 2004

Permalink

Jan 15th, 2009

Re: retreive query string

Click to Expand / Collapse Quote originally posted by summer_cherry ...

Perl Syntax (Toggle Plain Text)
$str="http://server.com?name=foo&age=20&id=3&pass=123456";
$str=~s/^.*?\?//;
while($str=~m/(.*?)\b=(.*?)(&|$)/){
	print "$1----$2\n";
	$str=$';
}
 
$str="http://server.com?name=foo&age=20&id=3&pass=123456"; $str=~s/^.*?\?//; while($str=~m/(.*?)\b=(.*?)(&|$)/){ print "$1----$2\n"; $str=$'; }

how will that parse the query string? That parses a string. There is no need to do something like that anyway nor is it advisable, use the CGI module or a CGI sub class to parse query or form data.

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Feb 5th, 2009

Re: retreive query string

Perl Syntax (Toggle Plain Text)
$qs=$ENV(QUERY_STRING);
$qs=$ENV(QUERY_STRING);

mitchems

Reputation Points: 26

Solved Threads: 38

Posting Whiz in Training

Offline

293 posts
since Feb 2009

Permalink

Feb 5th, 2009

Re: retreive query string

oops... I meant:

Perl Syntax (Toggle Plain Text)
$qs=$ENV{QUERY_STRING};
$qs=$ENV{QUERY_STRING};

Since it is a hash.

mitchems

Reputation Points: 26

Solved Threads: 38

Posting Whiz in Training

Offline

293 posts
since Feb 2009

Permalink

Feb 5th, 2009

Re: retreive query string

I would suggest using the CGI module as well, but if you really want to do it by hand... Here is an extremely messy, but effective way of parsing (not strict BTW):

Perl Syntax (Toggle Plain Text)
############
sub getcgi {
############
	read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $input);
	foreach $pair(@pairs) {
 
	        ($name, $value) = split(/=/, $pair);
	        $name =~ tr/+/ /;
	        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $value =~ tr/+/ /;
 
	        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
					#$value =~ s/< *(\/*)[^>]*script[^>]*>/<\1scrypt>/ig;
					#$value =~ s/< *(\/*)[^>]*iframe([^>]*)>/\*\1yframe\2\*/ig;
	        $value=~tr/\'/\`/;
	        $input{$name} = $value;
	}
	@vars = split(/&/, $ENV{QUERY_STRING});
	foreach $var(@vars) {
	        ($v,$i) = split(/=/, $var);
	        $v =~ tr/+/ /;
	        $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ tr/+/ /;
	        $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ s/<!--(.|\n)*-->//g;
	        $v =~ tr/\'/\`/;
	        $info{$v} = $i;
	}
 
	@vars = split(/;\s?/, $ENV{HTTP_COOKIE});
	foreach $var(@vars) {
	        ($v,$i) = split(/=/, $var);
	        $v =~ tr/+/ /;
	        $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ tr/+/ /;
	        $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ s/<!--(.|\n)*-->//g;
	        $v =~ tr/\'/\`/;
	        $cookie{$v} = $i;
	}
}
 
############
sub getcgi {
############
	read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $input);
	foreach $pair(@pairs) {

	        ($name, $value) = split(/=/, $pair);
	        $name =~ tr/+/ /;
	        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $value =~ tr/+/ /;
	        
	        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
					#$value =~ s/< *(\/*)[^>]*script[^>]*>/<\1scrypt>/ig;
					#$value =~ s/< *(\/*)[^>]*iframe([^>]*)>/\*\1yframe\2\*/ig;
	        $value=~tr/\'/\`/;
	        $input{$name} = $value;
	}
	@vars = split(/&/, $ENV{QUERY_STRING});
	foreach $var(@vars) {
	        ($v,$i) = split(/=/, $var);
	        $v =~ tr/+/ /;
	        $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ tr/+/ /;
	        $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ s/<!--(.|\n)*-->//g;
	        $v =~ tr/\'/\`/;
	        $info{$v} = $i;
	}

	@vars = split(/;\s?/, $ENV{HTTP_COOKIE});
	foreach $var(@vars) {
	        ($v,$i) = split(/=/, $var);
	        $v =~ tr/+/ /;
	        $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ tr/+/ /;
	        $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ s/<!--(.|\n)*-->//g;
	        $v =~ tr/\'/\`/;
	        $cookie{$v} = $i;
	}
}

mitchems

Reputation Points: 26

Solved Threads: 38

Posting Whiz in Training

Offline

293 posts
since Feb 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: running perl

Next Thread in Perl Forum Timeline: perl project command line arg?

DaniWeb Message

Cancel Changes

User Name
Password