Re: Re: Do regex using hash keys to wrapped template tokens

Hmmm...an odd thing is happening. Here is the code:

if ( $input->param('debug') ) { print "<P>...replacing parameter token
+s in final report"; }
my $w = $input->param('wrapper');
for ( keys %input ) {
    if ( $input->param('debug') ) { print "<P>...replacing token: $_";
+ }
    $page_template =~ s/\Q$w$_$w/$input->param($_)/eg;
    $page_template =~ s/\Q${w}lc_\L$_\E$w/$input->param(lc)/eg;
    $page_template =~ s/\Q${w}uc_\U$_\E$w/$input->param(uc)/eg;
}
[download]

I see the message on screen of "...replacing parameter tokens in final report" but I am not seeing any "...replacing token: __". Is the FOR loop set up correctly? At first I thought I was losing the contents of the hash but I know there are values in $input as the first 'debug' line is working.

For that matter, I have tried everyones suggestions (thans to all for their time) with no luck meaning the tokens are not replaced in the final template. I'm stumped. I am doing replacements to record and table templates just fine. $page_template is the final to-be-displayed-to-the-user template.

TIA.

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

Comment on Re: Re: Do regex using hash keys to wrapped template tokens Download Code

Replies are listed 'Best First'.
Re: Re: Re: Do regex using hash keys to wrapped template tokens by japhy (Canon) on Feb 15, 2002 at 06:38 UTC
Well, what is `%input`? Methinks you meant `for (param)` instead of `for (keys %input)`... sounds like someone's not using `strict`! _____________________________________________________ Jeff`[japhy]`Pinyan: Perl, regex, and perl hacker, who'd like a (from-home) job `s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;`	[reply] [d/l]
Re: Re: Re: Re: Do regex using hash keys to wrapped template tokens by S_Shrum (Pilgrim) on Feb 16, 2002 at 00:40 UTC
strict is in there (just commented out for right now ;-) I'm just taking care of the big bugs first...I can work on formalizing it later %input is a CGI created hash of a hash if I understand it correctly. Supplying just `for (param)` is not enough, right? I tried it with no success. How do I reference the `param` portion of %input for the FOR loop. TIA ====================== Sean Shrum http://www.shrum.net	[reply] [d/l] [select]
Re^5: Do regex using hash keys to wrapped template tokens by ChemBoy (Priest) on Feb 19, 2002 at 02:15 UTC
strict is in there (just commented out for right now ;-) No, no, no, no, no! The whole point* of using `strict 'vars'` is to keep you from making mistakes during development. If you turn it off then, and only turn it on when you've ironed out all the bugs, you're depriving yourself of the best typo-protector you could have. Same goes for -w, while I'm at it... </RANT> * Possibly untrue, but reasonable in context... If God had meant us to fly, he would never have given us the railroads. --Michael Flanders	[reply]
Re: Re: Re: Re: Do regex using hash keys to wrapped template tokens by S_Shrum (Pilgrim) on Feb 16, 2002 at 01:06 UTC
Never mind....got it. A little trial and error produced: `for ( $input->param() )` From your code example, regular replaces are happening but lc_$_ and uc_$_ replaces are not transforming case; getting replaced with originally input case. ====================== Sean Shrum http://www.shrum.net	[reply] [d/l]