NetPenguinの日記

■[Scala] ダウンキャスト 01:43

Scala でプログラミングしていると型パラメータやパターンマッチがあるからか、ダウンキャストが必要になることがあまり無いです。

なのですが、パターンマッチの多用によりインデントが深くなってしまうのが悩ましかったりします。

例えば dispatch.json (sjson で利用している JSON のパーサ等) を利用して、すでに型がわかっているデータ構造をたどっている場合などです。 *1

Js(response) match {
  case JsObject(x) => x.get(JsString("foo")) match {
    case Some(JsString(foo)) => x.get(JsString("bar")) match {
      case Some(JsString(bar)) => Some((foo, bar))
      case _ => None
    }
    case _ => None
  }
  case _ => None
}

読みづらすぎる*2・・・ case _ => None の出現回数が多いのとインデントが深いのとで、なんだかいまいちです。

Scala には for 内包表記という便利なものがあるので、それを使用してなんとかインデントを浅くできないものかと思い、以下のように書いてみました。

for {
  JsObject(x)   <- Some(Js(response))
  JsString(foo) <- x.get(JsString("foo"))
  JsString(bar) <- x.get(JsString("bar"))
} yield (foo, bar)

あぁ、すっきり。

なのですが、JsObject(x) <- ... や JsString(foo) <- ... のようにして受けているため、もし型が違っていた場合は例外がでてしまいます。

なんとかして想定と違う型の場合はそのデータは無視して処理を続行したいです。

というわけで、以下のような型検査＆変換をするメソッドを作ってみました。

implicit def any2Caster[T](value: T): Caster[T] = new Caster[T](value)
class Caster[T](value: T) {
  def as[U<:T:Manifest]: Option[U] =
    if (manifest[U].erasure.isInstance(value)) Some[U](value.asInstanceOf[U])
    else None
}

使用例は以下のような感じになります。

val value: Any = "Hello World" // value は Any 型
val text = value.as[String]    // text は Option[String] 型、値は Some("Hello World")
val integer = value.as[Int]    // integer は Option[Int] 型、値は None

この as[T] と JsObject -> Map、String -> JsString の暗黙の型変換を定義しておくことで、以下のような記述ができます。

for {
  x   <- Js(response).as[JsObject]
  foo <- x.get("foo").flatMap(_.as[JsString])
  bar <- x.get("bar").flatMap(_.as[JsString])
} yield (foo, bar)

あるいは flatMap の記述も排除するならば以下のようにします。。

for {
  x      <- Js(response).as[JsObject]
  foo    <- x.get("foo")
  bar    <- x.get("bar")
  fooStr <- foo.as[JsString]
  barStr <- bar.as[JsString]
} yield (fooStr, barStr)

ちなみに Js* との型変換は以下のような感じで定義しています。

implicit def jsObject2Map(js: JsObject): Map[JsString, JsValue] = js.self
implicit def jsString2String(js: JsString): String = js.self
implicit def string2JsString(value: String): JsString = JsString(value)

def as[T]:Option[T] は Scala に標準で用意されていても良さそうな気もするのですが、私が知らないだけなのかも・・・？

ツイートする

■[ごみ][サーバ] PuTTY + screen で日本語入力ができない 19:09

perl の開発環境用として自鯖に仮想マシンを追加したのですが、なんだか日本語入力ができない！という現象にでくわしました。

原因は .screenrc に term xterm のように端末の種類名？を指定していなかったからっぽいです。

またはまらないようにメモ・・・と。

ちなみに日本語入力は Windows 上の IME を使用しています。

ツイートする

■[Scala][Perl] リスト操作対応表 23:27

おもいつきでだらだら書いたので、足りていない可能性の方が高いです。

ちなみに Perl には Scala の List 見たいなものや、Stream みたいなものは標準では用意されていないため、通常は配列を使います。

@ で始まる変数が配列です。でも配列への参照も良く使うので、$で始まってても参照先が配列というのはよくあること。

とりあえずいま思いつくところだとこんな感じです。

