Perl

Perl RSS

retreive query string

•

Join Date: Jan 2009

Posts: 8

Reputation: perl1user is an unknown quantity at this point

Solved Threads: 0

perl1user

Offline

Newbie Poster

retreive query string

Jan 10th, 2009

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

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: retreive query string

Jan 10th, 2009

 Help with Code Tags 
 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.

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: retreive query string

Jan 11th, 2009

•

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.

•

Join Date: Jan 2009

Posts: 1

Reputation: summer_cherry is an unknown quantity at this point

Solved Threads: 0

summer_cherry summer_cherry is offline

Offline

Newbie Poster

Re: retreive query string

Jan 11th, 2009

 Help with Code Tags 
 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=$';
}

•

Join Date: Mar 2004

Posts: 763

Reputation: Phaelax is on a distinguished road

Solved Threads: 38

Phaelax

Offline

Master Poster

Re: retreive query string

Jan 15th, 2009

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.

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: retreive query string

Jan 15th, 2009

•

Originally Posted by summer_cherry

Help with Code Tags

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.

•

Join Date: Feb 2009

Posts: 57

Reputation: mitchems is an unknown quantity at this point

Solved Threads: 2

mitchems

Offline

Junior Poster in Training

Re: retreive query string

Feb 5th, 2009

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
$qs=$ENV(QUERY_STRING);
$qs=$ENV(QUERY_STRING);

•

Join Date: Feb 2009

Posts: 57

Reputation: mitchems is an unknown quantity at this point

Solved Threads: 2

mitchems

Offline

Junior Poster in Training

Re: retreive query string

Feb 5th, 2009

oops... I meant:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
$qs=$ENV{QUERY_STRING};
$qs=$ENV{QUERY_STRING};

Since it is a hash.

•

Join Date: Feb 2009

Posts: 57

Reputation: mitchems is an unknown quantity at this point

Solved Threads: 2

mitchems

Offline

Junior Poster in Training

Re: retreive query string

Feb 5th, 2009

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):

 Help with Code Tags 
 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;
	}
}