Basic Perl Question -- Combining arrays values into a string 1

[lmcate2]

I have below my code that has the array and I want to be able to maka a variable to combine all string below.


STRING

&AgencyID=101000057&AgencyName=Test%20Ccra&AgentID=10014&AgentName=jeff%20kirk&AgentEmail=jkirk@me.com


CODE
#print "\n";
#print "<hr>\n";
foreach $namevalue (@namevaluepairs) {
( $name, $value ) = split ( /=/, $namevalue );
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f][\\dA-Fa-f])/ pack ("C",hex ($1))/eg;
$a = $a + 1;

$name{$a} = $name;
$responce{$a} = $value;
$Sam{$a}=$value;
$value{$a} = $value;

#print $a;print" = ";print $name; print " = ";
#print $responce{$a};print;
}

print '&AgencyID=',$responce{2};
print '&AgencyName=',$responce{3};
print '&AgentID=',$responce{5};
print '&AgentName=',$responce{4};
print '&AgentEmail=',$responce{6};

THANKS,

SAM

 

[PaulTEG]

use CGI;
$q=new CGI;

print $q->param('AgencyID');
print $q->param('AgencyName');
print $q->param('AgentID');
print $q->param('AgentEmail');

HTH
--Paul

cigless ...

 

[lmcate2]

I am a newbie. Do I stick the code inside the for statemnt?????

Thanks,

Sam

 

[PaulTEG]

No need for the for statement anymore.

#!/usr/bin/perl
use CGI;
$q=new CGI;
print $q->header;
print $q->param('AgencyID');
print $q->param('AgencyName');
print $q->param('AgentID');
print $q->param('AgentEmail');

That's it!
That will parse your query string, and print out the results

cigless ...

 

[lmcate2]

Can I Combined the values into a single string as:

"&AgencyId=40404&AgencyName=My Company&AgentName=Jeff Kirk"

Thanks a again,

Sam

 

[PaulTEG]

print $env{'QUERY_STRING'};

should do that
HTH
--Paul

cigless ...

 

[ishnid]

Nitpick - should be capitalised:

print $ENV{QUERY_STRING};

# alternatively, since we're using CGI;
print $q->query_string;