That'll work but you'll end up with an extra ampersand on the end. Here map()
and join() are your friends:
[- $http_headers_out{'Location'} = q(edit.html?) . join('&', map({$_=$fdat{$_}}
keys %fdat)) -]
On 03-Nov-99 Gerald Richter wrote:
>>
>> I use HTML-Embperl-1.2b10:
>>
>>
>> How make $http_headers_out{'Location'} ,so as
>>
>> <A HREF="edit.html?[+ [%fdat] +]"> redirect </A>
>>
>
> I would try
>
> $url = "http://$ENV{SERVER_NAME}/path/to/edit.html?" ;
> while (($k, $v) = each (%fdat))
> {
> $url .= "$k=$v&" ;
> }
>
> $http_headers_out{'location'} = $url ;
>
> Gerald
>
>>
>> --
>>
>> С наилучшими пожеланиями, Евгений Бырганов.
>> Best regards, Eugene Byrganov
>>
>> mailto:[EMAIL PROTECTED].
>> work - http://www.inp.nsk.su/
>>
---
Jason Bodnar + [EMAIL PROTECTED] + Tivoli Systems
I swear I'd forget my own head if it wasn't up my ass. -- Jason Bodnar
