gauche関係

文字列の部分切り出し（substring）

【書式】
(substring 対象文字列 開始位置 終了位置)
      

【例】
gosh> (substring "abcde12345" 4 8)
"e123"
      

文字列の結合

文字列を単につなげるにはstring-appendが使える。リストを構成する各値をつなげた文字列を作るにはstring-joinが使える。後者は、つなぐ各要素を間に挿入する文字列を指定できる。

【書式】
(string-append 文字列1 文字列2...)

【例】
gosh> (string-append "aaa" "bbb" "ccc")
"aaabbbccc"

【書式】
(string-join 文字列リスト 糊となる文字)

【例】
gosh> (string-join '("one" "two" "three") "-")
"one-two-three"

文字列検索（string-scan）

【書式】
(string-scan 検索対象 検索値 戻り値)
      

文字列パターン検索

rxmatchは文字列が正規表現パターンに一致するかどうかを調べる。

【書式】
(rxmatch 検索パターン 検索対象)
(検索パターン 検索対象)

【返り値】
パターンに一致→<regmatch≥オブジェクト
パターンに一致市内→#f
      

【例】
gosh> (rxmatch #/[1-3]{3}/ "123456")
#<<regmatch> 0x990a450>
以下の書式でも可
gosh> (#/[1-3]{3}/ "123456")

gosh> (rxmatch #/[1-3]{3}/ "456789")
#f
      

検索パターンの記述方法については正規表現も参照のこと。

rxmatchで得られたrxmatchオブジェクトから一致した部分を取り出すにはrxmatch-substringを用いる。サブマッチ番号を指定しなければパターン全体に一致した部分を、サブマッチ番号を指定すればサブパターンに一致した部分を返す。

またrxmatch->stringでもパターン全体に一致した部分を得ることができる。

【書式と返り値】
(rxmatch-substring rxmatchオブジェクト 検索対象 サブマッチ番号)
第1引数が正常なrxmatchオブジェクト→パターンに一致した（部分）文字列
not→#f

(rxmatch->string 検査パターン 検索対象)
パターンに一致→パターンに一致した（部分）文字列
not→#f
      

【例】
gosh> (rxmatch-substring (#/(www)(\..+)(\.jp)/ "www.hoge.jp"))
"www.hoge.jp"
以下のように書いても同じ
gosh> (rxmatch->string #/(www)(\..+)(\.jp)/ "www.hoge.jp")
"www.hoge.jp"

gosh> (rxmatch-substring (#/(www)(\..+)(\.jp)/ "www.hoge.jp") 1)
"www"
gosh> (rxmatch-substring (#/(www)(\..+)(\.jp)/ "www.hoge.jp") 2)
".hoge"
gosh> (rxmatch-substring (#/(www)(\..+)(\.jp)/ "www.hoge.jp") 3)
".jp"
      

文字列置換（string-replace、SRFI-13関数）

【書式】
(string-replace 文字列1 文字列2 文字列1開始位置 文字列1終了位置 文字列2開始位置 文字列2終了位置)

文字列1の文字列1開始位置番目（最初が０番目）〜文字列1終了位置ー１番目の間を、文字列2の文字列2開始位置番目〜文字列2終了位置−１番目の文字と置換する。
第６引数（文字列2終了位置）を省略すれば、文字列2の文字列2開始位置番目〜最後までが、第５、６引数とも省略すれば文字列2全部と置換される。

【例１】"abcde"の2番目(c)〜3番目(d)を"12345"と置換
gosh> (string-replace "abcde" "12345" 2 4)
"ab12345e"

【例２】"abcde"の2番目(c)〜3番目(d)を"12345"の3番目(4)以降と置換
gosh> (string-replace "abcde" "12345" 2 4 3)
"ab45e"

【例３】"abcde"の2番目(c)〜4番目(d)を"12345"の1番目(2)〜2番目(3)と置換
gosh> (string-replace "abcde" "12345" 2 4 1 3)
"ab23e"
      

参考文献・サイト：

• Gauche ユーザリファレンス: 10.8.12 srfi-13 - 文字列ライブラリ - 他の文字列操作

文字列パターン置換（regexp-replace）

【書式】最初にマッチした部分だけを置換
(regexp-replace 検索パターン 検索対象 置換パターン)
【書式】マッチしたもの全てを置換
(regexp-replace-all 検索パターン 検索対象 置換パターン)
      

【例】数字３文字の前後に"xx"をつける
gosh> (regexp-replace #/([0-9]{3})/ "abc012def34gh" "xx\\1xx")
"abcxx012xxdef34gh"
※\\1 は検索パターンの中の1つ目のグループ（括弧で囲まれたパターン）を参照

【例】
行頭（改行の直後）に"author","著者","筆者"のいずれか、続いて全角か半角のコロン
→"著者：" に揃える
(regexp-replace #/\n(author|著者|筆者)[:：]/ val "\n著者：")
      

正規表現も参照のこと。

文字列小文字化（string-downcase、SRFI-13関数）

【書式】
(string-downcase 置換対象文字列 開始位置 終了位置)
      

【例】
gosh> (use srfi-13) ←最初にsrfi-13モジュールのロードを宣言
#<undef>
gosh> (string-downcase "ABcdEFGh")
"abcdefgh"
第１引数だけを指定した場合、全部が小文字となって返る。
gosh> (string-downcase "ABcdEFGh" 2)
"cdefgh"
第１、２引数だけを指定した場合、第２引数番目（２＝３文字目）以降が小文字となって返る。
gosh> (string-downcase "ABcdEFGh" 2 6)
"cdef"
引数を３つ指定した場合、第２引数番目（２＝３文字目）から第３引数番目ー１（５＝４文字目）までが小文字となって返る。
      

参考文献・サイト：

• Gauche ユーザリファレンス: 10.8 srfi-13 - 文字列ライブラリ

if

【書式】
(if 条件式
    真の場合
    偽の場合)

まず条件式を評価し、#tが返れば真の場合を、そうでなければ偽の場合を評価しその結果を返す。

【例】
gosh> (if (number? 3) 'yes 'no)
yes
gosh> (if (number? #f) 'yes 'no)
no

参考文献・サイト

• Gauche ユーザリファレンス: 4.5 条件式

cond

【書式1】
(cond (条件式1 評価式1-1 評価式1-2)
      ...
      (else 評価式n-1 評価式n-2))

最初の節から順に条件式を評価し、返り値が#tでなければ次の条件式の評価に移る。返り値が#tであればその節の評価式を順に評価し、最後の評価式の返り値が返り値となる。

【例】
gosh> (cond ((> 3 2) 'greater)
> ((< 3 2) 'less)
> (else 'equal))
greater

参考文献・サイト

• Gauche ユーザリファレンス: 4.5 条件式

case

and

and は引数に指定された評価式を順に評価していき、偽（#f）の返り値を得た時点で偽（#f）を返して処理を終了する（残りの式は評価されない）。全ての式が真（#t）を返した場合は最後の式の返り値を返す。式の指定がない場合は無条件に#tを返す。

【書式】
(and 評価式...)

【例】
gosh> (and (= 2 2) (> 2 1))
#t ※評価式の評価結果は2つとも#t
gosh> (and (= 2 2) (< 2 1))
#f ※2つ目の評価結果が#fなのでそれを返して評価終了
gosh> (and (= 2 2) (< 2 1) (> 2 1))
#f ※#fと評価された2つ目で評価終了（3つ目は評価されない）
gosh> (and 1 2 'c '(f g))
(f g) ※全て#fではない値なので#tと評価され、最後の式の評価結果が返る
gosh> (and)
#t ※引数なしは常に#t

定義（define）

defineを使って手続き（関数）や変数を定義することができる。

【書式１】変数定義
(define 変数名 評価式)

【例１】
gosh> (define x (+ 3 1))
x
gosh> (print x)
4
#<undef>

【書式２】関数定義
(define (リスト) 評価式)
リストのcar（第1要素）は関数名、リストのcdr（第2要素以降）は引数リスト。
ドットリストの場合、引数の数は可変（記述した要素数-1以上）。

【例２】
gosh> (define y (lambda (a) (* a 2)))
      (define (y a) (* a 2)) としても同じ
y
gosh> (y 8)
16
gosh> (define (func a b . c) (print "a=" a _", b=
" b ", c=" c))
func
gosh> (func 1 2)
a=1, b=2, c=()
#<undef>
gosh> (func 1 2 3)
a=1, b=2, c=(3)
#<undef>
gosh> (func 1 2 3 4)
a=1, b=2, c=(3 4)
#<undef>

参考文献・サイト

• Gauche ユーザリファレンス: 4.10 定義
• kahuaプロジェクト『プログラミングGauche』オーラリー・ジャパン(2008),ISBN:978-4-87311-348-7
• let - Gauche ユーザリファレンス: 4.6 変数束縛

サーバにhttpリクエストを送って応答を得る（http-get）

【書式】
(http-get サーバ:サーバ側ポート番号 リクエストURI キーワード引数)
【必要モジュール】
rfc.http
【返り値】
httpサーバの応答内容。

サーバ

リクエスト送信先サーバを指定する。:サーバ側ポート番号 を追記することでアクセス先ポート番号を指定することができる。指定が無い場合の既定値は80。

リクエストURI

文字列で指定した場合はその文字列がリクエストURI（通常はHTTP URLのパス部分）であると解釈されて処理される。文字列はそのままサーバに渡されるため、必要な文字コード変換やurlエンコーディングを呼び出し側であらかじめ行っておく必要がある。

文字列がリストの場合、下記形式で指定する必要がある。

(パス (キー 値) ...)

パス

リクエストURIのパスコンポーネント（CGIのファイル名など）までを指定する文字列

(キー 値)

GETリクエストのキーおよびそのキーに対応する値の2値を要素とするリストを1つ以上指定する。リストは何組指定してもよい。ここで指定した内容は自動的にurlエンコーディングが行われた上で、パスに追記される。

例えば下記2つのリクエストは同じ効果を持つ。

(http-get "example.com" "/search?q=foo%20bar&n=20")

(http-get "example.com" '("/search" (q "foo bar") (n 20)))

返り値

下記3つの内容が改行区切りで返る。

httpステータスコード

RFC2616で定義されているステータスコード。成功なら200、Not foundなら404など。

httpヘッダ

(ヘッダ名 値) の2値を要素とするリスト、を要素とするリスト。ヘッダ名は「content-type」など。値はそのヘッダ名に対応する値（例：「text/html; charset=iso-8859-1」）。

httpメッセージ本体

空の場合は #f。

キーワード引数

:キー 値 の形で指定する。httpヘッダフィールドに指定できる値（accept-language、user-agentなど）の場合、指定した内容がリクエストに追加される。その他下記指定が可能。下記項目については、http-get実行時に解釈されてリクエストヘッダには追加されない。

request-encoding

proxy

no-redirect

secure

sink, flusher

【例】
gosh> (use rfc.http)
#<undef>
gosh> (http-get "localhost" "/index.html")
"200"
(("date" "Mon, 30 Jan 2012 04:41:42 GMT") ("server" "Apache/2.2.21 (Unix) DAV/2") ("last-modified" "Mon, 30 Jan 2012 04:19:47 GMT") ("etag" "\"c6076d-2c-4b7b728211ec0\"") ("accept-ranges" "bytes") ("content-length" "44") ("content-type" "text/html"))
"<html><body><h1>It works!</h1></body></html>"
gosh> 

環境変数の値を取得（sys-getenv）

【書式→返り値】
(sys-getenv 環境変数名)
→環境変数名の値

環境変数の値を設定（sys-putenv）

【書式】
(sys-putenv 環境変数名 値)

ファイルシステム関係

gosh> (sys-basename "/foo/bar/hoge.txt")
"hoge.txt"
gosh> (sys-basename "/foo/bar/")
"bar"

gosh> (sys-basename "/foo/bar/hoge.txt")
"/foo/bar"
gosh> (sys-basename "/foo/bar/")
"/foo"

導入方法

モジュールをロードするには以下の１行をスクリプト中に記述する。

(use www.cgi)

環境変数の上書き（cgi-metavariables）

cgi-metavariablesは、ユーザエージェント情報、GET引数などの環境変数を書き換える。

【書式】
(cgi-metavariables '(("キー1" "値1") ...))

【例】REQUEST_METHODと QUERY_STRINGのメタ変数をmy-cgi-procedureの実行中に上書きする
(parameterize ((cgi-metavariables '(("REQUEST_METHOD" "GET")
                                    ("QUERY_STRING" "x=foo"))))
  (my-cgi-procedure))

環境変数値の取得（cgi-get-metavariable）

cgi-get-metavariableは、まずcgi-metavariablesを探し、なければsys-getenvを呼び出して指定したキーに対応する環境変数の値を返す。

【書式】
(cgi-get-metavariable "キー")

【例】USER_AGENTキーに対応する値を返す
(cgi-get-metavariable "USER_AGENT")

CGIパラメータの取得（cgi-parse-parameters）

cgi-parse-parameters 関数はGETやPOST、そしてcookieで送られてきた値を連想配列に変換して返す。キーだけがあって値が設定されていない場合は、値として #t が設定される。

【書式】
(cgi-parse-parameters :query-string "クエリ文字列"
                      :merge-cookies #t | #f
                      :part-handlers 
)
【返り値】パラメータの連想リスト

query-string

指定すると、実際送られてきたパラメータではなく、ここで指定したクエリ文字列を連想配列に変換したリストが返る。値の指定はGET引数指定を行う場合と同じ（キー=値&...）。

merge-cookies

指定すると、変数HTTP_COOKIEからcookieの値が読み込まれ、連想配列に変換して結果に追加される。

part-handlers

【例】
(cgi-parse-parameters 
  :query-string "foo=123&bar=%22%3f%3f%22&bar=zz&buzz")
↓
(("foo" "123") ("bar "\"??\"" "zz") ("buzz" #t))

参考文献・サイト

1. www.cgi - CGIユーティリティ

準備

データベースを使うには、必要なモジュールをロードする必要がある。

【書式】
(use dbm) ;dbmの抽象インターフェースモジュールを読み込む
(use dbm.gdbm) ;gdbmの具体インターフェースモジュールを読み込む
      

データベースシステム名にはfsdbm, gdbm, ndbm, odbm, qdbmなどを指定。qdbmについてはこちら参照。 なお、具体モジュールでは抽象モジュールを拡張して作られているため、具体モジュールをロードする時は改めて抽象モジュールをロードする必要はない。

【例】qdbmを使う
(use dbm.qdbm)
      

データベースの開閉

データベースを開くにはdbm-openメソッドを用いる。成功すれば<dbm>クラス型のインスタンスを、失敗すればエラーを返す。

【書式】
(dbm-open データベース具体クラス :path データベースファイル名 :rw-mode :モード)
      

データベースシステム名

fsdbm, gdbm, ndbm, odbm, qdbmなど、あらかじめ前項の準備でロードしたもの。

データベースファイル名

データベースのデータを格納している（する）ファイルの名前。パス指定なし、または相対パスでファイル名を指定した場合、パスの起点は実行するGaucheスクリプトがあるディレクトリ。対話モードの場合はカレントディレクトリ。

読み書きモード

モード	読み	書き	ファイル既存	ファイル未存
read	○	×	○	エラー
write	○	○	○	新規作成
create	○	○	上書き新規作成	新規作成

:path の後にはデータファイル名を、:rw-mode :の後には読み書きモードを"read"（読み出し専用、なければエラー）,"write"（読み書き可能、なければ新規作成）,"create"（読み書き可能、常に新規作成）のうちから１つを選んで指定する。

【例】
gosh> (dbm-open <gdbm>
                :path "test.db"
                :rw-mode :create)
#<<qdbm> 0x9d99480>
      

なお、インスタンスに名前をつけておかないと扱いにくい（というかどういう名前で呼び出すのか分からない）ので、実際には以下の例のように名前を付けておく（グローバル変数として定義しておく、グローバル変数名の前後にアスタリスクを付けるのはScheme/Lispの慣習で必須事項ではない）。

gosh> (define *db*
       (dbm-open <gdbm>
                 :path "test.db"
                 :rw-mode :create))
*db*
      

データベースを閉じるにはdbm-closeメソッドを用いる。成功すれば#tが、失敗すればエラーが返る。データベースを閉じるとその後のアクセス操作はエラーとなる。

gosh> (dbm-close *db*)
#t
      

データベースが閉じているかどうかを調べるにはdbm-closed?メソッドを用いる。データベースが閉じていると#tを返す。

gosh> (dbm-closed? *db*)
#t
      

アクセス

値をデータベースに保存するにはdbm-put!メソッドを、値をデータベースから取り出すにはdbm-get使う。

【書式】
(dbm-put! データベースインスタンス名 キー 値)
(dbm-get データベースインスタンス名 キー 既定値)
      

dbm-getで、キーが見つからなかった場合、既定値が設定されていればその既定値を、設定されていなければエラーを返す。

【例】
gosh> (define *db*
       (dbm-open <gdbm>
                 :path "test.db"
                 :rw-mode :create))
*db*
gosh> (dbm-put! *db* "hoge" "foofoo")
#<undef>
gosh> (dbm-get *db* "hoge")
"foofoo"
      

キーが存在するかを調べるにはdbm-exists?メソッドを使う。存在すれば#tを、存在しなければ#fを返す。

【書式】
(dbm-exists? データベースインスタンス名 キー)

【例】
gosh> (dbm-exists? *db* "hoge")
#t
gosh> (dbm-exists? *db* "huga")
#f
      

キーとキーに対応する値の組をデータベースから削除するにはdbm-delete!メソッドを使う。

【書式】
(dbm-delete! データベースインスタンス名 キー)
      

キーが見つからなかった場合はエラーになる。

【例】
gosh> (dbm-exists? *db* "hoge")
#<undef>
gosh> (dbm-exists? *db* "huga")
*** ERROR: dbm-delete!: deleteting key "huga" from #<<qdbm> 0x8433730> failed
Stack Trace:
_______________________________________
      

アクセスの繰り返し

データベースのキーと値の組それぞれに対して処理を行い戻り値は必要ない場合にはdbm-for-eachメソッドを、 各キーと値に対する戻り値をリストで受け取る場合はdbm-map。 dbm-foldでは初期値に処理を適用していった最終戻り値が返る。

【書式】
(dbm-for-each データベースインスタンス名 手続き)
      

手続きにはキーと値が渡されるので、手続きは２つの引数を受け付けるものである必要がある。手続きの返り値は捨てられる。

【例１】値を２倍にする
(use dbm.gdbm)
(define *db*
  (dbm-open <gdbm>
            :path "test.db"
            :rw-mode :create))
(dbm-put! *db* "hoge" "1")
(dbm-put! *db* "huga" "2")
(define double
  (lambda (key val)
    (let
      ((oldval (string->(dbm-get *db* key))))
        (dbm-put! *db* key
                      (number->string (* oldval 2))))))
(dbm-for-each *db* double)

【例２】データベースを開き、キーとそれ対応する値を全て取得して表示
(use dbm)
(use dbm.qdbm)

(define *db* (dbm-open <qdbm> :path "data.dbm" :rw-mode :read))
(dbm-for-each *db*
              (lambda (key val) (print key val)))
(dbm-close *db*)
※ちなみにprint文は返り値がない（#<undef>）のでそもそも捨てるものはない。

【例３】"data.dbm"に格納されたqdbmデータベースを全て読み込み、小文字に変換して保存
(use dbm)
(use dbm.qdbm)
(use srfi-13) ← string-downcase を使うのに必要

(define *db* (dbm-open <qdbm> :path "data.dbm" :rw-mode :write))
(dbm-for-each *db* 
  (lambda (key val)
    (dbm-put! *db* key (string-downcase val))))
(dbm-close *db*)
      

dbm-foldでは３つの引数をとる手続きを指定する。

【書式】
(dbm-fold データベースハンドル 手続き 初期値)
      

【例】データベース中の全整数を加算
(use dbm)
(use dbm.qdbm)

(define *db* (dbm-open <qdbm> :path "data.dbm" :rw-mode :read))
(dbm-fold *db*
          (lambda (key val r)
                  (if (integer? val)
                      (+ val r)
                      r))
          0)
(dbm-close *db*)
      

参考文献・サイト

• Gauche ユーザリファレンス: 11.5 dbm - 汎用DBMインタフェース
• kahuaプロジェクト『プログラミングGauche』オーラリー・ジャパン(2008),pp186-,ISBN:978-4-87311-348-7