[1]CGIスクリプトでa要素やimg要素を使用する際の""の取り扱い

タグを記載する場合<a href="hoge.html">トップページ</a>や<img src="hoge.jpg">のように""を使用する場合がある。これらをCGIスクリプト（Rubyプログラム）の中で記載する場合

print"<a href="hoge.html">トップページ</a>\n"

というようにprint ""で周囲をくくる必要があるため、""の中に""が入り込むという状況になる。この場合どれがprintの"でどれがa要素の"なのかが不明確になり、うまく取り扱うことができない。そのためprint""の""以外で""を使用する場合は"の手前に\（バックスラッシュ）をつけて区別する。

""の取り扱い

<a>や<img>を使用する場合、内部で使用する"の手前には\をつける。

print"<a href=\"hoge.html\">トップページ</a>\n"

[2]練習

前回の授業で作成した、shinri.rbに、shinri.htmlへのリンクを貼り、""の手前にバックスラッシュが必要であることを確認しよう。

print"<p><a href="shinri.html">元のページに戻る</a></p>\n"

[3]ファイルのアクセス権について

CGIスクリプトとして働くRubyプログラムは、cgi-binディレクトリに保存した上で、ktermより次のコマンドを入力しなければ正しく動かすことが出来なかった。

sime{c1xxxxx}% chmod 755 ◯◯.rb[Return]
または
sime{c1xxxxx}% chmod +x ◯◯.rb[Return]

chmodコマンドはファイルへのアクセス権を設定するコマンドである。では、その後の755は何を意味するのだろうか。これを理解するためには、まずアクセス権について理解する必要がある。

ファイルのアクセス権

ktermを使い、lsコマンドに引数-laをつけ、ディレクトリ内のファイル一覧を表示してみよう。どのディレクトリで行っても構わない。コマンドを入力すると、ファイル名以外に-rw-r--r--というような不思議な記号が表示されることが確認できる。

sime{c1xxxxx}% ls -la[Return]
drwxr-xr-x   2 naoya    st2005       512  9月 29日  19:10 ./
drwxr-xr-x  13 naoya    st2005      1024  9月 29日  16:03 ../
-rw-r--r--   1 naoya    st2005        46  9月 24日  16:09 .htaccess
-rw-r--r--   1 naoya    st2005      3743  9月 29日  19:10 10-access.htm
-rw-r--r--   1 naoya    st2005      5934  2月 15日 2008年 10-css.htm
-rw-r--r--   1 naoya    st2005      2319  2月 15日 2008年 10-image.htm
-rw-r--r--   1 naoya    st2005      4828  9月 29日  19:06 10-open.htm
-rw-r--r--   1 naoya    st2005     22966  9月 29日  18:42 10.htm
-rw-r--r--   1 naoya    st2005     22501  9月 24日  16:19 9.htm
-rwxr-xr-x   1 naoya    st2005       807  9月 24日  16:45 kakaku.rb*
-rw-rw-rw-   1 naoya    st2005       144  9月 29日  19:06 open-cgi.dat
-rwxr-xr-x   1 naoya    st2005       887  9月 29日  19:01 open-cgi.rb*

これが各ファイルのアクセス権を示したものである。先頭は、「-」または「d」となっているが、これはファイルとディレクトリを区別するもので、「-」はファイル、「d」はディレクトリとなる。

先頭の1桁を除外すると、残りは9桁である。これは3桁×3つに分割することができる。最初の3桁は自分自身(u)のアクセス権、次の3桁は自分と同一グループのユーザー(g)のアクセス権、最後の3桁は他のユーザー(o)のアクセス権である。

u (User)			g (Group)			o (Other)
r	w	x	r	w	x	r	w	x

ここで、rはReadの略であり読み込む権利を、wはWriteの略であり編修する権利を、xはeXecuteの略で実行する権利を表している。r、w、xと表示されている場合はその権利があり、-の場合はその権利がないという意味になる。

ファイルを作成した直後のアクセス権の設定は、rw-r--r--となっているが、これは次のような意味となる。

自分(u):r(読み込み)とw(編集)のみ可
グループ(g):r(読み込み)のみ可
他人(o):r(読み込み)のみ可

CGIスクリプトとして使用するRubyプログラムは、自分だけでなく他人が使用する可能性があるため、gやoに実行する権利を与える必要があるし、CGIの中でopenメソッドを使ってファイルの読み書きをする場合は、gやoにファイルを読み込む権利や編修する権利を与える必要がある。

アクセス権の変更方法[1] ビットパターンによる指定

u, g, oそれぞれについて3種類の権利を設定することができる。許可する場合を1、許可しない場合を0とした場合、u, g, oそれぞれについて000, 001, 010, 011, 100, 101, 110, 111という8種類の組み合わせが想定できる。これを3桁の2進数と見なし、10進数に直した値を使って指定しようとする方法である。

組み合わせ	r(Read)	w(Write)	x(eXecute)	10進数
000	-	-	-	0
001	-	-	OK	1
010	-	OK	-	2
011	-	OK	OK	3
100	OK	-	-	4
101	OK	-	OK	5
110	OK	OK	-	6
111	OK	OK	OK	7

sime{c1xxxxx}% chmod 755 hoge.rb[Return]

この場合、hoge.rbに対して、Userはr,w,xいずれも許可、GroupとOtherはr,xのみ許可という設定をしていることになる。

アクセス権の変更方法[2] シンボルを用いて指定

ユーザーを表すu, g, oと、アクセス権を表すr, w, xを組み合わせて指定する方法である。例を示しながら説明する。

sime{c1xxxxx}% chmod u+x hoge.rb[Return]
#=>Userにx(eXecute)を追加

sime{c1xxxxx}% chmod o-r hoge.rb[Return]
#=>Otherからr(Read)を除去

sime{c1xxxxx}% chmod +x hoge.rb[Return]
#=>User、Group、Otherにx(eXecute)を追加

sime{c1xxxxx}% chmod -w hoge.rb[Return]
#=>User、Group、Otherからw(Write)を除去

[4]CSSを切り替える

以下は、色占いのCGIである。いずれかの色を選んだ上で「占う」ボタンを押すと、占い結果が表示されるが、その際に背景色を選択色にするということを考えてみる。

背景色の変更はbody要素に対してCSSのbackground-colorプロパティを指定すれば良い。CSSによるスタイルの指定にはいくつかの方法があるが、ここでは<head></head>内に記載する方法を示す。

入力フォーム

<form method="POST" action="./color.rb">
<p>占いです。今の気分を表す色を選んでね。</p>
<p>
<input type="radio" name="color" value="red">赤
<input type="radio" name="color" value="blue">青
<input type="radio" name="color" value="green">緑
</p>
<p>
<input type="submit" name="ok" value="占う">
<input type="reset" name="ng" value="やめておく">
</p>
</form>

使用しているのはラジオボタンである。ラジオボタンはいずれか1つしか選択することができないようにするため、name属性を3つともcolorに指定している。選択した色をvalue、colorをkeyとしてcolor.rbに引き渡される。

CGIスクリプト（color.rb)

#!/usr/bin/env ruby
# coding: utf-8

require 'cgi'
c = CGI.new(:accept_charset => "UTF-8")
print "Content-type: text/html; charset=UTF-8\n\n"

select = c["color"]

print "<html>\n"
print "<head>\n"
print "<title>診断結果</title>\n"
print "<meta http-equiv=\"Content-Style-Type\" content=\"text/css\">\n"
print "<style type=\"text/css\">\n"
print "<!--\n"

if select == "red"
  print "body {background-color: #ff0000}\n"
  uranai = "元気いっぱいですね"
elsif select == "blue"
  print "body {background-color: #0000ff}\n"
  uranai = "落ち込んでいますね"
elsif select == "green"
  print "body {background-color: #00ff00}\n"
  uranai = "目が疲れていますね"
end

print "-->\n"
print "</style>\n"
print "</head>\n"
print "<body>\n"

print "<h1>診断結果</h1>\n"

print "<p>あなたが選んだのは#{select}です。#{uranai}。</p>\n"

print "</body>\n"
print "</html>\n"

CSSを使用する場合、<head></head>内に
<meta http-equiv="Content-Style-Type" content="text/css">
と書く必要がある。

Rubyプログラムの中に書くため、print""をつけ、""内で使用されている"はバックスラッシュをつけて
print "<meta http-equiv=\"Content-Style-Type\" content=\"text/css\">\n"
となる。

CSSのスタイル自体は

<style type="text/css">
<!--
  body {background-color: #ff0000}
-->
</style>

で指定されている。color.rbではbody {background-color: #ff0000}の部分をif文でくくり、条件に応じて色を変更している。

外部CSSファイルを呼び出す

CSSによるデザインの指定を行う場合、上述の通り<head></head>内に具体的に書いてもよいが、別にファイルを作成しておいても良い。この場合拡張子がcssのテキストファイルを作成しておき、<head></head>内には<style></style>で具体的に指定するかわりに

として呼び出すこともできる。これにより、hoge.cssに記載したスタイルが呼び出したhtmlファイルに適用される。

CSSファイルのサンプル（2010.css; このページで使用しているCSS）

CSSのプロパティの詳細についてはGoogle等で「CSS　プロパティ」をキーワードにして検索してみること。

[5]openメソッドと組み合わせる

通常のプログラムと同じように、openメソッドを使って外部のファイルからの読み込みや、書き出しをすることができる。

入力フォーム（choice.html)

<form method="POST" action="./open-cgi.rb">
<p>
猫と犬のどちらが好きですか?<br>
<input type="radio" name="choice" value="cat">猫
<input type="radio" name="choice" value="dog">犬<br>

<input type="submit" name="ok" value="投票">
<input type="reset" name="ng" value="リセット">
</p>
</form>

質問にはラジオボタンを用いている。2つのラジオボタンを同時に選択することが出来ないよう、name属性をchoiceに統一している。選択したボタンに対応するvalue属性の値がkeyであるchoiceに対応するvalueとして、CGIスクリプト(open-cgi.rb)に送られる。

CGIスクリプト（open-cgi.rb)

#!/usr/bin/env ruby
# coding: utf-8

require 'cgi'
c = CGI.new(:accept_charset => "UTF-8")
print "Content-type: text/html; charset=UTF-8\n\n"

data = c["choice"]

cat = 0
dog = 0

open("open-cgi.dat","r+:utf-8") do |hoge|
  while line = hoge.gets
    if /cat/ =~ line
      cat += 1
    elsif /dog/ =~ line
      dog += 1
    end
  end

  if data == "cat"
    cat += 1
    hoge.printf("%s\n",data)
  elsif data == "dog"
    dog += 1
    hoge.printf("%s\n",data)
  end
end

print"<html>
<head><title>結果発表</title></head>
<body>\n"

print"<h1>投票数:#{cat+dog}</h1>\n"

print"<table border=1>\n"

print"<tr><td>猫</td><td>"
1.upto(cat) do |i|
  if i%50 == 0
    print"■<br>"
  else
    print"■"  
  end
end
printf(" %d</td></tr>\n",cat)

print"<tr><td>犬</td><td>"
1.upto(dog) do |i|
  if i%50 == 0
    print"■<br>"
  else
    print"■"  
  end
end
printf(" %d</td></tr></table>\n",dog)	

print"</body>\n"
print"</html>\n"

入力フォームで選択されたデータは、ハッシュ変数cのkeyとvalueという形で取り出されている。その後、openメソッドを用いて、open-cgi.datを開いている。モードはr+とし、読み込みも書込みも出来るようにしている。open-endの中で、まず、while-endを使ってファイル内の値を順番にとりだし、これまでの得票数をcatとdogにそれぞれ代入しておき、その下のif-endで今回の得票の加算と、ファイルへの書込みを行っている。

HTMLへの結果出力時には、1票を■1つで表現し、それぞれ得票数を示している。演算子%は割り算の余りという意味であり、50で割ったときの余りが0の場合のみ<br>をつけることで、50票ずつ折り返して表示できるようにしている。

このCGIをうまく動かすためには、事前にopen-cgi.datを作成しておく必要がある。その上で、自分以外の第三者がこのファイルへの読み書きができるようファイルのアクセス権限を変更する必要がある。具体的にはktermでchomodコマンドを使用して次のように入力する。

sime{c1xxxxx}% chmod 666 open-cgi.dat[Return]

[6]自分自身にデータを引き渡す

複数ページを1つのプログラムで作る

次のCGIを試してみよう。

迷路から脱出せよ

これは迷路の中を進んでゴールにたどり着くゲームの簡略版である。何度も進路を選択して進んでいき、最終的にゴールにたどり着くが、このようなページは単一のプログラムで書くことができる。プログラムを見てみよう。

#!/usr/bin/env ruby
# coding: utf-8

require 'cgi'
c = CGI.new(:accept_charset => "UTF-8")
print "Content-type: text/html; charset=UTF-8\n\n"

number = c["rd"]

if number == ""  #初回起動時のみ
 number = "1"    #numberに"1"を代入
end

if number != "7" #numberが"7"以外の場合は（7はゴール）

 print"<html><head><title>クイズ</title></head><body>\n"
 #formタグやOKボタンは1つで共用
 print"<form method=\"POST\" action=\"./sample.rb\">\n"
 if number == "1"
   print"<p>どっちへ進む？</p>\n"
   print"<input type=\"radio\" name=\"rd\" value=\"2\">右\n"
   print"<input type=\"radio\" name=\"rd\" value=\"3\">左\n"
   print"<input type=\"radio\" name=\"rd\" value=\"4\">前\n"
   print"<input type=\"radio\" name=\"rd\" value=\"5\">上\n"
 elsif number == "2"
   print"<p>さてどうしよう</p>\n"
   print"<input type=\"radio\" name=\"rd\" value=\"3\">右\n"
   print"<input type=\"radio\" name=\"rd\" value=\"4\">左\n"
   print"<input type=\"radio\" name=\"rd\" value=\"5\">前\n"
   print"<input type=\"radio\" name=\"rd\" value=\"6\">上\n"
 elsif number == "3"
   print"<p>だんだんわからなくなってきたぞ。次はどうする？</p>\n"
   print"<input type=\"radio\" name=\"rd\" value=\"1\">右\n"
   print"<input type=\"radio\" name=\"rd\" value=\"4\">左\n"
   print"<input type=\"radio\" name=\"rd\" value=\"2\">前\n"
   print"<input type=\"radio\" name=\"rd\" value=\"5\">上\n"
 elsif number == "4"
   print"<p>ゴールが近づいてきたような気がする</p>\n"
   print"<input type=\"radio\" name=\"rd\" value=\"2\">右\n"
   print"<input type=\"radio\" name=\"rd\" value=\"1\">左\n"
   print"<input type=\"radio\" name=\"rd\" value=\"4\">前\n"
   print"<input type=\"radio\" name=\"rd\" value=\"7\">上\n"
 elsif number == "5"
   print"<p>だめだどこにいるかわからない</p>\n"
   print"<input type=\"radio\" name=\"rd\" value=\"4\">右\n"
   print"<input type=\"radio\" name=\"rd\" value=\"2\">左\n"
   print"<input type=\"radio\" name=\"rd\" value=\"6\">前\n"
   print"<input type=\"radio\" name=\"rd\" value=\"1\">上\n"
 elsif number == "6"
   print"<p>ここはどこだろう</p>\n"
   print"<input type=\"radio\" name=\"rd\" value=\"3\">右\n"
   print"<input type=\"radio\" name=\"rd\" value=\"4\">左\n"
   print"<input type=\"radio\" name=\"rd\" value=\"5\">前\n"
   print"<input type=\"radio\" name=\"rd\" value=\"2\">上\n"
 end

 print"<input name=\"ok\" type=\"submit\" value=\"送信\">\n"
 print"<input name=\"ng\" type=\"reset\" value=\"リセット\">\n"
 print"</form>\n"
else
 print"<p>おめでとう！　ゴールです</p>\n"
end
print "</body>\n"
print "</html>\n"

選択したラジオボタンのvalueの値に応じて、if文で異なるメッセージが表示されるようになっている。

値を次の次に引き渡す

5問のクイズを1ページに1つずつ出題する場合、最初の問題や2つ目の問題に対する回答を最終ページに持ち越すことは通常はできない。しかし、<input type="hidden">を使うと持ち越すことができる。

次の次のページにデータを引き渡す

#!/usr/bin/env ruby
# coding: utf-8

require 'cgi'
c = CGI.new(:accept_charset => "UTF-8")
print "Content-type: text/html; charset=UTF-8\n\n"


data = c["rd"]
hoge = c["dat"]

hoge = hoge + data  #直前に選んだデータをhogeに追加

hogehoge = hoge.split(",")  #hoge内のデータを,ごとに配列に分割


print"<html><head><title>好きな果物</title></head><body>\n"


print"<form method=\"POST\" action=\"./sample2.rb\">\n"
print"<p>ひとつ選択</p>\n"
print"<input type=\"radio\" name=\"rd\" value=\"りんご,\">りんご\n"
print"<input type=\"radio\" name=\"rd\" value=\"バナナ,\">バナナ\n"
print"<input type=\"radio\" name=\"rd\" value=\"みかん,\">みかん\n"
print"<input type=\"hidden\" name=\"dat\" value=\"#{hoge}\"><br>\n"
    #type="hidden"で入力パーツを表示せず、hogeをプログラムに引き渡す
