[[nadeshiko_cgi]] に戻る
日本語プログラミング言語「なでしこ」によるWebアプリケーション・プログラミング その４
なでしこCGIを利用した基本的なコードと簡易アプリケーションです。
#contents
**入力したテキストを受け取る [#a55d844a]
フォームで入力した値を、なでしこCGIで表示する。
まずは、入力フォーム用html。
<html>
<body>
<form action="hello.nako" method="post">
あなたのお名前は？<input type="text" name="name" value="">
<input type="submit" name="submit" value="送信する">
</form>
</body>
</html>
次は、テキスト表示 なでしこCGI（hello.nako)
#!C:\xampp\cnako\cnako.exe
!『cgi.nako』を取り込む
フォーム取得して、フォームに代入。
それはフォーム＠「name」です。
「Content-type: text/html; charset=sjis｛改行｝｛改行｝
<HTML>
<HEAD>
<TITLE>値を受け取るCGI</TITLE>
</HEAD>
<BODY>
｛それ｝<br>
</BODY>
</HTML>」と表示。
終わり。
[[プログラミング言語「なでしこ」 - あがたの慶應非常勤のサイト:http://itasan.mydns.jp/wiki.cgi/KEIO?page=%A5%D7%A5%ED%A5%B0%A5%E9%A5%DF%A5%F3%A5%B0%B8%C0%B8%EC%A1%D6%A4%CA%A4%C7%A4%B7%A4%B3%A1%D7]]を参考にしました。
**簡易一行掲示板(bbs.nako) [#paf30cbb]
入力フォームにテキストを入力すると、それを本文の一番下に追加して表示します。
下記のソースコードを、テキストファイルとして「bbs.nako」というファイル名で保存する。実行時には、同じフォルダに「article.txt」という空テキストファイルをおいておくこと。
一発目の呼びだし時は書き込まないように修正。でも「更新」すると、二重投稿してしまう。どんどん投稿がたまっていっても、全部を１ページで表示してしまうので、実用的ではないけどね。
#!C:\xampp\cnako\cnako.exe
!『cgi.nako』を取り込む
バージョン番号=「005」
DBファイルパス＝「article.txt」
フォーム取得して、フォームに代入。
もし、(フォーム＜＞「」)ならば
フォーム＠nameを書き込みする
本文にDBファイルパスを読む
本文をBBS表示する
●書き込み(メッセージを)
本文＝メッセージ＆改行
DBファイルパスをファイルロック
本文をDBファイルパスに追加保存
DBファイルパスをファイルロック解除
●BBS表示(メッセージを)
＃ヘッダー --------------------------------------------
「Content-type: text/html; charset=sjis｛改行｝｛改行｝
<html>
<head>
<title>なでしこ1行掲示板:{バージョン番号}</title>
</head>
<body>
<h1>なでしこ１行掲示板</h1>
」と表示。
＃ ----------------------------------------------------
メッセージを反復
「｛それ｝<br>」を表示。
＃フッター --------------------------------------------
「<hr>
<form action="bbs.nako" method="post">
メッセージを入力<input type="text" name="name" value="">
<input type="submit" name="submit" value="送信する">
</form>
</body>
</html>」と表示。
終わり。
** 簡易伝言板(file_test.nako) [#uf9039ab]
受け取ったデータをファイル保存するサンプルプログラムです。１行掲示板のバリエーションで、名前・複数行テキスト・投稿日時を保管します。最後の投稿だけを記録しています。下記のサンプルコードを「file_test.nako」として保存してください。
#!C:\xampp\cnako\cnako.exe
!『cgi.nako』を取り込む
バージョン番号=「003」
DBファイルパス＝「DB_file.txt」
フォーム取得して、フォームに代入。
もし、(フォーム＜＞「」)ならば
フォームを書き込みする
本文にDBファイルパスを読む
本文をBBS表示する
●書き込み(メッセージを)
メッセージ＠date = 今日＆「:」＆今
メッセージ＠msg = メッセージ＠msgの改行を「<br>」に置換
DBファイルパスをファイルロック
メッセージをDBファイルパスに保存
DBファイルパスをファイルロック解除
●BBS表示(メッセージを)
＃ヘッダー --------------------------------------------
「Content-type: text/html; charset=sjis｛改行｝｛改行｝
<html>
<head>
<title>なでしこ伝言板:{バージョン番号}</title>
</head>
<body>
<h1>なでしこ伝言板</h1>
」と表示。
＃ ----------------------------------------------------
「名前：{メッセージ＠name}<br>」を表示。
「日時：{メッセージ＠date}<br>」を表示。
「伝言：<br>{メッセージ＠msg}」を表示。
＃フッター --------------------------------------------
「<hr>
<form action="file_test.nako" method="post">
名前：<br>
<input type="text" name="name" value=""><br>
テキスト：<br>
<textarea name="msg" cols=40 rows=4>あいうえお</textarea><br>
<input type="submit" name="submit" value="投稿する">
</form>
</body>
</html>」と表示。
終わり。
**簡易フラット掲示板(flat_bbs.nako) [#oc8a6f30]
複数の投稿を表示できる掲示板プログラム。すべての投稿を一覧表示する(だから、投稿数が多くなると、ページがものすごく長くなるはず)。実行時には「dat」フォルダを作っておく。ここに投稿ごとにテキストファイルとして保存していく。
#!C:\xampp\cnako\cnako.exe
!『cgi.nako』を取り込む
バージョン番号=「102」
DBファイルパス＝「dat」
アプリ名＝「なでしこフラット掲示板」
フォーム取得して、フォームに代入。
もし、(フォーム＜＞「」)ならば
フォームを書き込みする
BBS表示する
●書き込み(メッセージを)
＃投稿ごとにテキストファイルとして保存
＃ファイル名は、日時.txt
日時文＝今日＆「_」＆今
メッセージ＠date = 日時文
メッセージ＠msg = メッセージ＠msgの改行を「<br>」に置換
日時文２＝日時文の「/」を「」に置換して、それの「:」を「」に置換
メッセージファイル名 = DBファイルパス＆「\」＆日時文２＆「.txt」
メッセージをメッセージファイル名に保存
●BBS表示()
ファイル一覧＝DBファイルパスをファイル列挙
＃ヘッダー --------------------------------------------
「Content-type: text/html; charset=sjis｛改行｝｛改行｝
<html>
<head>
<title>{アプリ名}:{バージョン番号}</title>
</head>
<body>
<h1>{アプリ名}</h1>
」と表示。
＃ ----------------------------------------------------
ファイル一覧を反復
本文ファイル名＝それ
本文に(DBファイルパス＆「\」＆本文ファイル名)を読む
「<hr>」を表示。
「日時：{それ＠date}<br>」を表示。
「名前：{それ＠name}<br>」を表示。
「投稿：<br>{それ＠msg}」を表示。
＃フッター --------------------------------------------
「<hr>
<form action="flat_bbs.nako" method="post">
名前：<br>
<input type="msg" name="name" value=""><br>
テキスト：<br>
<textarea name="msg" cols=40 rows=4></textarea><br>
<input type="submit" name="submit" value="投稿する">
</form>
</body>
</html>」と表示。
終わり。
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
