I've tried it.
Below is the script. It is verbose with shed loads of temps. When I'm more comfortable with what's happening I'm sure I'll be able to improve it (and some error checking would be nice!)
I've also included the business section of the template (sans static content). It doesn't look as bad as I thought it would although there seems to be more template than html.
The hardest part was building the data structures for the nested loops.
#! perl
use warnings;
use strict;
use HTML::Template;
#use Data::Dump qw(dump);
# make subject map for each letter
# load the database
my @data;
{
my $file = 'data\database_sorted.txt';
open my $f, '<', $file
or die "can't open $file: $!";
@data = <$f>;
close $f
or die "can't close $file: $!";
}
# load the hash
my %hash;
for (@data){
chomp;
my ($letter, $subject, undef, $file) = split /\t/,$_,4;
push @{$hash{$letter}{$subject}}, $file;
}
# make the pages
my @letters = sort keys %hash;
for my $letter (@letters){
my $t = HTML::Template->new(filename => 'tmpl\ht_map.tmpl');
my @ht_array = ();
my @subjects = sort keys %{$hash{$letter}};
my $letter_menu = make_letter_menu($letter);
for my $subject (@subjects){
my $subject_menu = make_subject_menu($subject, @subjects);
my @subject_articles;
for my $article (@{$hash{$letter}{$subject}}){
my ($href,$title) = split /\t/,$article;
push @subject_articles, { href => $href,
title => $title,
};
}
push @ht_array, { subject => $subject,
subject_menu => $subject_menu,
bookmark => make_bookmark($subject),
subject_articles => \@subject_articles };
}
#print dump(@ht_array);
#exit;
$t->param(LETTER_MENU => $letter_menu);
$t->param(SUBJECT => \@ht_array);
$t->param(CURRENT_LETTER => $letter);
print $t->output;
exit;
}
exit;
# subs
sub make_letter_menu{
my $letter_current = shift;
my @letters_array;
for my $letter ('a'..'z'){
my %letter_hash = (
letter => $letter,
void => 0,
current => 0,
href => 0,
);
if ($letter eq $letter_current){
$letter_hash{current} = 1;
}
elsif (exists $hash{$letter}){
$letter_hash{href} = 1;
}
else{
$letter_hash{void} = 1;
}
push @letters_array, {%letter_hash};
}
return \@letters_array;
}
sub make_subject_menu{
my $subject_current = shift;
my @subject = @_;
my @subject_array;
for my $subject (@subject){
my %subject_hash = (
subject => $subject,
bookmark => make_bookmark($subject),
current => 0,
);
if ($subject eq $subject_current){
$subject_hash{current} = 1;
}
push @subject_array, { %subject_hash };
}
#dump (@subject_array);
#exit;
return \@subject_array;
}
sub make_bookmark{
my $bookmark = shift;
$bookmark =~ s/[\s-]//;
$bookmark = lc substr $bookmark, 0,8;
return $bookmark;
}
...and the template
<!-- template start -->
<!-- letter menu -->
<div class="menu">
<ul>
<TMPL_LOOP NAME=LETTER_MENU>
<TMPL_IF NAME="CURRENT">
<li><TMPL_VAR NAME=LETTER></li>
</TMPL_IF>
<TMPL_IF NAME="VOID">
<li class="void"><TMPL_VAR NAME=LETTER></li>
</TMPL_IF>
<TMPL_IF NAME="HREF">
<li><a href="map<TMPL_VAR NAME=LETTER>.html"><TMPL_VAR NAME=
+LETTER></a></li>
</TMPL_IF>
</TMPL_LOOP>
</ul>
</div>
<h1><TMPL_VAR NAME=CURRENT_LETTER></h1>
<TMPL_LOOP NAME=SUBJECT>
<!-- subject bookmark -->
<div class="bm">
<a id="<TMPL_VAR NAME=BOOKMARK>" name="<TMPL_VAR NAME=BOOKMARK>"><
+/a>
</div>
<!-- subject menu -->
<div class="menu">
<ul>
<TMPL_LOOP NAME=SUBJECT_MENU>
<TMPL_IF NAME=CURRENT>
<li><TMPL_VAR NAME=SUBJECT></li>
<TMPL_ELSE>
<li><a href="#<TMPL_VAR NAME=BOOKMARK>"><TMPL_VAR NAME=SUBJE
+CT></a></li>
</TMPL_IF>
</TMPL_LOOP>
</ul>
</div>
<!-- subject -->
<h2><TMPL_VAR NAME=SUBJECT></h2>
<TMPL_LOOP NAME=SUBJECT_ARTICLES>
<h4><a href="<TMPL_VAR NAME=HREF>"><TMPL_VAR NAME=TITLE></a></h4
+>
</TMPL_LOOP>
</TMPL_LOOP>