";
print OUT "$artist
$title
";
print OUT "\n";
#write out the song titles
for (0..$#songsarray) {
print OUT "\n| ",$_+1,". | \n";
print OUT "$songsarray[$_] | \n";
print OUT "$timesarray[$_] |
\n";
}
print OUT "| | | -------- |
";
printf OUT ("| | | %02d:%02d |
",$minutes,$seconds);
print OUT "
\n";
print OUT "$footer";
close OUT;
}
$TOC{$filename}="$artist2 $songlink";#add Genre Here
}
close IN;
#########################################
print "Writing Table of contents file...\n";
open TOCFILE, ">$dboutdir/TOC.htm" or die "Cannot open $dboutdir/TOC.htm for write :$!";
print TOCFILE "$header\n";
print TOCFILE "0to9 ";
for('a'..'z'){
print TOCFILE "$_ ";
}
print TOCFILE "All";
print TOCFILE "
".(keys %TOC)." Albums
";
print TOCFILE "Generated via Perl script on
".scalar localtime()."
";
close TOCFILE;
#########################################
print "Printing Alphabetical Sort...\n";
for ('a'..'z'){
open LETTERFILE, ">$dboutdir/$_.htm" or die "Cannot open $dboutdir/$_.htm for write :$!";
print LETTERFILE "$header";
print LETTERFILE "$_
";
foreach $key (sort keys %TOC){
if($key=~/^$_/){
print LETTERFILE "$TOC{$key}
\n";
}
}
print LETTERFILE "$footer";
close LETTERFILE;
}
######################################
open ALLFILE, ">$dboutdir/all.htm" or die "Cannot open $dboutdir/all.htm for write :$!";
open NUMFILE, ">$dboutdir/0to9.htm" or die "Cannot open $dboutdir/0to9.htm for write :$!";
print ALLFILE $header;
print NUMFILE $header;
print ALLFILE "All
\n";
print NUMFILE "0to9
\n";
foreach $key (sort keys %TOC){
if ($key=~/^\d/){
print NUMFILE "$TOC{$key}
\n";
}
print ALLFILE "$TOC{$key}
\n";
}
print ALLFILE "$footer";
print NUMFILE "$footer";
close ALLFILE;
close NUMFILE;