連想配列にはassocを使う。 gosh> (assoc "b" '(("a" 1) ("b" 2))) ("b" 2) gosh> (assoc "c" '(("a" 1) ("b" 2))) #f gosh> (cadr (or (assoc "b" '(("a" 1) ("b" 2))) '("" ""))) 2 gosh> (cadr (or (assoc "c" '(("a" 1) ("b" 2))) '("" ""))) ""cadrでエ…

inputに値を入れて返すだけのcgi 一応日本語も通る。 #' ,のコンビでヒアドキュメントっぽく扱ってるが"の扱いが面倒だな。 #!/usr/bin/gosh (use www.cgi) (define cgi (cgi-parse-parameters)) (display #`"Content-type: text/html; charset=UTF-8 <h2>form t</h2>…

いろいろと問題があるが取りあえず書いてみた。 #!/usr/bin/gosh (use www.cgi) (define cgi (cgi-parse-parameters)) (define title (cgi-get-parameter "title" cgi :default "Sandbox")) (let ((data (cgi-get-parameter "data" cgi :default ""))) (if (…