print"<input name=\"ok\" type=\"submit\" value=\"送信\">\n"
print"<input name=\"ng\" type=\"reset\" value=\"リセット\">\n"
print"</form>\n"


print"<p>選んだもの</p>"
for i in hogehoge
  printf("<p>%s</p>",i)
end



print "</body>\n"
print "</html>\n"

print"<input type=\"hidden\" name=\"dat\" value=\"#{hoge}\"><br>\n"の部分で、typeをhiddenとしているため入力用のパーツは何も表示させずに、データをプログラムに引き渡すことができる（ここではkeyがdat、valueを変数hoge）。

splitメソッドは変数.split(区切り)という形式で用いることで区切りの位置で変数内の値を区切って配列に変換することができる。今回のケースでは、hogeは通常変数であり、この変数内には"りんご,バナナ,バナナ,みかん"のように文字列が,を挟んで合体したような形で代入されている。これをsplitメソッドを使ってカンマの位置で切ることで、hogehogeは["りんご","バナナ","バナナ","みかん"]のようになる。なお変数hogeで各果物の間にカンマがついているのはラジオボタンのvalueの部分でvalue=\"バナナ,\"のようにカンマをつけているためである。

[7]データを永続させる（PStoreクラス）

>>More

>>Close

アンケートなどの処理を行う場合、これまでの投票を全て保存しておき、集計できることが望ましい。しかしCGIでは、入力フォームからCGIスクリプトに値を引き渡して処理を終了するまでの間しか変数の値は生きていない。つまり、<form>のあるWebページで入力された値はCGIスクリプトの終了とともに消えてしまう。

この問題に対応するため、[14]ではopenメソッドを使って毎回の結果をファイルに出力した。しかし、openメソッドを使う場合は、変数内の値のファイルへの出力やファイル内容を読み込んで変数に代入するという作業を、プログラムを実行するたびに行う必要があった。

ここでは、変数内の値をそのままの形式でファイルに保存することができる、PStoreクラスを使ってみよう。

PStoreクラス

PStoreクラスを用いると、文字列や数値、配列、ハッシュなど、どんな値でも直接ファイルに保存をすることができる。またopenメソッドとは異なり、ファイルのオープン/クローズや、ファイルへの読み書きをほとんど意識しないで済むようになっている。まず基本構造について確認してみよう。

#!/usr/koeki/bin/ruby
# coding: utf-8


require "pstore"
PStore変数 = PStore.new("データベース名")

PStore変数.transaction do
  データベースへのアクセス（格納/取り出し）
end

require "pstore"	PStoreは標準では使用できないため、機能の追加
PStore変数 = PStore.new("データベース名")	変数内の値を保存するデータベース（ファイル）の作成。PStore変数はデータベースへアクセスする際に使用
PStore変数.transaction do データベースへアクセスして行う処理 end	データベースファイルとの値のやり取り。ファイルとのやり取りはPStore変数.transaction do-end内だけで行うことができる。

ここでは2つのハッシュ変数の値を保存する例について見てみよう。以下は、PStore変数cafeを介してdata.dbというデータベースに格納／取り出しをするプログラムである。

PStore変数はハッシュと同じような形式で値を格納する。このプログラムでは、食事のメニューと金額が代入されたハッシュ、飲み物のメニューと金額が代入されたハッシュが、それぞれfood_menu、drink_menuというルート名に関連付けられている。

ルート名	オブジェクト（変数に代入されたデータ）
food_menu	{ペペロンチーノ”=>500, “トースト”=>210}
drink_menu	{カフェラテ”=>320,”カフェオレ”=>330}

#!/usr/koeki/bin/ruby
# coding: utf-8


require "pstore"   # pstoreライブラリの追加
cafe = PStore.new("data.db")   # data.dbが保存先ファイル

