#!/usr/bin/perl # # # # # # # # # # # # # # # # # # # # # # # # # # # # #「おみくずver0.5」 #http://one.s48.xrea.com #このスクリプトは朝顔がパールの勉強の為に #こっそり書いてみたものです。 #完成形のver1.0はタロットおみくじになる予定。 # # # # # # # # # # # # # # # # # # # # # # # # # # # # #設置方法は、一番上のパスを書き直して #下のいくつかの箇所を適宜指定。 #パーミッション700か755かぐらいの感じで。 #↓大吉のときのメッセージを書いてください。 @dai_mes = ("おめでとう!今日はサイコーの一日です。","努力の成果が2倍になって返ってくる","思わぬ金運あり。","新しい展望が開ける日。"); #↓中吉のときのメッセージを書いてください。 @tyuu_mes = ("欲しかったものが見つかるかも。","今まで努力してきたことが実を結ぶでしょう。","勉強が思いのほかはかどる日。","苦手な人とも上手くやっていける日です。"); #↓小吉のときのメッセージを書いてください。 @syou_mes = ("なくしものが見つかるかも。","怠け心に打ち勝てる日。","楽しみが、いつも以上に楽しめる。","普段の親切が返ってくる。"); $dai_color ="#FD3C59"; #大吉のときの色を指定。 $tyuu_color ="hotpink"; #中吉のときの色。 $syou_color ="lightpink"; #小吉のときの色。 $link_color = "#4169E1"; #リンクの色。 $vlink_color ="#708090"; #リンク中の色。 $alink_color ="#8FBC8F"; #リンク後の色。 $bg_color ="#ffffff"; #壁紙の色。 $font_color ="#1841CD"; #文字の色。 $mes_color ="#330000"; #メッセージの色。 ####以上で指定終わり。##### $ransu = int(rand(3)); #0〜2までの3種類の乱数を発生、intで小数点以下を切って$ransuに代入 $ransu_mes = int(rand(4)); #それぞれのメッセージの数を5個ずつにしたいときは5に書き換える。 #↓もしその乱数が○なら、としてそれぞれの場合の運勢やメッセージ、色を決める。 #同じ運勢でも違うメッセージがランダムに発生するようにして、$mesに代入。 if ($ransu == 2) { $unsei = "大
吉"; $mes = $dai_mes[$ransu_mes]; $color = $dai_color; } elsif ($ransu == 1) { $unsei = "中
吉"; $mes = $tyuu_mes[$ransu_mes]; $color = $tyuu_color; } else { $unsei = "小
吉"; $mes = $syou_mes[$ransu_mes]; $color = $syou_color; } #上で得た値をhtmlに出力。 print "Content-type:text/html\n\n"; print << "HTML_OWARI"; おみくず

□ あ な た の 今 日 の 運 勢 は □



$unsei
 ○ $mes





おみくずver0.5
HTML_OWARI