#!/usr/bin/perl
#Make HTML files form many picture.
#Put this file in the dir where big pictures are.
use warnings;
my $backcolor='blue';
my $dirname='';
my $subdirname='';
my @picdata=();
my $htmlfile='';
my $framefile='';
my $htmlcontent='';
my $framecontent='';
my $title='';
my $line='';
print "Please enter the color of the background of the HTML files:\n";
$backcolor=;
chop($backcolor);
print "Please enter the name of the pictures' dir:\n";
$dirname=;
chop($dirname);
print "Please enter the name of the subpictures' subdir:\n";
$subdirname=;
chop($subdirname);
print "请输入中文标题:\n";
$title=;
chop($title);
$htmlfile=$dirname.'pic.htmll';
$framefile=$dirname.$subdirname.'.htmll';
open(HTML, ">$htmlfile");
open(FRAME, ">$framefile");
@picdata=get_file_data("dir.txt");
$framecontent='天目行--'.$title
.''."\n"
.''."\n"
.''."\n"
.''."\n"
.'