nDiki : シェル

• GNU Bash
• Z shell
• コマンド プロンプト
• Windows PowerShell
  • http://www.microsoft.com/.../msh.mspx

インストール Windows CRYSTAL COAT BOBLBE-E Perl モジュール Perl BOBLBE-E SAM Gregory SSH Linux 製品レポート BOBLBE-E ANIARA NEW MEGALOPOLIS Unison ボブルビー インストーラ 開発 ファイル名 Makefile.PL CPAN ソースパッケージ ActivePerl Ant メモ ホームエレクター デジカメ nmake PPM パッケージ DSC-U40 FinePix F10

■ ガラス繊維系フッ素・ケイ素ポリマーコート剤 - Micro Solution Glass fiber CRYSTAL COAT #1

以前「ケータイWatch 本日の一品」で紹介されていた、マイクロソリューションのクリスタルコートを思い出した。

• なんでもコートして保護しよう 「Glass fiber CRYSTAL COAT #01」

先日買ったBOBLBE-E SAMに傷がつく前にコーティングをしておこうと思い、昼休みに秋葉原に買いに。 マイクロソリューションのページにある取扱店リストを見ると、マックコーナーに置いてあるところが多い。 秋葉原駅に近い秋葉館へ。

3,990円(税込)也。

箱は思ったより小さい。構成は

• CRYSTAL Coat/G-Liquid 80cc x 1
• 塗り延ばし高密度パフスポンジ x 1
• 拭き取り用・多目的不織布 x 1

となっている。不織布とあるが、タオル地の織りのようだ。

@ コーティングしてみる

さっそく SAM に塗ってみる。 近くから見てみるとすでに小さい擦り傷がついている。 まずは軽く水拭き。

それからハーネスなどにつかないように、ABS樹脂製のシェルの部分にスポンジで塗り不織布でのばしていく。 もともと艶のあるコーディングがされているので劇的にかわった感じはしないが、それでも綺麗になった感じがする。

ついでにデジカメ (DSC-U40) にも塗布してみる。 こちらは黒いボディが締まった感じ。 これが説明にある深い艶なのか。 スポンジに数プッシュしてから塗ったら、多すぎでデロデロ。さっさと拭き取り。 たしかに少量で充分のようだ。

コーディング皮膜が完全に効果するのは48時間後とのこと。 どれぐらいから実質使って問題ないぐらいになるのだろうか。 丸2日必要だとすると、PHSとかには塗るのはなかなかタイミングが難しい。

• CRYSTAL COAT #01
• キットカット

• BOBLBE-E ANIARA に何が入るのか? (2005-05-22)
• SO905iCS ファーストインプレッション (2008-02-16)
• GRAPH GEAR セミハードタイプ デジタルカメラケース DGB-01... (2005-02-07)
• トイデジカメ VQ1005 来た (2008-03-08)
• Gregory Padded Case Small (2004-04-03)

■ BOBLBE-E NEW MEGALOPOLIS 来た!

自宅にいた妻から、NEW MEGALOPOLIS が届いたとのメール。 金曜日の夜注文したから、次の営業日に即発送処理にはいれたということかな。 良きかな良きかな。

やっぱりでかいな。まだハーネスが体に馴染んでいないためしょった時のフィット感はそれほどでもない。ここら辺はやはり Gregory の方が上だ。 パック自体は思ったより重くない。

明日は以前の予報と違って天気が回復しそうだが、9:00出社日で満員電車だしデビューはできないか。

一緒に購入した CARGO NET や、付属品の WEST BELT や ATTACHMENT BELT を付けたりとちょこちょこといじる。PHONE POCKET はとりあえず使わないかな。 以前 Gregory のデイ&ハーフパックのショルダーにケースを装着していた事もあるんだけれど、やっぱりちょっとスマートじゃないし。

シェルは小さなホコリが塗装に混ざっていたりして完璧とはいえないけれど、目立った傷もついていないし満足いくレベル。 CRYSTAL COAT #1を塗っておく。艶具合がいい感じだ。

[ 製品レポート ]

• BOBLBE-E ANIARA に何が入るのか? (2005-05-22)
• 私的10大ニュース2004 [ misc ] (2004-12-31)
• 常に持ち歩くアイテム用に PORTER SMOKEY バッグ - 誕生日プ... (2007-04-27)
• BOBLBE-E SAM 2nd edition (2004-08-08)
• 新人歓迎会 (2005-04-12)

■ Term::ReadLine で GNU Readlineを使う。

Term::ReadLine を使ってみたのだが、ヒストリ機能も行編集機能も働かない。あれ?

で調べたらTerm::ReadLine::Gnu がはいっていないせいだった。 インストールしたらあっさり解決。

CPANモジュールのシェルも同様で使い勝手が悪かったのだが、これも合わせて解決。

• bundle を作成して Perl モジュールをまとめてインストール。 (2004-10-21)
• 野良パッケージと依存 Perl モジュールのインストールセット をCPAN... (2006-02-11)
• Time::Local::gmtime の範囲チェック (2003-12-23)
• 野良パッケージと依存 Perl モジュールのインストールセット を CPA... (2006-02-12)
• ActivePerl で Ming (2005-02-23)

■ bundle を作成して Perl モジュールをまとめてインストール。

依存モジュールが多くなってきて、開発しているPerl モジュールの実行環境構築が面倒になってきた。

ActivePerl では PPM パッケージ化 + PPM リポジトリで芋蔓式インストールが可能である。 素のPerlだとCPANモジュールでネットワークインストールする事になる。 ここで一個づつインストールしていくのがかったるい。 ということでCPANにあるモジュールのように Bundle::* を作る事にした。

調べてみると簡単。

• bundle はただのPerl モジュールである。
• Bundle:: 名前空間に置く。
• =head1 CONTENTS Podセクションを置き、各行に1つづつ依存モジュールを列挙する。

フォーマットは以下。

 Module_Name [Version_String] [- optional text]

これだけ。Pod に書かせるあたり、とりあえずから始まった感じである。

CPAN上に置あるものはきちんと tarball 化してあるが、ローカルで使う分にはこの bundle Perl モジュールを @INC のどこかに置いておけばよい。

Bundle::MyModule を作ったとすると perl -MCPAN -e shell から 'install Bundle::MyModule' でOK。

@ CPAN と @INC 上の '.'

カレントディレクトリの下に Bundle/MyModule.pm を置いて

 perl -I . -MCPAN -e shell

として Bundle::MyModule をインストールしようとしたのだがうまくいかない。CPAN のシェル上の ! コマンドで @INC を出力してみると . が含まれていない。何故? PERL5LIBに設定しても同様。 試行錯誤したところ絶対パスで指定すればOKであった。

CPAN.pm 1.76_01 を読んでみた。

 no lib "."; # we need to run chdir all over and we would get at wrong
             # libraries there

これだ。

• PAR::Repository でビルド済み Perl モジュールをネット... (2006-12-12)
• ActivePerl で Ming (2005-02-23)
• Module::Build でソースパッケージング (2005-08-24)
• 自前 PPM リポジトリの管理 (2006-07-03)
• ExtUtils::MakeMaker で prompt (2006-06-28)

■ ActivePerl で Ming

ActivePerl で Ming を使えるようにしておきたい。

@ Visual Studio で

Ming 0.3 beta1 のソースパッケージには Visual Studio 6.0 用のプロジェクトファイルが含まれている。 Cygwin の Bison と flex があればライブラリをビルドできるようだ。 横着して Linux 側で bison と flex で生成したファイルをコピーして(それから unistd.h をインクルードしている部分を消して)、ビルドしてみたところ一応 lib ファイルは作成成功。

しかし ActivePerl 用にPerl モジュールの make は失敗。

@ MinGW + nmake で ActivePerl のモジュールをビルドできるらしい

調べたところ ExtUtils::FakeConfig を使うと Visual Studio が無くても MinGW + nmake でモジュールをビルドできるらしい(全てではないと思うが)。

ということで Ming を MinGW でビルドした後、そのまま ActivePerl 用モジュールの作成まで持ち込むことにしてみる。

@ MinGW + MSYS + GnuWin32 で開発環境を構築

