はぎちゃん神社

□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■ ------------------ ＣＧＩ・３分クッキング ---------------------(^○^)~~ 発行日：1999年8月06日毎週火曜と金曜発行 Vol.【010】 ●PR●━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ⇔⇔Web新撰組News http://www.web-kyoto.com/ ⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔ 速い！安い！うまい！（？） INS64のお申し込みは、こちらまで。 http://takafumi.grabit.net/ins/ お知らせで～す。まぐまぐが8/14 - 8/18の間お休みになるらしいので、３分クッキングの 8/17（火）の分もお休みします。 ⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔⇔ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━●PR● □■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■ 【今日の献立：はぎちゃん神社その２】================================ 　　今日はおみくじCGIの本体を作ります。　　まずこれ。１：ここから------------------------------------------------------- #!/usr/local/bin/perl #おみくじの内容が入ったファイル名 @Files=('./daikichi.txt','./chuukichi.txt','./syoukichi.txt', './kyou.txt','./owari.txt'); srand(time|$$); #乱数の種をセット $file=$Files[rand(5)]; #何が当たったかな？１：ここまで------------------------------------------------------- 　　先頭行の#!/usr/local/bin/perlは、自分の環境にあわせて変更しましょう。 @Files=('./daikichi.txt','........ srand(time|$$); $file=$Files[rand(5)]; 　　は、前々回の @omikuji=("大吉","中吉","小吉","凶","もうだめ"); srand(time|$$); $num=rand(5); $atari=$omikuji[$num]; 　　と同じもんです。この時は、大吉とか中吉とかにしてましたが、今回のはファイル名を選ぶようになってます。 $num=rand(5); $file=$Files[$num]; 　　と２行も書くのが面倒だったので、$file=$Files[rand(5)];と[ ]の中に rand(5)を突っ込みました。これでもちゃんと動きます。　　続いて、、、２：ここから------------------------------------------------------- #当たったファイルを開いて項目別に保存する。 open(IN,"$file"); $atari=;#大吉、凶等の当たりの種類 $dmy=;push(@health,$dmy);$dmy=;push(@health,$dmy);#健康運 $dmy=;push(@money,$dmy);$dmy=;push(@money,$dmy);#金運 $dmy=;push(@love,$dmy);$dmy=;push(@love,$dmy);#恋愛 $dmy=;push(@study,$dmy);$dmy=;push(@study,$dmy);#学業 $dmy=;push(@people,$dmy);$dmy=;push(@people,$dmy);#待ち人 close(IN); ２：ここまで------------------------------------------------------- $dmy=;push(@health,$dmy); 　　は、ファイルから１行読んで、@health（健康運）配列に突っ込んでいます。以下、行数分繰り返しです。　　@health：健康運　　@money ：金運　　@love ：恋愛　　@study ：学業　　@people：待ち人となっています。　　これを画面に表示すれば完成です。３：ここから------------------------------------------------------- print <<"EOL"; Content-type: text/html はぎちゃん神社

$atari

健康運

$health[rand(2)]

金運

$money[rand(2)]

恋愛

$love[rand(2)]

学業

$study[rand(2)]

待ち人

$people[rand(2)]

EOL exit; ３：ここまで------------------------------------------------------- $health[rand(2)] ってなっているのは、@health配列に入れた２行のうちのどっちかを表示している為です。　　もし、おみくじネタに困っていなければ、もっと行数を増やして、 $health[rand(10)] とかにしても構いません。その場合は、「大吉」「中吉」等全てのファイルの健康運を10行にして、 $dmy=;push(@health,$dmy); を10回繰り返す必要があります。　　設置方法ですが、上記３つに別れているものを１から順に１つにまとめて（１：ここまで---とかはいらないよ）適当なファイル名にして保存します。　　前回作った、xxxx.txtファイルと共にサーバーのCGIディレクトリにアップし、CGIファイルを705、xxxx.txtファイルを604にパーミッションを変更します。　　以上、おみくじCGIでした。　　次回は、縦書きのアクセスカウンターを考えます。 ===============================================================【続く】 ---------------------------------------------------------------------- このメールマガジンは、 Subject部が、CGI3分クッキング【Vol.番号】は、まぐまぐ様にて、（ http://www.mag2.com/ ） Subject部が、CGI3分クッキング Vol.【番号】は、Macky様にて、（ http://macky.nifty.ne.jp/ ） Subject部が、CGI3分クッキング番号は、Pubzine様にて、配布致しています。メールマガジンの解除についてまぐまぐ様の解除は、 http://www.web-kyoto.com/dp/3min/ に、削除及び登録フォームを用意致しております。 Macky様の解除は、 http://macky.nifty.ne.jp/ を参考して下さい。 Pubzine様の解除は、 http://www.pubzine.com/srchid.asp?keyword=1379 に、削除及び登録フォームを用意致しております。 ---------------------------------------------------------------------- (^○^)/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 【お願い】このマガジンについてのお問い合わせは、WEB新撰組メーリングリストで、お願い致します。参加方法は、 http://www.web-kyoto.com/ml/ を参考にして下さい。はぎちゃんに対する質問・苦情は、このメールマガジンのリプライでどうぞ。うら若きお嬢様の愛情も受け付けておりますが、おっさんなので話が通じないと思います。【今回の担当】 WEB新撰組CGIプログラマーはぎちゃん（萩原逸郎）でした。　　　　　　　　　　　　　　　　監修組長（津田羊子）＆鷹（津田貴史） ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~＼(^○^)