#!/usr/local/bin/perl ########################### #かきぞめＣＧＩ　ver1.0 # #　　　　　　　　byはしもと ########################### ############## #　初期設定　# $fives = './five.txt'; # ５文字単語ファイル $sevens = './seven.txt'; # ７文字単語ファイル ################ #　メイン処理　# #　データ読み込み（５） open(DATAIN, "$fives"); @five = ; close(DATAIN); #　データ読み込み（７） open(DATAIN, "$sevens"); @seven = ; close(DATAIN); #　乱数発生＆単語１〜３確定 $num1 = int(rand(@five)); $num2 = int(rand(@seven)); $num3 = int(rand(@five)); $word1 = $five[$num1]; $word2 = $seven[$num2]; $word3 = $five[$num3]; chomp($word1); chomp($word2); chomp($word3); #　文字をバラバラにする $cha = length($word1)/2; for ($i = 0; $i < $cha; $i++){ $char1[$i] = substr($word1,$i*2,2); } $cha = length($word2)/2; for ($i = 0; $i < $cha; $i++){ $char2[$i] = substr($word2,$i*2,2); } $cha = length($word3)/2; for ($i = 0; $i < $cha; $i++){ $char3[$i] = substr($word3,$i*2,2); } #　表示開始 print <<"eof"; Content-type: text/html ＡＳＨ新年みれにあむかきぞめ

ＡＳＨ新年みれにあむかきぞめ

\n eof foreach $cha (@char3){ print "$cha
\n"; } print qq(		\n\n); foreach $cha (@char2){ print "$cha
\n"; } print qq(		\n\n); foreach $cha (@char1){ print "$cha
\n"; } print <<"eof";

topに戻る

かきぞめ気分で掲示板


このページはMillenniumG400及びMillennium2を使って動作確認をしています。
それ以外のグラフィックカードでは正常に表\示されません。
なんてことはまずないでしょうけど。
eof exit;