くだらない質問でもど ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
610:609 09/01/03 20:55:47 別のプログラムの暴走でサーバーが落ちていたようです動きました。 ありがとう 611:609 09/01/03 21:13:26 完成 自由に設置してくださいｗ #!/usr/bin/perl open(IN, "./bufomikuji.txt"); chomp($xx=<IN>); close(IN); print "Content-type: text/html\n\n"; if ($xx == 77){ print "超大吉"; } elsif ($xx == 7){ print "大吉"; } elsif ($xx == 8){ print "中吉"; } else { print "小吉"; } $xx--; if ($xx < 0){ $xx= 100; } open(OUT, "> ./bufomikuji.txt"); print(OUT "$xx"); close(OUT); 612:nobodyさん 09/01/03 21:36:30 糞いらねー 613:nobodyさん 09/01/03 21:49:37 乱数使わない理由が分からない ロックしてないからすぐ壊れるだろうし 糞使えねー 614:nobodyさん 09/01/03 22:01:55 ヒント 乱数を知らない。 615:nobodyさん 09/01/04 20:24:47 ７７とかって手で入力するの？ 616:nobodyさん 09/01/04 23:09:11 せめて中吉ぐらいは$xx % 7 == 0とかでよかったんじゃなかろうか >>615 質問の意味がよくわからないけど $xxはテキストファイルから読み込んだ値
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5388日前に更新/206 KB
担当:undef