#!/usr/bin/perl
#
# dcppt.pl - PowerPoint 用 HTML作成スクリプト
#
# Morikawa Yasuhiro 2002/12/03
#
# ・ 概要
#
# PowerPoint から作成した PNG(などの)ファイル群を見やすい HTML を
# 作成するスクリプト
#
# ・ 使用法
#
# 以下のような書式の, 画像ファイルとその題目を記述したファイルが必要
# (ファイル名は menu.html とする)
#
# ---------------------------------------------------
# 001:はじめに
# 002:目次
# 003:背景
# :
# ---------------------------------------------------
#
#
########################################################
## デフォルト設定値
########################################################
# 情報ファイル
$infofile = "./menu.txt";
# タイトルファイル
$titlefile = "./title.txt";
# インデックスファイル
$indexfile = "index.html";
# メニューファイル
$menufile = "menu.html";
########################################################
#
# タイトルファイルからタイトルを取り出す.
#
open(TITLEFILE, "$titlefile") || die "$titlefile が見つかりませんでした. \n";
while () {
chomp;
push(@title_lists, $_);
}
$title = $title_lists[0];
close(TITLEFILE);
#print STDOUT "$title";
#
# pic ディレクトリ内から 画像ファイルのタイプを取り出す
#
opendir(PICDIR, "./pic")
|| die "pic ディレクトリが存在しません. \n";
@picfiles = grep(!/^\.\.?$/, readdir(PICDIR));
closedir(PICDIR);
# pic ディレクトリ内に画像があるかチェック
unless ($picfiles[0]) {
die "pic ディレクトリ内にファイルが存在しません. \n";
}
# 一つ目のファイルだけを見る. (面倒いから)
$samplepic = $picfiles[0];
@picname_parts = split(/\./, $samplepic);
$imgtype = $picname_parts[$#picname_parts];
#print STDOUT "@picfiles\n";
#print STDOUT "$imgtype \n";
#
# 情報ファイルから, ナンバーとサブジェクトを取り出す.
#
open(INFOFILE, "$infofile") || die "$infofile が見つかりませんでした. \n";
while () {
chomp;
push(@info, $_);
}
close(INFOFILE);
#print STDOUT "@info \n";
#
# ナンバーとサブジェクトを分離しておく.
# (配列の要素の位置は同じであるため, 両者を整合することは可能)
#
foreach $key (@info){
@info_parts = split(/:/, $key, 2);
$info_hash{"$info_parts[0]"} = "$info_parts[1]";
push(@number, $info_parts[0]);
push(@subject, $info_parts[1]);
}
#print STDOUT "@number \n";
#print STDOUT "@subject \n";
#print "$info_hash{$number[1]}\n";
#
# インデックスの作成
#
&MakeIndex();
#
# メニューの作成
#
&MakeMenu();
#
# 各 HTML の作成
#
&MakeHtml();
##############################################################
## 以下サブルーチン
##############################################################
#
# 各インデックスファイル作成サブルーチン
#
sub MakeIndex {
open(INDEXFILE, "> $indexfile")
|| die "$indexfile に書き込むことが出来ませんでした. /n";
#
# ヘッダの書き出し
#
print INDEXFILE <
$title