- æ¥æï¼ 2005/08/02 18:29
- ååï¼ kimio
- スレッドのテーマと全然関係ないのですが、おもしろい記述を見つけましたので紹介させていただきます。
「cgiの動作確認には、決まって、「hello」の文字を表示させることになっている。 だが、本当に、helloが見たいか?私は見たくない。」
「リスト1を、「c:\perl\cgi\」に、保存しよう。できれば、EUC+LFで保存したほうがいいが、sjis+CRLFでも、きちんと動作した。」
(リスト1) #!/usr/local/bin/perl require "./jcode.pl";srand;$c=(int(rand(5)));$ftr=(int(rand(10)));#占い @clr = ("#224962","#7794FF","#FF9900","#FF7D7D","#9FE765","#FF4949"); @res=("大凶","凶","末吉","小吉","小吉","中吉","中吉","吉","吉","大吉"); $line = "Content-type: text/html\n\n<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\"><HTML><HEAD> <META http-equiv=Content-Type content=\"text/html; charset=x-sjis\"> <TITLE>みくじ</TITLE></HEAD><BODY><FONT size=+4 color=$clr[$c]> $res[$ftr] </FONT>";&lprint;# htmlヘッダと結果 if ($ftr <= 8) {$line = "……もう一回!パパンがパンッ! <META HTTP-EQUIV=\"refresh\" CONTENT=\"1.5;URL=$ENV{'SCRIPT_NAME'}\">"; &lprint;} #結果が思わしくない時は、もう一度占う print "</BODY></HTML>"; #終わり sub lprint {&jcode'convert(*line,sjis);print $line;} #サブルーチン
久々に笑ってしまいました。特におもしろかったところは、「本当に、helloが見たいか? 私は見たくない。」のところです。この大吉が出るプログラムも笑えてきました。 実に初歩的な勉強をしていて、すんません。
|