cafe.transaction do
  if cafe["food_menu"] == nil  # 未入力なら
    cafe["food_menu"] = Hash.new  # 新規ハッシュを代入
  end
  if cafe["drink_menu"] == nil
    cafe["drink_menu"] = Hash.new
  end

  food = cafe["food_menu"]  # そうでなければ以前の値を引き継ぐ
  drink = cafe["drink_menu"]

  print"メニューに商品を登録します。\n"
  print"食べ物の登録は1を、飲み物の登録は2を入力:"
  number = gets.chomp!.to_i

  print"商品名を入力:"
  name = gets.chomp!
  print"金額を入力:"
  price = gets.chomp!.to_i

  if number == 1
    food[name] = price
  else
    drink[name] = price
  end

  print"---\n"
  for item in food.keys
    printf("%s \t %d円\n", item, food[item])
  end
  print"---\n"
  for item in drink.keys
    printf("%s \t %d円\n", item, drink[item])
  end
end  # data.dbへのデータの書き込み

このようにすると、以前に登録した値を data.db ファイルに自動的に保存し、前回の値を引き継ぐことができる。

sime{c1xxxxx}% ruby pstore.rb[Return]
メニューに商品を登録します。
食べ物の登録は1を、飲み物の登録は2を入力:1[Return]
商品名を入力:ペペロンチーノ[Return]
金額を入力:500[Return]
---
ペペロンチーノ         500円
---
sime{c1xxxxx}% ruby pstore.rb[Return]
メニューに商品を登録します。
食べ物の登録は1を、飲み物の登録は2を入力:2[Return]
商品名を入力:カフェラテ[Return]
金額を入力:320[Return]
---
ペペロンチーノ         500円  #前回実行時に入力した
---　　　　　　　　　　　　　　　　　ペペロンチーノも覚えている
カフェラテ	       320円

すこし丁寧に見ていこう。

require "pstore"
cafe = PStore.new("data.db")   # data.dbが保存先ファイル

まず、1行目でpstoreライブラリを追加し、機能拡張を行っている。次に2行目で、data.dbというデータベースファイルを作成し、このファイルにアクセスをするためのPStore変数としてcafeを宣言している。

cafe.transaction do
  #以下3行は決まり文句
  if cafe["food_menu"] == nil
    cafe["food_menu"] = Hash.new
  end

  food = cafe["food_menu"]

cafe.transaction内でデータベースへの格納や取出しが行われるが、冒頭の3行は決まり文句なので確認しておこう。データベースには、変数内の値がルート名と関連付けて保存されている。今回は"食事メニュー=>金額"というハッシュ形式のデータを｢food_menu｣というルート名に関連づけることにしている。

if cafe["food_menu"] == nil とは、データベース内にルート名｢food_menu｣に関連付けられる変数が存在しないということ（＝プログラムの1回目の実行時）であり、この場合はHash.newをして空っぽのハッシュを作成しておく。

そして、food = cafe["food_menu"]で、ルート名｢food_menu｣に関連付けられる変数の複製としてfoodを作成する。したがって、foodはハッシュになる。

ルート名｢drink_menu｣に関連付けるもう1つのハッシュについても同様の処理をしているが、ここでは割愛。

  print"商品名を入力:"
  name = gets.chomp!
  print"金額を入力:"
  price = gets.chomp!.to_i

  if number == 1
    food[name] = price
  else
    drink[name] = price
  end
           ：
end #cafe.transaction doに対するend

ここでメニューの商品名をname、金額をpriceに代入しておき、ハッシュ変数foodもしくはdrinkに代入している。

データベースへの値の書き込みは最後のend、すなわちデータベースに対するtransaction処理が終了した時点で行われる。これでなぜ、データベースに書き込みが行われるのかと疑問に感じるかもしれないので、まずは以下を確認してみよう。

#!/usr/koeki/bin/ruby
x = [10,20,30]
y = x  # yはxの複製
y << 40  # yに40を追加
p x
p y

sime{c1xxxxx}% ruby copy.rb[Return]
[10,20,30,40] # xにも40が追加されている。
[10,20,30,40]

配列やハッシュは単純に複製をつくると、入れ物としての変数名は2つになるが、代入されている要素は複製されず、共通になってしまう。そのため、一方の変数に要素を追加（削除）すると、他方にも反映される。

つまり、このプログラムではfoodやdrinkという複製を作成しており、これらの変数に新しいメニューが追加されているが、同時にcafe["food_menu"]やcafe["drink_menu"]にも追加されている。transactionに対するendで、これらの変更がファイルに自動的に書き込まれ、データが更新される。

>>Close

[8]CGIでのPStoreの利用

>>More

>>Close

専用ディレクトリの作成

