簡易データベース処理

DBM.open(dbmファイル) do |変数|
  ...
end

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require 'dbm'                   # dbmクラスを利用
datafile = "./database"         # データベース名

# CSVデータを読んでハッシュに入れておく
data = Hash.new
while csv=gets
  # 第1フィールドをキー，残りをごっそり文字列として値にする
  if /([^,]*),(.*)/ =~ csv
    data[$1] = $2
  end
end

# ndbm形式のデータベースを開く
DBM.open(datafile) do |x|
  # 開いた時点で既にデータがあれば x に入った状態でスタートする
  for key, val in data          # data の key, val ペアを取り出して繰り返す
    x[key] = val
  end
end

./dbm-add.rb yama-city.csv
ls -l data*
-rw-r--r--  1 yuuji  wheel  16384 Apr 27 11:35 database.db
strings database.* | less
(中を確認して q で終了)
./dbm-add.rb yama-town.csv
ls -l data*
strings database.db | less
./dbm-add.rb yama-vil.csv

●Solarisの場合
makedbm -u database
●NetBSDの場合
makedbm -u database
●FreeBSDの場合
yp_mkdb -u database.db

#!/usr/bin/env ruby
require 'dbm'
DBM.open(ARGV[0]){|d| d.each{|i| printf("%s %s\n", *i)}}

./dumpdbm.rb database

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require 'dbm'                   # dbmクラスを利用
datafile = "./database"         # データベースファイル名

# ndbm形式のデータベースを開いて順次レコードを出力
DBM.open(datafile, 0666, DBM::READER) do |x|
  # DBM.open(datafile) だけで開いてもよいが，
  # 読み込みだけのときは第3引数を DBM::READER とする
  for key, val in x             # x の key, val ペアを取り出して繰り返す
    printf("%s -> %s\n", key, val)
  end
end

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require 'dbm'                   # dbmクラスを利用
datafile = "./database"         # データベースファイル名

if ARGV[0] == nil then
  STDERR.puts "#{$0} -a [Data.csv]      Add record"
  STDERR.puts "#{$0} -d                 Dump database"
  STDERR.puts "#{$0} -s                 Search on database"
  exit 1
end

case ARGV.shift
when "-a"                       # データの追加登録
  # CSVデータを読んでハッシュに入れておく
  DBM.open(datafile) do |x|
    # DBM.openしてからデータ入力を行なう処理は好ましくない(後述)
    while csv=gets
      # 第1フィールドをキー，残りをごっそり文字列として値にする
      if /([^,]*),(.*)/ =~ csv
        x[$1] = $2
      end
    end
  end
when "-d"                       # 一覧出力
  DBM.open(datafile, 0666, DBM::READER) do |x|
    for key, val in x
      printf("%s -> %s\n", key, val)
    end
  end
when "-s"                       # 検索
  STDERR.print "検索キー: "
  kwd = STDIN.gets.chomp!       # STDIN無しだと -s というファイルから読む
  reg = Regexp.new(kwd, nil, "n")	# "n" 文字コード変換なしで検索
  DBM.open(datafile, 0666, DBM::READER) do |x|
    require 'kconv'
    for k, v in x
      if reg =~ k then          # マッチしたレコードのみ出力
        printf("%s -> %s\n", k, v)
      end
    end
  end
end

db.delete(key)

require "pstore"
db変数 = PStore.new(保存ファイル)
db変数.transaction do
  # db変数を利用した処理
end

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require 'pstore'
datafile = "ps-data"		# データを保存するファイル名
# 初期値のハッシュをPStoreファイルに保存
# このプログラムを3回実行したのち ps-list.rb を実行する

db = PStore.new(datafile)
db.transaction do
  m = db["山のデータ"] = db.fetch("山のデータ", Hash.new)
  # これでmが保存可能なハッシュになる
  m["富士山"]	= 3776
  m["月山"]	= 1984
  m["鳥海山"]	= 2236

  e = db["偶数"] = db.fetch("偶数", Array.new)
  # これで e が保存可能な配列になる
  e << 2
  e << 4
  e << 6	# 2，4，6を順次配列に追加する
end

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require 'pstore'
datafile = "ps-data"

# datafileに登録されているものを取り出す。
db = PStore.new(datafile)
db.transaction do
  m = db["山のデータ"] = db.fetch("山のデータ", Hash.new)
  e = db["偶数"] = db.fetch("偶数", Array.new)
  # 既存データがある場合でも同じ代入方法でよい
  puts("山のデータのハッシュ")  # mを順次出力
  for k, v in m
    printf("%s\t-> %4d\n", k, v)
  end
  puts("偶数の配列")            # mを順次出力
  puts e.join(", ")
end

./ps-list.rb
山のデータのハッシュ
月山    -> 1984
富士山  -> 3776
鳥海山  -> 2236
偶数の配列
2, 4, 6, 2, 4, 6, 2, 4, 6

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require './kprintf.rb'
require 'pstore'
datafile = 'pricedb'

def showall(hash)
  for k, v in hash
    printf("%-20s%4d円\n", k, v)
  end
end

db = PStore.new(datafile)
db.transaction do
  price = db["price-list"] = db.fetch("price-list", Hash.new)
  while true
    STDERR.print "商品=単価  の形式で入れてください(C-dで終了): "
    break if (line=gets) == nil
    redo if /([^=]*)=([\d ]*)/ !~ line # マッチしなかったら redo
    price[$1] = $2.to_i
  end
  puts "\n全商品リストです"
  showall(price)
end

require "yaml/store"
db変数 = YAML::Store.new(保存ファイル)
db変数.transaction do
  # db変数を利用した処理
end

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require 'yaml/store'
datafile = "data.yaml"		# データを保存するファイル名
# ハッシュをYAML形式ファイルに保存

db = YAML::Store.new(datafile)
db.transaction do
  m = db["山のデータ"] = db.fetch("山のデータ", Hash.new)
  # これでmが保存可能なハッシュになる
  m["富士山"]	= 3776
  m["月山"]	= 1984
  m["鳥海山"]	= 2236

  e = db["偶数"] = db.fetch("偶数", Array.new)
  # これで e が保存可能な配列になる
  e << 2
  e << 4
  e << 6	# 2、4、6を順次配列に追加する
end

./yaml-add.rb
(ここでYAMLデータファイルを確認)
cat price.yaml
---
"山のデータ":
  "富士山": 3776
  "月山": 1984
  "鳥海山": 2236
"偶数":
- 2
- 4
- 6

{キー1: 値1, キー2: 値2}
[要素1, 要素2, 要素3]