コンパイルに必要な環境を MinGW で、configure に必要な環境を MSYS で用意する。

• MinGW-3.1.0-1.exe -> インストーラ形式
• MSYS-1.0.10.exe -> インストーラ形式
• msysDTK-1.0.1.exe -> インストーラ形式

@ bison は GnuWin32 で

Ming のビルドに必要な Bison は MinGW、MSYS のインストーラに含まれていない。 bison-1.875.0-2003.02.10-1.exe というのが別途あるがうまく動かない。

ソースパッケージ(bison-2.0.tar.gz、bison-1.875.tar.gz)からはビルドできず。 MinGW/MSYSのプロジェクトにある bison-1.875-2003.02.10-1-src.tar.gz はビルドできるものの make check が通らない。

とうことで GnuWin32 の bison-1.875-4.exe (インストーラ形式)をインストール。 c:/usr/local/GnuWin32 にインストールした後、MSYS の /etc/fstab で /GnuWin32 にマウントし、/GnuWin32/bin に PATH を通しておく。

@ flex はソースパッケージから

flex-2.5.4a.tar.gz を展開して

 ./configure; make; make check; make install

インストール時ハードリンクが作れなくてエラーがでているようだが無視。

@ zlib (Ming で必要)

MSYS 上でビルドしてインストール。zlib-1.2.2.tar.gz を展開して

 ./configure; make; make check; make install

@ LibUnGif for Windows (Ming で必要)

MSYS 上でビルドしてインストール。 libungif-4.1.0b1-src.zip を展開して

 rm config.cache;
 config.h内の-DHAVE_VARARGS_Hをコメントアウト。
 ./configure; make; make install

make check はエラーが出るが無視。

@ libpng (Ming で必要)

MSYS 上でビルドしてインストール。libpng-1.2.8-config.tar.gz を展開して

 CFLAGS=-I/usr/local/include LDFLAGS=-L/usr/local/lib ./configure
 make; make check; make install

@ いよいよ Ming

MSYS 上でビルド。ming-0.3beta1.tar.gz を展開して

 CFLAGS=-I/usr/local/include LDFLAGS=-L/usr/local/lib make static

@ ActivePerl 用モジュール作成

ExtUtils::FakeConfig と PPM::Make で Ming の SWF PPM パッケージを作成する。 (MSYSのシェルではなく)コマンド プロンプトを開いて、Mingソースパッケージの中の perl_ext に移動。 MSYS、MinGW、nmake にPATHを通しておく。

それから Makefile.PL の実行で -lz を発見できないので、libz.a を Makefile.PL と同じディレクトリにコピーしてしまう(-L/usr/local/lib を指定しても効かなかったので)。 libpng.a、libungif.a も同じくコピーしておく。

Makefile を作成。Makefile.PL では -lz しか指定していないが、libpng と libungif も必要なのでコマンドラインオプションで指定する。ExtUtils::FakeConfig の Config_m を使用して MinGW を使用するようにする。

 perl -MConfig_m Makefile.PL LIBS="-lpng -lungif -lz"

ここで生成される Makefile の中で libperl58.a を指定している部分があるが、ActivePerl では perl58.lib になるので、エディタで書き換え。 後はいつも通り

 nmake
 nmake test
 make_ppm

で PPM パッケージ作成完了。

簡単なPerlプログラムでSWFファイルが作れる事を確認。 やった。

• Module::Build でソースパッケージング (2005-08-24)
• PAR::Repository でビルド済み Perl モジュールをネット... (2006-12-12)
• Windows 用 GNU Make (2004-07-24)
• Windows 用 GNU tar (2004-08-05)
• [ Perl ] PDL::PP で C extension を書く (2004-02-19)

■ BOBLBE-E ANIARA に何が入るのか?

@ カメラを腰に

会社に行く時も遊びに行く時も、基本的に何かしらカメラを携行している。 バッグに入れてしまうと取り出すのが億劫で撮らなくなってしまうから、身につけておきたい。 最近休憩中の DiMAGE X や DSC-U40 なら胸ポケットに入るが、主力である TC-1 や FinePix F10だとそうもいかない。 リュックを背負ってしまう事も多いので、取り出しやすい位置となると腰に下げるということになる。

