ひどい句ですが、これはPerlで自動作成されています。もちろん自動といっても一行目(五)と二行目(七)、三行目(五)のそれぞれのデータは作成してあります。それぞれを乱数で組み合わせているだけです。リロードすると句が変わるはずです。
- このページのURLを見ていただければ分かるように haiku.shtml になっています。HTMLの中に下のように書かれています。
SSIを使ってPerlのスクリプトをHTML文の中に取り込んでいる訳です(SSIはプロバイダによって使用できないところがあります)。Perl には直接関係はありませんが、SSIについて興味のある方は「ココのSSI入門？です」を参照してください。 - それではスクリプトを見てみましょう(まとめたスクリプトはこのページの一番下にあります)。
haiku.cgi
| <!--#exec cgi="./cgi-bin/haiku3.cgi" --> |
さてそのスクリプトの説明の前に、上の句は縦書きになっています。これは無理やりにHTMLのTEBLE記述で一文字づつ改行をして、縦書きに見えるようにしています。
-
３種類のファイル名(各5,7,5の文字データ)を各変数に代入します。$haiku1 = './haiku1.txt'; $haiku2 = './haiku2.txt'; $haiku3 = './haiku3.txt';
【→Perl Reference: $(スカラー)】
haiku1.txt, haiku2.txt, haiku3.txtはこのようになっています。 -
先ほど宣言した各変数(5,7,5ごとの文字データ)をファイルハンドルHAIKUDATAを通じ て配列@haiku1,@haiku2,@haiku3に全て読み込みます。open(HAIKUDATA, "$haiku1"); @haiku1 = <HAIKUDATA>; close(HAIKUDATA); open(HAIKUDATA, "$haiku2"); @haiku2 = <HAIKUDATA>; close(HAIKUDATA); open(HAIKUDATA, "$haiku3"); @haiku3 = <HAIKUDATA>; close(HAIKUDATA);
【→Perl Reference: @(配列)】
【→Perl Reference: open】
【→Perl Reference: close】 -
各5,7,5の文字データごとに何行目を表示するか決めるため、乱数を使っています。 int で乱数を整数にしています。括弧内の@haiku1等で各データの最大行数を把握しています。行のデータが増減する毎に発生する乱数の最大値も変わります。rand 関数については「乱数の確率」の章も参考にしてください。$rand1 = int(rand(@haiku1)); $rand2 = int(rand(@haiku2)); $rand3 = int(rand(@haiku3));
【→Perl Reference: int】
【→Perl Reference: rand】 -
先ほどの乱数を使って各データから任意の行を各変数に代入しています。$word1 = $haiku1[$rand1]; $word2 = $haiku2[$rand2]; $word3 = $haiku3[$rand3];
-
取り込んだ各行のデータから改行データを取り除いています。chomp($word1); chomp($word2); chomp($word3);
-
先ず、関数lengthを使ってword1,word2,word3の文字列の長さ(バイト数)を得、2で割った(漢字は２バイトのため)答えを$mojisuに代入しています。続いて$iが0から文字数回分、文字列関数substrで文字を順番に一文字ずつ取得しています。$mojisu = length($word1)/2; for ($i = 0; $i < $mojisu; $i++){ $gyou1[$i] = substr($word1,$i*2,2); } $mojisu = length($word2)/2; for ($i = 0; $i < $mojisu; $i++){ $gyou2[$i] = substr($word2,$i*2,2); } $mojisu = length($word3)/2; for ($i = 0; $i < $mojisu; $i++){ $gyou3[$i] = substr($word3,$i*2,2); }
【→Perl Reference: length】
【→Perl Reference: substr】 -
HTMLのTABLEタグを使っています。そして繰り返しのforeachで一文字ずつ改行しています。ココでは２行目の処理をしています。スクリプトは省略しますが、この後３行目、１行目の処理を行い、TABLEタグを閉じています。print "Content-type: text/html\n\n"; print qq|<table border="3" bgcolor="#EEEEEE">\n|; print qq|<tr><td>\n|; print qq|<table border="0" cellpadding="7" width="250" height="350">\n|; print qq|<tr><td valign="top" colspan="2" width="100"><img src="./images/coco03_l.gif" width="100" height="75"></td>\n|; print qq|</font></tt></td><td align="center" valign="middle" rowspan="2"><tt><font size="+3" face="HG正楷書体-PRO">\n|; foreach $moji (@gyou2){ print "$moji<br>\n"; }最初から終わりまでのスクリプトを下に示しておきます。
#!/usr/local/bin/perl # 俳句データ読み込み設定 $haiku1 = './haiku1.txt'; #5 $haiku2 = './haiku2.txt'; #7 $haiku3 = './haiku3.txt'; #5 # 各俳句データ読み込み open(HAIKUDATA, "$haiku1"); @haiku1 = <HAIKUDATA>; close(HAIKUDATA); open(HAIKUDATA, "$haiku2"); @haiku2 = <HAIKUDATA>; close(HAIKUDATA); open(HAIKUDATA, "$haiku3"); @haiku3 = <HAIKUDATA>; close(HAIKUDATA); # 乱数作成 $rand1 = int(rand(@haiku1)); $rand2 = int(rand(@haiku2)); $rand3 = int(rand(@haiku3)); $word1 = $haiku1[$rand1]; $word2 = $haiku2[$rand2]; $word3 = $haiku3[$rand3]; chomp($word1); #開業\nを取り除く chomp($word2); chomp($word3); # 文字をバラバラにする $mojisu = length($word1)/2; for ($i = 0; $i < $mojisu; $i++){ $gyou1[$i] = substr($word1,$i*2,2); } $mojisu = length($word2)/2; for ($i = 0; $i < $mojisu; $i++){ $gyou2[$i] = substr($word2,$i*2,2); } $mojisu = length($word3)/2; for ($i = 0; $i < $mojisu; $i++){ $gyou3[$i] = substr($word3,$i*2,2); } # 句の表示用テーブル処理 print "Content-type: text/html\n\n"; print qq|<table border="3" bgcolor="#EEEEEE">\n|; print qq|<tr><td>\n|; print qq|<table border="0" cellpadding="7" width="250" height="350">\n|; print qq|<tr><td valign="top" colspan="2" width="100"><img src="./images/coco03_l.gif" width="100" height="75"></td>\n|; print qq|</font></tt></td><td align="center" valign="middle" rowspan="2"><tt><font size="+3" face="HG正楷書体-PRO">\n|; foreach $moji (@gyou2){ #2行目印字 print "$moji<br>\n"; } print qq|</font></tt></td><td align="center" valign="top" rowspan="2"><tt><font size="+3" face="HG正楷書体-PRO">\n|; foreach $moji (@gyou1){ #1行目印字 print "$moji<br>\n"; } print "</font></tt></td></tr>\n"; print qq|<tr><td align="right" valign="bottom"><tt><font size="+1" face="HG正楷書体-PRO">与<br>謝<br>野<br>枯<br>弧</td>\n|; print qq|<td align="center" valign="bottom" rowspan="2"><tt><font size="+3" face="HG正楷書体-PRO">\n|; foreach $moji (@gyou3){ #3行目印字 print "$moji<br>\n"; } print "</tr></table>\n"; print "</td></tr></table>\n"; exit;