Perl では配列内に配列をいれても展開されるので、flatten と同じ効果が欲しい場合はそのまま配列を、二次元配列にしたい場合は配列への参照を格納する必要があります。

なので、flatMap 相当の処理は map のブロックが返す値を配列にすれば実現できます。

また、zip 相当の処理は pairwise で配列への参照を返すようにしています。[$a, $b] の部分が $a と $b を要素にもつ配列への参照を表します。

ついこないだまで C# の LINQ を使っていたので、遅延リストが無いのは結構つらいです orz

ツイートする

■[ごみ][サーバ] NFS クライアント設定 19:23

NFS サーバは FreeNAS でさくっと用意できているので問題なし。

FreeNAS で公開しているディレクトリを、CentOS5.5 のサーバ上でマウントした手順。

1. nfs 等のデーモンを停止してあったので、再開する
   1. chkconfig portmap on
   2. chkconfig nfslock on
   3. chkconfig nfs on
2. マウントポイントとなるディレクトリを用意する
   1. mkdir /mnt/repositories@chinstrap
3. マウントしてみる
   1. mount -t nfs chinstrap:/mnt/tank/repositories /mnt/repositories\@chinstrap
4. fstab に以下を追記して起動時にマウントされるようにする
   1. chinstrap:/mnt/tank/repositories /mnt/repositories@chinstrap nfs defaults 0 0
   2. mount -a で fstab の記述内容を試せる
5. 再起動して確認
   1. reboot
   2. マウントされていなかったorz
6. netfs が動いていないのが原因
   1. nfs, cifs, smbfs のファイルシステムは netfs 起動時にマウントされる
   2. ローカルディスクのマウント → ネットワークインタフェースの起動 → ネットワークファイルシステムのマウント
7. chkconfig netfs on
8. 再起動して確認
   1. マウントされた!!

その他

cifs をマウントするときにホスト名を使用すると失敗する。(CIFS VFS: cifs_mount failed w/return code = -22)

ipアドレスを直接記述すると成功するため、net-bios 名の解決ができないからか？

ツイートする

■[ごみ][サーバ] リバースプロキシ設定 00:49

私の環境では外部向けに公開している Apache の入っているホストとは別のホスト上に、SVN のリポジトリを作成しました。

このままでは外部から SVN リポジトリにアクセスできないため、リバースプロキシを設定して https://svn.〜/ のときに SVN リポジトリの入っているホストにリクエストを転送するようにしました。

SVN リポジトリの入っているホストでは、WebDAV プロトコルを使用した SVN との連携を設定済みです。

snares:/etc/httpd/conf.d/vhosts/vhosts.conf

<Location />
  DAV svn
  SVNPath /mnt/repositories@chinstrap/svn

  #<LimitExcept GET PROPFIND OPTIONS REPORT>
    SSLRequireSSL
    AuthType Basic
    AuthName "Authorization Realm"
    AuthUserFile /mnt/repositories@chinstrap/svn/conf/htpasswd
    Require valid-user
  #</LimitExcept>
</Location>

Basic 認証をつかっているため、SSL 以外ではコミットなどの作業をできないように設定しています。

このため、リバースプロキシの設定もアクセスされたのが http の場合は http に、https の場合は https に転送するようにしています。

http://d.hatena.ne.jp/NetPenguin/20081127#p1 にあるように、ファイルを分割して仮想ホスト+SSLの設定をしていますのでリライトの設定についても SSL の有無に関係なく一か所で済むようにします。編集対象としているファイルの詳細については、http://d.hatena.ne.jp/NetPenguin/20081127#p1 のエントリを参照してください。

rockhopper:/etc/httpd/conf.d/vhosts/vhosts.conf

外部からの SVN リポジトリへのアクセスを受け付ける仮想ホストを用意します。

<VirtualHost *:80>
  Include conf.d/vhosts/svn.netpenguin.org.part

  ErrorLog logs/svn.netpenguin.org.error_log
  CustomLog logs/svn.netpenguin.org.access_log  combined