この用途では PORTER TRIP カメラケースがジャストフィットで、使い勝手が良い。 しかしながら生地が薄いので、電車の中など人の多いところでは押し潰されないかちょっと心許無い時もある。

@ ANIARA 参上

そんななか、ついに先週 BOBLBE-E から ANIARA が販売開始になった。 BOBLBE-E らしいデザインで、強度的にも安心できそうである。 問題は内寸。 iPod などのプレーヤーがひとつのターゲットになっているから、そんなに広くないかもしれない。 実測で厚さ2.2cmぐらいじゃないかと書いてあるサイトもあるし微妙である。

ということで、確実に手にとってみられるであろう自由が丘のコンセプトストアに行ってみることにした。 自由が丘につくと、雨が降り出していた。

お目当ての ANIARA はカウンターに展示してあり、箱がたくさん積まれていた。 それなりに入荷している様子。

手にとってみると、いつもいる兄ちゃんが 「はいったばかりですよ」と声をかけてくれた。 CABIN HOOK(SILVER)とショルダーベルトつき。 中に、固めのウレタンフォームが入っていた。聞くと「間仕切りなどに使ってください」とのこと。

「自分のデジカメ入れてみていいですか?」と断わって、TC-1 と FinePix F10を入れてみる。

ジャストフィット!

いやジャストフィットすぎて、気持ちくちを押し広がりつつ入れる感じである。 ちょっと余裕があった方が押された時に安心な気もするが、まあこれぐらいなら大丈夫であろう。

気にいったのであっさり購入決定。6,090円なり。

色は今のところ black のみ。近く他の色も出るとのこと。 交換用のシェルが出るのは、そのあともう少し遅くなりそうだといっていた。

帰って手持ちのポーチ群と比較したりした後、CRYSTAL COAT #1で早速コーティング。 艶消し系の表面処理なのでツルツルって感じではないが、色に深みがでていい感じである。

明日さっそく会社にしていこう。

• MJSOFT

[ 製品レポート ]

• 私的10大ニュース2005 [ photo ] (2005-12-31)
• 撮りたいものは、撮れていたか。FinePix F10を購入。 (2005-03-21)
• BOBLBE-E NEW MEGALOPOLIS 来た! (2004-10-05)
• m4s tkh再会新年会 (2005-01-06)
• 今回の公式カメラマンはデジタル一眼レフだった (2006-05-14)

■ Module::Build でソースパッケージング

@ ExtUtils::MakeMaker

私が Perl が好きな理由の一つに、標準でExtUtils::MakeMakerという Makefile ジェネレータがついているところである。これを使って Makefile.PL を書くと

 perl Makefile.PL
 make manifest
 make
 make test
 make dist

で <pacakge>-<versionno>.tar.gz というソースパッケージを作ることができ、

 tar zxvf <pacakge>-<versionno>.tar.gz
 cd <pacakge>-<versionno>
 perl Makefile.PL
 make
 make test
 make install

という手順でインストールする事ができるようになる。 パッケージの作り方が確立されているので、容易に新しいパッケージを開発しはじめられる。

逆に Java でプログラムを書くのが億劫なのは、このあたりの準備が面倒だからである。 Ant を使っても結局ここら辺自分でやらなければならないし。

@ ちょっとしたアーカイブの作成

ちょっとしたパッケージを作りたいと思うことは良くある。 例えばいくつかのデータファイルと、READMEファイルなんかをひとまとめにしてアーカイブにするとか。

本当にちょっとしたであれば、手動でアーカイブすれば良いのだが、

• アーカイブしたいファイル群がバージョン管理下にあって、CVS ディレクトリや .svn ディレクトリがある (除外してアーカイブする必要がある)
• 同じディレクトリにある、作業用のファイルはアーカイブしたくない (除外してアーカイブする必要がある)
• アーカイブする前に、チェック用のリグレッションテスト一式を走らせたい (リグレッションテストをかけられるようにする)
• UNIX でも Windows でもアーカイブ化できるようにしたい。

あたりを考慮しなければならない時は面倒くさくなってくる。

自動化としては

• シェルスクリプト/バッチファイルを書く
• Makefile を書く
• GNU Autotools を使う

あたりがぱっと思い浮かぶ。 しかし、最初の2つは毎回同じようなものを書くのが面倒だし保守もしにくい。 GNU Autotools はちょっとごっつすぎだし、Windows での環境構築も面倒。

@ ExtUtils::MakeMaker の欠点

ということで最初は ExtUtils::MakeMaker を使うという線で考えてみた。 もともと Perl モジュール用で汎用用途にはちょっと邪魔な振舞いもあるが、使えないことはないと思う。 しかし make (GNU Make あるいは nmake など) に依存しているという欠点がある。

@ Module::Build で

ということで ExtUtils::MakeMaker の代替である Module::Build ベースで汎用用途に使えないか検討してみた。こちらは pure Perl で make を必要としない。

Module::Build も Perl モジュールビルドにあわせた振舞いがあるものの、ちょっとカスタマイズすれば使えそうだ。 で、いろいろいじった結果、次のような感じにすると使いやすそうだ。

 use Module::Build;
 my $class = Module::Build
   ->subclass(class => 'NonmoduleBuilder',
              code => q{
                        # Don't make blib
                        sub ACTION_code {};
                        # Don't make blib
                        sub ACTION_docs {};
                        # Don't make META.yml
                        sub ACTION_distmeta {
                          # no warning on ACTION_distdir
                          $_[0]->{metafile} = 'MANIFEST';
                        };
                        # Don't add MEATA.yml to MANIFEST
                        sub ACTION_manifest {
                          $_[0]->{metafile} = 'MANIFEST',
                          $_[0]->SUPER::ACTION_manifest(@_);
                        };
                       });

 # Set your archive name and version.
 $class->new(dist_name => 'mypackage',
             dist_version => '1.0.2',
             )->create_build_script;

カスタマイズした部分は以下(Module::Build 0.26 で動作確認)。

• Perl モジュールビルドに特有の blib ディレクトリを作らないようにする。
• META.yml を生成しないようにし、アーカイブに含まれないようにする。

上記のようなファイルを Build.PL という名前で作っておけば

 perl Build.PL
 ./Build manifest
 ./Build
 ./Build test
 ./Build dist

等として、アーカイブ作成が容易にできるようになる。

しばらくこの方法でいろいろ試してみることにしてみよう。

• SCons は GNU Autotools のかわりになるか (2005-04-20)
• ActivePerl で Ming (2005-02-23)
• nmake で毎回 pl2bat されるのを何とかしたい (2004-11-25)
• 私的10大ニュース2004 [ comp ] (2004-12-31)
• Windows 用 GNU Make (2004-07-24)

■ SSH port forwarding 経由での Unison を用いたファイル同期

ノート PC ととあるプライベートネットワーク上のサーバとで Unison を使って同期しているディレクトリを、プライベートネットーワークの外から SSH 経由で port forwarding して同期できるようにしたくなった。

 今
 [ノート PC] -------------------- [サーバ]
               Unison with SSH   192.168.0.x

 これから
 [ノート PC] -------------------- [サーバ]
               Unison with SSH   192.168.0.x

 [ノート PC] -- [ゲートウェイ] -- [サーバ]
               gw.example.com    192.168.0.x
               Unison with SSH

@ 現在のノート PC 上での設定

 times = true
 root = /home/naney/somedir
 root = ssh://192.168.0.x//home/naney/somedir

 ignore = Name *~
 ignore = Name .*~
 ...

が 設定ファイル ~/.unison/server.prf の内容。

 unison server [options]

で同期している。

@ SSH port forwarding 経由で同期

新しくノート PC 上に設定ファイル ~/.unison/serverremote.prf を作成する

 times = true
 root = /home/naney/somedir
 root = ssh://localhost//home/naney/somedir
 rootalias = ssh://localhost//home/naney/somedir -> ssh://192.168.0.x//home/naney/somedir
 sshargs = -p 8022 -o HostKeyAlias=192.168.0.x

 ignore = Name *~
 ignore = Name .*~
 ...

