Form params; Same name... 1

[Extension]

Hi,

I'm parsing some form variables and in some cases the param name could be the same. If so, I would like to append the value.
Example:
Name is TYPE and value 1 = AT, value 2 = PT etc
So I want to end a value of AT,PT for the TYPE name.

Current code is not working....

# Convert FORM params into an Hash
foreach my $param ($cgi->param) {
	# Define Value
	$value = $cgi->param($param);
	
	# If name already exist, add comma and append value
	if ($input{$param}) {
		$input{$param} .= ",$value"; 
	}

	else {
		$input{$param} = $value; 
	}

 }

Thanks in advance.

 

[ishnid]

$cgi->param by itself will give a list of the parameter names that have been passed to your script. Each name is only given to you once, so you're only ever setting $input{$param} once for each parameter, so your code to append will never be called (even if it is, calling $cgi->param($param) in scalar context will only give you the first value passed anyway).

To do this a nicer way, you can use a join:

foreach my $param ($cgi->param) {
    $input{$param} = join ',', $cgi->param( $param );
}

Parameters with more than one value will be joined with a comma. Others will just be by themselves.

 

[Extension]

Thank you ishnid for the explanation and the solution. As always, your help is really appreciated.