CGIで動く簡単な掲示板を作成してみよう。そのために、まずこのCGIを保存するディレクトリを作成する。今回はデータベース用のファイルに書き込みを行うため、自分の保有するディレクトリ内のファイルに他者が書き込む権限を与えなければならない。cgi-binディレクトリを全て書き込み可能にすると、悪意を持った侵入者やプログラムの書き間違いにより、全てのファイルを破壊してしまうかもしれない。

そこで、データベース専用のディレクトリ作成し、そのディレクトリだけ第三者の書き込みを許可しておく。ここでは、cgi-binの下にpstoreというディレクトリを作成する。

sime{c1xxxxx}% cd ~/public_html/cgi_bin[Return]
sime{c1xxxxx}% mkdir pstore[Return]
sime{c1xxxxx}% chmod o+w pstore[Return]

mkdirはディレクトリ作成コマンド。その下のchmodでpstoreディレクトリに対しo+wの権限、つまり第三者に対する書き込み権限を追加している。

sime{c1xxxxx}% cd ~/public_html/cgi_bin/pstore[Return]
sime{c1xxxxx}% touch データ名.db[Return]
sime{c1xxxxx}% chmod o+w データ名.db[Return]

次に、pstoreディレクトリに移動し、ファイルを新規作成するtouchコマンドでデータベースファイル（データ名.db）を作成し、これについても同様にchmodでo+w（第三者への書き込み権限の追加）をしている。

実際の例を示す（bbs.rb）。

#!/usr/bin/env ruby
# coding: utf-8

require 'cgi'
c = CGI.new(:accept_charset => "UTF-8")

require "pstore"
bbs = PStore.new("dat.db")
print "Content-type: text/html; charset=UTF-8\n\n"

print"<html><head><title>掲示板</title></head><body>\n"

# formのactionのこのGCIプログラムに指定し
# 入力した値を自分自身に引き渡して処理をする
print"<form method=\"POST\" action=\"./bbs.rb\">\n"
print"<p>名前:<input name=\"name\" maxlength=\"40\"><br>
一言:<input name=\"word\" maxlength=\"80\"><br>
<input type=\"submit\" value=\"GO\">
<input type=\"reset\" value=\"reset\">
</form>\n"

bbs.transaction do
# 未入力なら新規ハッシュを代入
# そうでなければ以前の値を引き継ぐ
  if bbs["word"] == nil
    bbs["word"] = Hash.new
  end
  word = bbs["word"]
  
# 「名前」、「一言」いずれも入力されていれば（>""で「データなしで無い」）、
# ハッシュ形式で保存
  if c["name"] > "" && c["word"] > ""
    name = c["name"]
    word[name] = c["word"]
  end

# Webページ上に出力
  print "<pre>\n"
  for person in word.keys
    printf("%sさんのひとこと「%s」\n", person, word[person])
  end
  print "</pre>"
end

print "<hr></body></html>\n"

実際に書き込んでみよう。

実用CGIスクリプトへ

PStoreクラスを利用して、Webで入力できる自分用のデータベースを作ろう。

ここでは、何かを食べた時の感想を登録できるデータベースを作る。

CGI変数は

食べ物の名前：name
感想：comment

とする。入力フォームとデータの出力を両方とも行うようなCGIプログラムとする（formのactionで自分自身を呼び出す）。

comment.rb

#!/usr/bin/env ruby
# coding: utf-8

require "cgi"
require "pstore"

c = CGI.new(:accept_charset => "UTF-8")
name = c["name"]
cmt  = c["comment"]
time  = Time.now    # Time.nowで現在時刻を取得

# HTMLヘッダの出力
print "Content-type: text/html; charset=UTF-8\n\n"

print"<html><head><title>ひとこと掲示板</title></head><body>\n"

print"<h1>ひとこと掲示板</h1>\n"

bbs = PStore.new("database.db")
bbs.transaction do
  if bbs["root"] == nil
    bbs["root"] = Hash.new
  end
  data = bbs["root"]  # ここまではおきまり

  if name >"" && cmt > ""  # 名前とコメント、両方値があるなら登録
    data[name] = [time, cmt]  # 今日の日付とコメント

  end

  # フォーム出力
  print"<form method=\"POST\" action=\"./comment.rb\">\n"
  print '<p>

名前: <input name="name" type="text" maxlength="40"><br>
コメント <br>
<textarea name="comment" cols="40" rows="5">

