my @f = ( "c:/perl/html/site/lib/Template.html", "c:/perl/html/site/lib/Template/Base.html", #... "c:/perl/html/site/lib/Template/Plugin/XML/Style.html", "c:/perl/html/site/lib/Template/Plugin/XML/XPath.html", ); open OUT, ">ref.html"; print OUT <<"HTML";
Template::Config - Factory module for instantiating other TT2 modules |
HTML
for my $f ( @f )
{
#trigger
$i=0;
open IN, $f or die "$f: $!";
while ( /;
#tweak the NAME heading
my $ff = $f;
$ff =~ s/^.+Template/Template/;
$ff =~ s/\.html//;
$ff =~ s/\//::/g;
s/
NAME<\/a><\/h1>/[[[PB!]]]
//g;
#tweak headings one step smaller
s/(<\/?h)([0-9])(>)/$1.($2+1).$3/eg;
print OUT $_ if $i;
}
}
print OUT "";