■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
ＣＧＩ３分クッキング
Vol:033
発行日： 1999年11月02日
総発行部数： 1552部
（1999年11月03日現在）
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆--------------------------------------------------------------------
●おいしいお肉でお馴染の「いづつ屋」では、
只今１００名様限定キャンペーン中。
牛タンのみそ漬けを１０００円にてご奉仕中！
めちゃくちゃ美味しいお肉を、是非ご賞味下さいませ。
http://www.tanba-izutsuya.com/
--------------------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆目次◆
●Ｗｅｂ新撰組ニュース
●今日の献立：「熱血！検索君」にちょっと近づいてきた
●予告
●はぎちゃん今日のひとこと
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆--------------------------------------------------------------------
朗報！「働きたいけど家庭も大切にしたい」「資格取得し転職したい」あなたに！
(^o^) 《医療事務》ならピッタリ☆ ◆全国で11・12月生募集中！◆
click< http://a.clickincome.net/md/dk?mid=7554b0fbf99f5ba5ff4c833735dac9db >
--------------------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
●Ｗｅｂ新撰組ニュース
メールを使った新しい遊びを追及する「メールで遊ぼう！」。
出会いの広場「みんなの掲示板」も登場！
http://www.web-kyoto.com/vmail/
へＧＯ！
Ｗｅｂ新撰組メンバー執筆のCGI参考書。
「Perlで作る楽しいCGI」は、エーアイ出版のエーアイムックNo.237。
内容についての御質問は、新撰組ＭＬ(http://www.web-kyoto.com/ml/)へ。
●今日の献立：「熱血！検索君」にちょっと近づいてきた
前々回に作ったスクリプトをCGIとして動かしてみます。
ファイル名test2.cgi
--------------------------------------------------
1:#!/usr/local/bin/perl
2:
3:use Sprite;
4:
5:$CgiName='./test2.cgi';
6:$action="ShowHtmlForm";
7:
8:%FORM=&GetFormdata;
9:
10:$action=$FORM{'action'} if($FORM{'action'});
11:
12:if($action eq 'SerchDB'){
13: $name=$FORM{'name'} if($FORM{'name'});
14: $age=$FORM{'age'} if($FORM{'age'});
15: $phone=$FORM{'phone'} if($FORM{'phone'});
16: $note=$FORM{'note'} if($FORM{'note'});
17:
18: $sep1=$FORM{'sep1'};
19: $sep2=$FORM{'sep2'};
20: $sep3=$FORM{'sep3'};
21:
22: $agesep=$FORM{'agesep'};
23:
24: $query = 'select * from phone.db ';
25: if($name){
26: $query = $query . 'where (name =~ /' . $name . '/) ';
27: $wherechk=1;
28: }
29:
30: if($age){
31: if($wherechk){
32: $query = $query . $sep1 . ' (age ' . $agesep . ' ' . $age . ') ';
33: }else{
34: $query = $query . 'where (age ' . $agesep . ' ' . $age . ') ';
35: }
36: $wherechk=1;
37: }
38:
39: if($phone){
40: if($wherechk){
41: $query = $query . $sep2 . ' ( phone = ' . $phone . ') ';
42: }else{
43: $query = $query . 'where ( phone = ' . $phone . ') ';
44: }
45: $wherechk=1;
46: }
47:
48: if($note){
49: if($wherechk){
50: $query = $query . $sep3 . ' ( note =~ /' . $note . '/) ';
51: }else{
52: $query = $query . 'where ( note =~ /' . $note . '/) ';
53: }
54: $wherechk=1;
55: }
56:
57:
58: $rdb = new Sprite;
59: $rdb->set_os ('UNIX');
60: $rdb->set_delimiter('Read',',');
61:
62: @data = $rdb->sql($query);
63:
64: $status=shift(@data);
65:
66: print <<"EOL";
67:Content-type: text/html
68:
69:
70:
71:
72:Test of Sprite
73:
74:$queryによる検索結果です
75:EOL
76:
77: if($status == 1){
78: print <<"EOL";
79:
80:
81: | なまえ | 年齢 | 電話番号 | 備考 |
82:
83:EOL
84: foreach $line (@data) {
85: ($db_name,$db_age,$db_phone,$db_note)=split(/\0/,$line);
86: print <<"EOL";
87:
88: | $db_name | $db_age | $db_phone | $db_note |
89:
90:EOL
91: }
92:
93: print "
\n";
94:}else{
95:
96: print "検索に失敗しました\n";
97:
98:}
99:$rdb->close();
100:
101: &ShowForm;
102:
103:}else{
104: print <<"EOL";
105:Content-type: text/html
106:
107:
108:
109:
110:Test of Sprite
111:
112:検索項目を記入して、検索ボタンを押して下さい。
113:何も記入しないと、全てのデータが表示されます。
114:EOL
115:
116: &ShowForm;
117:
118:}
119:
120: print "\n";
121:exit;
122:
123:sub ShowForm {
124:
125: print <<"EOL";
126: