With Ovid's tutorial, HTML::Template readme, and help from repson and ichimunki, I've got working code & markup. Yay!

Now I'd like to replace the push @urls sections with a subroutine, to avoid evil copy-and-paste, since the real scripts have several url hashes each.

So I read chapter 8 of The Llama and chapter seven of Elements of Programming with Perl.   Lotsa good info which I pretty much grasp.   But I'm suffering a severe case of flatulo-cephalism on applying this newfound knowledge to minimized code below.  

Two things that are particulary baffling:

  1. how to make vars within the sub unique for each %urlhash
  2. how to feed those values back out to the script and template with unique var names
Looks like it would involve the $_[0], $_[1], etc. elements of @_, and perhaps multiple return values.   Am I on the right track?   As always, any direction, suggestions or examples are appreciated.
    cheers,
    Don
    striving for Perl Adept
    (it's pronounced "why-bick")

(template.pl) 
#!/usr/bin/perl -wT

use strict;
use HTML::Template;
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);  # debugging only - for production 
+"use CGI::Carp;"
use vars qw(@urlsA @urlsB);


my $template = HTML::Template->new(filename => "template.tmpl");
$template-> param(
    servname => $ENV{'SERVER_NAME'},
    );

my %urlhashA = (
      'Home'     => '/',
      'Icons'    => '/icons/',
      'Sitedocs' => '/doc/',
      );
my %urlhashB = (
      'Cisco'      => 'http://www.cisco.com/',
      'CPAN'       => 'http://search.cpan.org/',
      'Google'     => 'http://www.google.com/',
      'Perl Monks' => 'http://www.perlmonks.org/',
      );


while (my ($name,$url) = each %urlhashA) {
    push @urlsA, {nameA=>$name, urlA=>$url}
    }
$template->param(urlloopA => \@urlsA);


while (my ($name,$url) = each %urlhashB) {
    push @urlsB, {nameB=>$name, urlB=>$url}
    }
$template->param(urlloopB => \@urlsB);

[download]
print header, $template->output;

(template.tmpl) 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>
<HEAD>
<TITLE><!-- tmpl_var name=servname --></TITLE>
</HEAD>
<BODY>

<!-- tmpl_loop name="urlloopA" -->
  <A HREF="<!-- tmpl_var name="urlA" -->">
    <B><!-- tmpl_var name="nameA" --></B>
  </A>
  &nbsp;&nbsp;&nbsp;
<!-- /tmpl_loop -->

<P>
<!-- tmpl_loop name="urlloopB" -->
  <A HREF="<!-- tmpl_var name="urlB" -->">
    <!-- tmpl_var name="nameB" -->
  </A>
  <BR>
<!-- /tmpl_loop -->

</BODY>
</HTML>

[download]

In reply to Got those HTML::Template and subroutine blues by ybiC

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.