ディレクトリ内のHTMLファイルからサイトマップ生成

　初歩から始める初心者向けPerl-CGI講座　■　


	`CGI`の設置方法
	フリーで配布されている`CGI`を設置する際の手順や注意事項などの説明です。

	`CGI`作成の初歩
	初めて`CGI`を作る方向けの手順を簡単な例で説明しています。

	`CGI`作成ヒント集
	こういう事をする時は、どのように行えばいいのか？など具体的な事例を紹介します。

	`CGI`の設置に関する用語
	`CGI`の作成に関する用語
	`CGI`の設置や作成時に使われている用語や関連知識を掲載しています。

	設置に関するFAQ
	作成に関するFAQ
	設置や作成をする際に起こりがちなトラブルの説明と、よくある質問とその回答を掲載しています。

ディレクトリ内のHTMLファイルから自動でサイトマップ生成

指定ディレクトリの中のHTMLファイルのタイトルを取得してサイトマップを作ります。

下のサンプルソースでは、指定したディレクトリ内の拡張子 html のファイルを探し、
サイトマップを生成、 sitemap.html というファイル名で出力します。

#!/usr/local/bin/perl

#置換えするディレクトリの指定
$dirset = '.';

#出力するHTMLファイル名
$putfilename = 'sitemap.html';

#生成後ファイルのパス（相対パスもしくはhttps://から）
$scpas = './';

#ページのヘッダ部
$pagehead = <<"HEAD";
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</HEAD>
<BODY>
HEAD

#ページのフッタ部
$pagefutt = <<"FUTT";
</BODY>
</HTML>
FUTT

#ディレクトリ内の情報取得
opendir(DIR , $dirset);
while($view = readdir(DIR))
{
	push(@dirlist,$view);
}

#ディレクトリ内ページのタイトル情報取得
foreach $tmp (@dirlist)
{
	if ($tmp =~ /\.html$/i)
	{
		#タイトルを取得して @pagenameへ
		push(@pagename,&gettitle($tmp));
		push(@putfile,$tmp);

}
}

#取得したファイル名とタイトルを整形する ----------------------------------------
$outfile = $pagehead;

$cnt = 0;

foreach (@pagename)
{
	$outfile .= "<A Href=\"$scpas$putfile[$cnt]\">$_</A><BR>\n";
	$cnt++;
}

$outfile .= $pagefutt;

#変数に溜めたページ情報を書き出す
if (open (OUT,">$putfilename"))
{
print OUT $outfile;
close (OUT);
}

#完了メッセージを表示する
print "Content-type: text/html\n\n";
print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n";
print "書き出し完了！";

exit;

#HTMLファイルからタイトル部の取出し -----------------------------------------------
sub gettitle
{
my ($fname) = $_[0];
my (@aaa) = '';

open (IN,$fname);
@aaa = <IN>;
close (IN);

foreach (@aaa)
{
	if ( $_ =~ /(<TITLE>)(.*)(<\/TITLE>)/i)
	{
		$ptitle = $2;
		if ($ptitle eq "") { $ptitle = "タイトル無し"; }
		last;
	}
}

return $ptitle;

}

【設定する項目】

置換えするディレクトリの指定は、スクリプトが置かれているディレクトリの場合はデフォルトで、
それ以外の場合は、その都度変更します。

出力するHTMLファイル名では、サイトマップ用のHTMLファイルの名前です。
このファイルは、スクリプトを実行すると新たに生成されるファイルです。

生成後ファイルのパスでは、ファイルへのリンクURLに関連した設定です。
デフォルトでは ./ となっていますので、例えば aaaa.html というファイルがあった場合、
./aaaa.html というリンクになり、https:// から指定すると https://aimix.jp/aaaa.html など
のリンクとして生成されます。

ページのヘッダ部では HTMLの宣言から実際に表示される部分までを設定します。
ページのフッタ部では実際の表示部から最後の </HTML> までの閉じタグまでを書きます。

【処理の流れ】

設定するべき場所は上記の通りで、流れを見ていくと下のようになります。

指定ディレクトリ内のファイル情報を取得し配列 @dirlist に格納する

対象のファイルを読み込み（sub puthtml）、タイトルを取得して配列 @pagename に格納
ディレクトリ内の拡張子 html のファイル名を配列 @putfile に格納
繰り返し・・・

書き出す内容を整形しながら変数 $outfile に詰め込んでいく

ページの書き出しを行い完了メッセージを表示する

このままでは特に便利なスクリプトではありませんが、WEB上からフォームなど
で実行できるように変更すれば便利に使えるものになると思います。
処理の流れを見る為のサンプルスクリプトですのでご了承下さい。

関連項目

・　CGIの作成に関する用語
・　CGI作成に関するFAQ