SSH port forwarding を開いてから、上の設定ファイルを使って同期するシェルスクリプト unison-serverremote を書く

 #!/bin/sh
 ssh -f -L 8022:192.168.0.x:22 gw.example.com sleep 10
 unison serverremote $@

これで

 unison-serverremote

で、SSH port forwarding 経由で同期できるようになった。

• connect.c を使って SOCKS サーバ経由で社内サーバへ SSH 接続 (2007-01-06)
• ISP から Outbound Port25 Blocking を行うとの... (2006-05-23)
• OpenSSH for Windows (2004-08-05)
• Unison + Zebedee (2004-06-11)
• sniffit 0.3.7 beta をインストール (1999-01-22)

■ ダイソーのジョイントラックでルータ台を組む

ダイソーでは「100円(105円)のものしか買うまい」と思っていたのだけれねぇ。

モデム・ルータ・アクセスポイント、すぐ埃だらけになるのでキッチンの床にじかに置いておくのはいい加減やめようと思っていたのだけれど、なかなかいいサイズのラックが見つからなくて。

ワイヤーシェルフ系、ホームエレクターだとオーバースペックで値段も高すぎ。 ルミナスもいいサイズが無さそう。

で結局ダイソーで。 バラ売り商法でそれなりの額になってしまうとは承知しつつも、トータルではまだ少し安いかなと。

• 棚板 45cm x 25cm (@315円) x 3枚
• ポール (@105円) x 4本
• テーパードスリーブ 4個入り (@105円) x 3セット
• キャスター 4個入り (@105円) x 1セット

コレきちんと組み上がるのか不安だったけれど、まあ許容範囲の精度で組み上がった。 ホームエレクターなどを知ってしまっていると、固定用のプラ部品の合いの悪さなどに落胆するが値段を考えるといたしかたない。

各機器を乗っけて完成。

これでちょっと掃除が楽になりそうだ。

• うちの周りを FON ホットスポットにする (2007-01-20)
• MADWIFI で WPA を使うように変更 (2007-01-20)
• 大きいファイルの転送が止まってしまうのは TCP Window Scale... (2006-02-25)
• パルディオ用 PHS 通信カード DC-6S を購入 (1999-09-22)
• 来客用を想定してオフィスに La Fonera を設置 (2007-02-26)

■ 今日のさえずり - 一緒に洗濯機で雑巾を洗ってしまっていた

@ 2008年04月28日

• 11:19 今から行くところ / ジャスコ。 http://logpi.jp/naney
• 12:27 ジャスコ到着。[mb]
• 13:02 ジャスコ満喫中。[mb]
• 13:05 未来屋書店で探していた「2分以内で仕事は決断しなさい」を見つけたので購入。平積みになってた。[mb]
• 14:53 フードコートでジャンク食ってアイスクリーム食って、まだジャスコで遊んでいるところ。[mb]
• 16:12 ようやくジャスコ出た。[mb]

@ 2008年04月29日

• 09:28 今やったこと / Twitter のページ構造変更にあわせて、WWW::Mechanize スクリプトを修正した。 http://logpi.jp/naney
• 13:36 今気づいた事 / 引退した5本指ソックスはワイヤーシェルフの掃除に好適。 http://logpi.jp/naney
• 13:39 今気づいた事 / 他の洗濯物と一緒に洗濯機で雑巾を洗ってしまっていたようだ。 http://logpi.jp/naney
• 18:36 今やったこと / Linux がスワップ使いきってどうにもならなくなったのでリブートしたところ。 http://logpi.jp/naney
• 19:46 気になるモノ / ユニクロのガンダムTシャツ。ズゴック・ゾック・パーフェクトジオング、カッコイイ! http://logpi.jp/naney
• 22:34 ドコモ料金案内iアプリ入れてなかったのでダウンロードした。[mb]

• 今日のさえずり - 4C-0.4 芯って予想以上に細い (2008-02-21)
• 研究室 OB Twitter-ers と秋葉原で飲んだ (2008-09-11)
• Twitter のアイコンを Perl スクリプトで更新する (2008-03-13)
• ActivePerl で Ming (2005-02-23)
• Linux 母艦ノート PC を使わずに仕事ができるかチャレンジ (2007-08-20)