日: 2007年1月12日

文字列の中央詰めを length を使わずに短く書けるだろうか？

via 毎日Haskell – 2006-12-28 文字列の左詰、右詰
　cf. desumasuの日記 – Rubyの文字列操作関数をHaskellで定義する

length を使わずに書けたけど，短いとは言い難い。
ljust（左詰）と rjust（右詰）が定義されてるとして

center :: Int -> String -> String
center 0 [] = ""
center n xs = f (ljust n xs) (rjust n xs)
  where
    f l r | l == r = l
          | otherwise = g l (tail r ++ " ")
    g l r | l == r = l
          | otherwise = f " " ++ take (n-1) l) r

id:desumasu さんのと引数の順番が違うのは，この方が Haskell っぽいから（気のせい？）。２行目がないと，空文字列を0文字に中央詰めする場合にエラーになる。

実行例。

*Main> center 8 "abc"
"  abc   "
*Main> center 8 "abcd"
"  abcd  "
*Main> center 3 "abcd"
"abcd"
*Main> center 3 ""
"   "
*Main> center 0 ""
""

HUnit を使ったテスト（id:desumasuさんのコードを改変）。

import Test.HUnit

testCenter = test [
  "test1" ~: " hoge " ~=? center 8 "hoge" ,
  "test2" ~: "hoge" ~=? center 1 "hoge" ,
  "test3" ~: " hoge " ~=? center 7 "hoge" ,
  "empty1" ~: "" ~=? center 0 "" ,
  "empty2" ~: " " ~=? center 2 ""
]
*Main> runTestTT testCenter
Cases: 5  Tried: 5  Errors: 0  Failures: 0

lighttpd (for Windows) に触ってみた（２）

昨日（id:takatoh:20070111:lighttpd） のつづき。

ファイルのリスト（ mod_dirlisting ）

URL がディレクトリを指して，かつインデックスファイルが見つからない場合に，ディレクトリ内容のリストを表示する機能。mod_dirlisting モジュールは server.modules で指定する必要もなくデフォルトで読み込まれるので，機能を有効にするだけでいい。

dir-listing.activate       = "enable"

もし，特定のディレクトリだけリストを表示したいなら次のようにする（これは C:\lighttpd\doc\dirlisting.txt に載っている例）。

$HTTP["url"] =~ "^/download($|/)" {
dir-listing.activate = "enable"
}

エイリアス（ mod_alias ）

mod_alias を読み込んで

"mod_alias",

エイリアスのリストを指定。lighttpd.conf に記述がないので追加する。

alias.url = ( "/cgi-bin/" => "C:/lighttpd/cgi-bin/" )

バーチャルホスト（ mod_simple_vhost ）

バーチャルホスト関連のモジュールには mod_evhost というのもあるけど，ここでは mod_simple_vhost を使う（名前ベース）。まずはモジュールの読み込み。

"mod_simple_vhost",

でもって，次のように設定する。これがデフォルトのバーチャルホストになる。

simple-vhost.server-root   = "C:/lighttpd/servers/"
simple-vhost.default-host  = "vhost1"
simple-vhost.document-root = "/pages/"

simple-vhost.server-root で指定したディレクトリ以下にバーチャルホストと同名のディレクトリを用意する。ほかの場所に作ってもダメなようだ。

で，この例では vhost1 がバーチャルホスト名，C:/lighttpd/servers/vhost1/pages/ がそのドキュメントルートだ。

複数のバーチャルホストをたてるには

$HTTP["host"] == "vhost2" {
server.document-root = "C:/lighttpd/servers/vhost2/pages/"
}

のように $HTTP[“host”] の値で場合分けする。

元々のホスト－－昨日の例でいえば http://localhost:81/ でアクセスしていたホスト－－は無効になるようだ。