</VirtualHost>
<VirtualHost *:443>
  Include conf.d/vhosts/ssl.part
  Include conf.d/vhosts/svn.netpenguin.org.part

  ErrorLog logs/svn.netpenguin.org.error_log
  CustomLog logs/svn.netpenguin.org.access_log combined
  CustomLog logs/svn.netpenguin.org.ssl_request_log ssl_request

rockhopper:/etc/httpd/conf.d/vhosts/svn.netpenguin.org.part

外部からの SVN アクセスを、実際に SVN リポジトリを公開しているサーバに転送します。

外部向けに登録している SVN サーバのホスト名も、内部のホスト名も svn.netpenguin.org なので紛らわしいですが、RewriteRule に記述している https://svn.netpenguin.org/ は内部向けに用意している DNS によって解決され、そのアドレスはプライベート IP (SVN リポジトリを公開しているホストの IP アドレス)になります。

ServerName svn.netpenguin.org

SSLProxyEngine On
RewriteEngine On
ProxyRequests Off

RewriteCond %{HTTPS} on [NC]
RewriteRule ^/(.*) https://svn.netpenguin.org/$1 [P]

RewriteCond %{HTTPS} off [NC]
RewriteRule ^/(.*) http://svn.netpenguin.org/$1 [P]

この設定では、HTTPS によるアクセスを扱うために SSLProxyEngine On を指定し、また http でのアクセスは http のまま、https でのアクセスは https として転送するために、RewriteCond %{HTTPS} on (あるいはoff)の指定によって適用するリライトルールを分けています。

実際に外部(e-mobile経由)から試してみましたが、問題なく SVN リポジトリにアクセスできました。

ちなみに、単純にリバースプロキシを構築するだけであれば、RewriteRule ではなく ProxyPass の設定だけで十分かと思います。

あと、本来であれば ProxyPassReverse も設定した方が良いのですが、SVN リポジトリへのアクセスでリダイレクト等は発生しないだろうと思い未設定です。これを設定する場合、同じ記述での http/https 両対応が難しそうなので http アクセスの場合は https にリダイレクトさせてしまい、それから ProxyPass によって https://〜 に転送、ProxyPassReverse も https://〜 で設定という流れにするかと思います。(ためしてないけど)

一つのグローバルIPで自鯖を立てている環境では、仮想ホストとリバースプロキシは必須だなぁと実感してたりします。あと、無料の DynamicDNS サービスも。

ツイートする

■[ごみ][サーバ] 仮想マシン増殖 22:44

私にとっての最小構成のサーバを作ったので、これをコピーして増殖させます。

あと、後々用にスナップショット*1をとっておきます。

1. 仮想マシンをシャットダウン
2. 一応、イベントリから削除する
3. ストレージプールをホストしている FreeNAS にシェルログイン
4. 目当てのディレクトリをコピー
   • ファイル名はそのままでも問題無い
   • ファイル名を変更する場合は、vmx と vmxf ファイル内の参照箇所も修正する
   • スワップファイル名は修正しなくて大丈夫だった(初回起動時に適切なものに書き換わった)
5. コピーしたvmxファイルをデータストアブラウザで選択し、イベントリに追加する
6. インスタンス名を聞かれるので適切なものに修正する
7. コピーしたインスタンスを起動する
8. 初回起動時にコピーされたものかどうか聞かれるので、「I copy it.」を選択
   • MAC アドレスとかを変更してくれるっぽい
9. system-config-network を起動し、ホスト名を修正する
10. tripwire のキーファイル名はホスト名から付けているので、ファイル名を変更または新たなキーファイルを作成する
    • キーファイルを再作成した場合、cfg ファイルもつくり直す必要があるはず
    • tw.pol 内にホスト名が書かれていて、キーファイル名と紐づくため tw.pol は生成しなおす
      • twadmin -m p -p tw.pol > twpol.txt
      • twpol.txt 内の HOSTNAME を修正
      • twadmin -m P -c tw.cfg -p tw.pol twpol.txt
11. tripwire --init しておく

ツイートする