My bad. Here's the long version.

I have not seen a implementation of $input->param(<red>$1</red>). I assumed it needed to be in a for loop.

I placed the code you supplied into my script (sans for loop) but see nothing happening in the final displayed result (tokens are displayed).

More specifically:

In the template file (which is a html page) there are the following tokens which are wrapped with a variable character that is defined within the script as '$' but can be overridden by passing a different value in the script call (&wrapper=somevalue):

icon -> $icon$
title -> $title$
sort -> $sort$
[download]

?file=whatsnew.dat
&for=Soaring
&in=Area
&max=10
&order=desc
&sort=Date
&icon=address.gif
&title=Testing
[download]

Of the parameters passed, three should perform replacements. What I am getting back in $page_template after s&r is:

icon -> $icon$
title -> $title$
sort -> $sort$
[download]

...as if the search did not find matches. Since this search involves a hash, I am wondering if that is what it is looking for: CGI->HASH(...) vs the value of $input->param(...). My understanding is that the w+ (lookahead) should take care of this.

No errors are displayed.

======================
Sean Shrum
http://www.shrum.net

No, it didn't find the replacements I guess.


# if called with no args param returns a list of the keys
my $w = $input->param();

# here you should validate the values for the given keys 
# and eventually set them to default values before proceeding
# $1 is just _the first succesfull match_
$page_template =~ s/\$(\w+)\$^\w/$input->param($1)/eg;
$page_template =~ s/\$(\w+)\$lc_/lc($input->param($1))/eg;
$page_template =~ s/\$(\w+)\$uc_/uc($input->param($1))/eg;
[download]


Have a nice day
All decision is left to your taste