Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Re: Re: Re: HTML::Template question - tmpl_if

by kiat (Vicar)
on Dec 14, 2003 at 02:27 UTC ( #314599=note: print w/replies, xml ) Need Help??

in reply to Re: Re: Re: HTML::Template question - tmpl_if
in thread HTML::Template question - tmpl_if

Thanks, the first solution works for me.

I didn't get the second solution to work. How do you get it work work given the code I gave about (the %hash and the generate subroutine).

Finally, how would you have set up a template like this?

  • Comment on Re: Re: Re: Re: HTML::Template question - tmpl_if

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: HTML::Template question - tmpl_if
by djantzen (Priest) on Dec 14, 2003 at 02:50 UTC

    Basically your generate subroutine would look like:

    sub generate { my $hashref = shift; my $template = HTML::Template->new(filename => "$tmpldir/" +); $template->param(map { defined $hashref->{$_} ? ($_ => $hashref->{$_ +}) : () } keys %$hashref); ); print $template->output; }

    This works because HTML::Template::param expects a list an even number of elements in length suitable for hash type operations, and map of course produces lists, so our expression there utilizes the ternary operator (?:) to test for defined values and outputs key/value pairs.

    I am not really qualified to give advice about template design since I'm new to it myself. But just the fact you're using them I can comfortably say is a good sign :)

    "The dead do not recognize context" -- Kai, Lexx
      Many thanks, djantzen!

      I like the map code because it's much flexible than having to specify the values to be passed to Template's param().

      It's now working as expected :)

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://314599]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2021-10-22 12:58 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (85 votes). Check out past polls.