内容

目的

富江のサブタイトルっぽいものを見て笑う。

出力イメージ

こちら

ソースイメージ

#!/usr/bin/perl

$NUM=21;
$RAND=rand(100);
sub color{
        {
                if ($RAND%13==0) {print  "Red";last ;}
                if ($RAND%13==1) {print  "Lime";last ;}
                if ($RAND%13==2) {print  "Blue";last ;}
                if ($RAND%13==4) {print  "Maroon";last ;}
                if ($RAND%13==5) {print  "Green";last ;}
                if ($RAND%13==6) {print  "Navy";last ;}
                if ($RAND%13==7) {print  "Silver";last ;}
                if ($RAND%13==8) {print  "Aqua";last ;}
                if ($RAND%13==9) {print  "Fuchsia";last ;}
                if ($RAND%13==10) {print  "Gray";last ;}
                if ($RAND%13==11) {print  "Olive";last ;}
                if ($RAND%13==12) {print  "Teal";last ;}
                if ($RAND%13==13) {print  "Purple";last ;}
                print "no match"
        }
}
sub rand_print{
        {
                if ($RAND%$NUM==0) {print  "replay";last ;}
                if ($RAND%$NUM==1) {print  "re-birth";last ;}
                if ($RAND%$NUM==2) {print  "最終章 -禁断の果実-";last ;}
                if ($RAND%$NUM==3) {print  "BEGINNING";last ;}
                if ($RAND%$NUM==4) {print  "REVENGE";last ;}
                if ($RAND%$NUM==5) {print  "vs 富江";last ;}
                if ($RAND%$NUM==6) {print  "re-born";last ;}
                if ($RAND%$NUM==7) {print  "LASTING";last ;}
                if ($RAND%$NUM==8) {print  "vs 富江 vs 登美恵";last ;}
                if ($RAND%$NUM==9) {print  "続・最終章 -禁断の果実-";last ;}
                if ($RAND%$NUM==10) {print  "最々終章 -禁断のフルーツ♪-";last ;}
                if ($RAND%$NUM==11) {print  "増殖の罠";last ;}
                if ($RAND%$NUM==12) {print  "こっちも合体";last ;}
                if ($RAND%$NUM==13) {print  "真・最終章 -富江さん、また増殖ですか-";last ;}
                if ($RAND%$NUM==14) {print  "re・最終章 -増殖しすぎて富江セール開催-";last ;}
                if ($RAND%$NUM==15) {print  "FOREVER";last ;}
                if ($RAND%$NUM==16) {print  "RING";last ;}
                if ($RAND%$NUM==17) {print  "VS 貞子";last ;}
                if ($RAND%$NUM==18) {print  "Immortal";last ;}
                if ($RAND%$NUM==19) {print  "VS マリオ -無限増殖-";last ;}
                if ($RAND%$NUM==20) {print  "再生";last ;}
                print "no match"
        }
}
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>富江サブタイトル自動生成ツール</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "<P>";
print "<font size=\"4\"><a href=\"http://ja.wikipedia.org/wiki/%E5%AF%8C%E6%B1%9F\" target=\"blank\">富江</a> サブタイトル自動生成ツール</font><br>\n";
print "</P>\n";
print "<P>";
print "<font size=\"3\">↓の「更新」ボタンかブラウザの更新ボタンで更新してください。新しいサブタイトルが出ます。</font><br>\n";
print "</P>\n";
print "<P>";
print "<font size=\"5\">劇場版 富江 最新作</font><br>\n";
print "<font size=\"10\" color=\"";
&color();
print "\"> 富江 </font>";
$RAND++;
print "<font size=\"10\" color=\"";
&color();
print "\">";
&rand_print();
print "</font><br>\n";
print "<font size=\"5\">                Coming Soon!!!</font><br>\n";
print "</P>\n";
print "\n";
print "<form>\n";
print "<input type=button value=\"更新\" onclick=location.reload()>\n";
print "</form>\n";
#print "<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>\n";
#print "<script type=\"text/javascript\"><!--\n";
#print "amazon_ad_tag = \"hinatamitsuru-22\"; amazon_ad_width = \"728\";  amazon_ad_height = \"90\";//--></script>\n";
#print "<script type=\"text/javascript\" src=\"http://www.assoc-amazon.jp/s/ads.js\"></script>\n";
print "</BODY>\n";
print "</HTML>\n";

改版履歴




トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2011-11-29 (火) 10:22:33 (2881d)