#!/usr/local/bin/perl

$dirname = '..';
print "Content-type: text/html\n\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-euc-jp\">\n";

opendir(DIR, $dirname);
while (defined($dir = readdir(DIR))) {
	$filename = "$dirname\/$dir";
	if ($dir =~ /\.s?html?$/)  {
		$filedate = -M $filename;
		if ($filedate < 8){$newflag = 1}
		&html_sub;
	}
}
closedir(DIR);

exit;


sub html_sub {
	open(FILE, $filename);
	$file = join('', <FILE>);
	close(FILE);
	if ($newflag == 1){
		print "<font color=\"red\">●</font>";
		$newflag = 0;
	} else {
		print "<font color=\"blue\">●</font>";
	}
	if ($file =~ /<title>(.*?)<\/title>/si) {
		$title = $1; #マッチした部分の抽出
       	$title =~ s/[\r\n]//g;
		$title =~ s/ココとPerlで遊びませんか\(/ココとPerlで・・(/;
		print "<a href=\"$filename\">$title</a>";
	} else {
		print "<a href=\"$filename\">$dir</a>"
	};
	print "<br>\n";
}

●ココとPerlで遊びませんか ●ココとPerlで・・(年月日や曜日・時刻の取得) ●ココとPerlで・・(画面に文字を表示しよう) ●ココとPerlで・・(決り文句を呼び込む) ●heder_txt.html

それでは順を追ってスクリプトの説明を始めます（先ほどの「ディレクトリ一覧」の説明と重複する部分もあります）。

#!/usr/local/bin/perl $dirname = '..'; print "Content-type: text/html\n\n"; print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-euc-jp\">\n";

• $dirname にカレントディレクトリの意味の '..' を代入しています。
  
• 三行目は、私のHTMLの殆どがEUCで記述されているので、ＥＵＣで表示するようにしました。シフトJISの場合は、charset=x-euc-jpをcharset=Shift_JISに変えてください。

  opendir(DIR, $dirname); 　中略 closedir(DIR);

• 先ほど代入した$dirnameをディレクトリ名としてディレクトリを開き、そして閉じています。
  【→Perl Reference: opendir】
  【→Perl Reference: closedir】

  while (defined($dir = readdir(DIR))) { $filename = "$dirname\/$dir"; if ($dir =~ /\.s?html?$/) { $filedate = -M $filename; if ($filedate < 8){ $newflag = 1 } &html_sub; } }

• readdirで先ほど開いたディレクトリの内容(ここではファイル名)を一行ずつ読み込みます。
  【→Perl Reference: readdir】
• "$dirname\/$dir"は、例えば ../index.html のようになります。これを$filenameに代入します。
  
• if文の $dir =~ /\.s?html?$/ は、ファイル名が ".html" か ".html"、".shtml" か ".shtm" だったらの意味です。
  
• $filedate = -M $filename は、読み込んだファイルの更新日数を$filedateに代入しています。"-M ファイル名" は、ファイルが作成・更新されてからの経過日数です。
  次の if文で$filedateが８より小さければ $newflagに"1"を代入しています。
  
• &html_sub で html_sub という名前のサブルーチンに飛ばしています。

  ---

  ここからはサブルーチン(html_sub)の説明です

  sub html_sub { 　中略 }

  open(FILE, $filename); $file = join('', <FILE>); close(FILE);

• $filenameという名前のファイルをオープンし、そのファイルの中身を区切り文字列なしで連結させ、そしてファイルを閉じています。
  【→Perl Reference: open】
  【→Perl Reference: close】
  
  

• join(区切り文字列, 配列またはリスト)

  join は組み込み関数といい、配列の要素を連結して１つの文字列にします。
  【→Perl Reference: join】

  if ($newflag == 1){ print "<font color=\"red\">●</font>"; $newflag = 0; } else { print "<font color=\"blue\">●</font>"; }

• 更新日が７日以前のファイルの場合、$newflag が１になっていますので、$newflag が１の場合、赤丸を表示し、そうでない場合は青丸を表示させています。

  if ($file =~ /<title>(.*?)<\/title>/si) { $title = $1; $title =~ s/[\r\n]//g; $title =~ s/ココとPerlで遊びませんか\(/ココとPerlで・・(/; print "<a href=\"$filename\">$title</a>"; } else { print "<a href=\"$filename\">$dir</a>" }; print "<br>\n";

• ここではHTMLファイルの中のTITLEタグを見つけて、サイトマップに表示させようとしています。正規表現が何箇所かでてきます。

  if ($file =~ /<title>(.*?)<\/title>/si) {

• <title>と</title>に囲われた文字列があったら、の意味です。

• 文字列 =~ /パターン/

  左辺の文字列に右辺のパターンがマッチするかを調べています。
  (.*?) は括弧内で一まとめにして、".*?" で任意の文字列の0個以上の繰り返しを意味しています。
  
• =~ /// の最後の "si"。"s"は、文字列を一行として扱います。メタ文字(特殊な意味を持った文字)の"."は特殊で、改行にマッチしないため、"s"でマッチさせるようにしています。
  "i"は大文字・小文字どちらでもの意味です。TITLEでもtitleでもTiTLeでもマッチします。

  $title = $1; $title =~ s/[\r\n]//g;

• $1 は先ほどの括弧内 (.*?) に対応しています。
  

• s/文字列１/文字列２/

  s// は文字列の置換えを意味します。文字列１を文字列２に置き換えます。ただしこの置換えは最初にマッチしたものだけが置き換えられます。s///g のように最後に"g"をつけると、文字列全てを対象に置き換えてくれます。
  
• $title =~ s/[\r\n]//g の [　]は文字クラスで、 [　]の文字のどれかにマッチすることを意味します。例えば[012]なら0か1か2の意味です。
  
• s/[\r\n]//g の"\r"は復帰、"\n"は改行です。文字列２が何も書かれていませんので、削除。要するに余分な改行などを取り除いています。<title>文字列、その後に改行</title>でもマッチさせたいためこのようにしています。

  $title =~ s/ココとPerlで遊びませんか\(/ココとPerlで・・(/; print "<a href=\"$filename\">$title</a>";

• 先ほどの文字列の置換えと同じです。ここでは $title の中に"ココとPerlで遊びませんか("という文字列があったら、文字列２の"ココとPerlで・・("に置き換えようとしています。タイトルが長すぎて気持ちが悪いので短くしました。
  
• 次のprint文で、タイトルの内容を表示して、そのファイルにリンクしています。

  } else { print "<a href=\"$filename\">$dir</a>" }; print "<br>\n";

• この else ではファイルの中にTITLEタグがなかったときの処理です。
  タイトルを表示できないので、$dir ファイル名を表示させています。
• 全ての if文が終了したら、<br>をprint しています。