</textarea><br>
<input type="submit" value="OK">
<input type="reset" value="reset"><br>
</p><hr>'

  # 既存のコメント出力(キー毎)
  print "<dl>\n"  # 定義環境開始
  for i in data.keys.sort{|x, y|
      data[y][0] <=> data[x][0]  # 日付の新しい順にソート
    }  
    day = data[i][0]  # 第0要素が日付
    msg = data[i][1]  # 第1要素がコメント、それぞれ取り出す
    printf(" <dt> %s\n", i)  # キー(つまり飲んだものの名前)
    printf(" <dd> 記載日: %s<br>\n", day.strftime("%Y/%m/%d/ %X"))
    printf("      %s\n", msg)
  end
  print "</dl>\n"  # 定義環境終了
end# db.transaction 終わり

print "<hr></body>\n</html>"

実際に書き込んでみよう。

>>Close

[9]自由課題グループ分け

次回から自由課題実施期間となる。これまで学んできたことを駆使してグループごとにプログラムを作成する。5～6人のグループを作る。これまでに獲得してきた点数に基づき、各グループの戦力が均衡するようにグループ分けを行う。どのようなプログラムを作成するか考えておくと良い。

[10]レポート課題

問題（10点満点）：CGIを使って自由に何かを作成する。10点満点だが、単に授業用のページ（他の先生も含む）に掲載されているものを複写し、多少言葉を変えただけの場合はプログラム点の配点を最低点とする。

提出先：課題提出用メールアドレス
提出期限：第1提出期限、第2提出期限を設定
メールのSubject：課題7
本文の構成：1行目で学籍番号、氏名を記載する。2行目以降は下記の構成とする

データを入力するWebページのURL
作成したプログラム（CGIスクリプト）
プログラムの説明
感想

採点基準：期限内提出点（2点）、メールの体裁（1点）、プログラム（1～5点）、説明（2点）
プログラムの説明：何をするCGIなのか、Webページの入力フォームから受け取った値をどのように処理しているのかについて
わかりにくい説明や、Webページを単にコピー&ペーストしただけの説明は減点することがある。一度読み直してから提出すること。
驚異的に良くできているレポートについては満点を超える得点をつけることがある。
よくできていたレポートは、他の人の参考になるよう、本人が特定できないような形で掲載する。掲載してほしくない場合はメールでの課題提出時にその旨記載すること。

Tips：emacsでの日本語入力のオンオフはCtrl-oです

Tips：ktermでのプログラムの実行結果をメールに貼り付けるには、コピーしたい箇所をマウスで選択し、emacs（Mew）上でマウスの真ん中ボタンをクリックする

Tips：Mewによるメールの送り方はMewコマンドを参照

組み合わせ	r(Read)	w(Write)	x(eXecute)	10進数
000	-	-	-	0
001	-	-	OK	1
010	-	OK	-	2
011	-	OK	OK	3
100	OK	-	-	4
101	OK	-	OK	5
110	OK	OK	-	6
111	OK	OK	OK	7

組み合わせ	r(Read)	w(Write)	x(eXecute)	10進数
000	-	-	-	0
001	-	-	OK	1
010	-	OK	-	2
011	-	OK	OK	3
100	OK	-	-	4
101	OK	-	OK	5
110	OK	OK	-	6
111	OK	OK	OK	7

(8) CGI[1]

[1]CGIスクリプトでa要素やimg要素を使用する際の""の取り扱い

[2]練習

[3]ファイルのアクセス権について

ファイルのアクセス権

アクセス権の変更方法[1] ビットパターンによる指定

アクセス権の変更方法[2] シンボルを用いて指定

[4]CSSを切り替える

入力フォーム

CGIスクリプト（color.rb)

外部CSSファイルを呼び出す

[5]openメソッドと組み合わせる

入力フォーム（choice.html)

CGIスクリプト（open-cgi.rb)

[6]自分自身にデータを引き渡す

複数ページを1つのプログラムで作る

値を次の次に引き渡す

[7]データを永続させる（PStoreクラス）

PStoreクラス

[8]CGIでのPStoreの利用

専用ディレクトリの作成

実用CGIスクリプトへ

[9]自由課題グループ分け

[10]レポート課題

組み合わせ	r(Read)	w(Write)	x(eXecute)	10進数
000	-	-	-	0
001	-	-	OK	1
010	-	OK	-	2
011	-	OK	OK	3
100	OK	-	-	4
101	OK	-	OK	5
110	OK	OK	-	6
111	OK	OK	OK	7