use strict;
use HTML::Template;
# use File::Find;
# use File::Find's wanted() method to gather
# all directories/files...
my $dir_list = [
{ dir => 'foo', dir_row => [
{ file_row => [
{ filename => 'foo0.pic' },
{ filename => 'foo1.pic' },
{ filename => 'foo2.pic' },
{ filename => 'foo3.pic' },
{ filename => 'foo4.pic' }
] # for file_row
}
] # for dir_row
},
{ dir => 'bar', dir_row => [
{ file_row => [
{ filename => 'bar0.pic' },
{ filename => 'bar1.pic' },
{ filename => 'bar2.pic' },
{ filename => 'bar3.pic' },
{ filename => 'bar4.pic' }
] # for file_row
}
] # for dir_row
}
];
my $tmpl = new HTML::Template(type => 'filehandle', source => *DATA);
$tmpl->param(dir_list => $dir_list);
print $tmpl->output();
print "here\n";
__DATA__
<TMPL_VAR NAME="title">