retreive query string

[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

[email][e-mail][/email]

[Comatose]

use CGI;

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

[KevinADC]

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

[email][e-mail][/email]

Already answered on one or two other forums.

[summer_cherry]

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

[Phaelax]

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

[KevinADC]

$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.

[mitchems]

$qs=$ENV(QUERY_STRING);

[mitchems]

oops... I meant:

$qs=$ENV{QUERY_STRING};

Since it is a hash.

[mitchems]

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

############
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;
	}
}