#!/usr/bin/perl # ##### Even Kappa sometimes flows a river. (Kappa is NOT a Raincoat!) ##### # meaning : Even Homer sometimes nods. # # 2002/07/15 Written by H.Nitobe # $HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'}; # ブラウザ取得 $SS = ($HTTP_USER_AGENT =~ /MSIE (5.5|6.0)/i)? 1: 0; # MSIE 5.5 or 6.0 フラグ $ARGV[0] =~ s/-/\./; # - を . に変換 $Filename = "\.\./saigyo/text/".$ARGV[0]; # ファイル名確定　場所固定 open(IN, $Filename); # ファイル・オープン $Title = "none"; # タイトル初期化 while() { # 一行取得繰り返し if (/Title/) { # 　　最初の「Title」を探す $_ = ; # 　　　　見つかったらその次の行を $Title = $_; # 　　　　タイトルにする last; # 　　　　繰り返しから退去 } # } # close(IN); # 一旦ファイル・クローズ open(IN, $Filename); # 再度ファイル・オープン print "Content-type: text/html\n\n"; # お決まりの文字列を送って print "\n"; # お決まりのタグ print "".$Title."\n"; # タイトルタグを送って print ""; # メタタグを送って if ($SS) { # IE5.5 or 6.0 ならば豪華に縦書き print "\n"; print "
\n"; } else { # さもなくばシンプルに print "\n"; } while() { # 全ての行に対して $_ =~ s/\n/
\n/; # 改行コードに改行タグを付加して print $_; # 出力する } print "
\n"; print "　　(C)Copyright 2000-2008 digital 西行庵 All rights reserved.
\n "; # 著作権を主張して if ($SS) { # IE5.5 or 6.0 ならば print "
\n"; # 豪華タグを閉じて } print ""; # お決まりのタグを送って close(IN); # ファイルをクローズして # おしまい