nDiki : 2004年10月16日

■ 過去の今ごろ

過去の10月16日より。

• Sys::CpuLoad
  • SpeedyCGI 下だったら使った方が平均的には速いかも。

• サーバの負荷が高くなったら DiKicker が 503 を返して沈静化を... (2007-04-05)
• [ WiKicker ] SpeedyCGI 対応するも…… (2003-11-09)
• [ WiKicker ] SpeedyCGI 化の様子 (2003-11-10)
• [ Perl ] Log::Log4perlのはまりどころ (2004-03-02)
• 過去の今ごろ (2004-06-30)

■ Template Toolkit のテンプレート上で対話的入力

ちょっとしたプログラムパッケージや LaTeX ドキュメントを作成する時に、Makefile やその他ファイルのスケルトンをまとめて生成する算段を検討中。 例えば Perl の h2xs のような感じ。

基本的には Template Toolkit ベースでいってみたい。 ttree あたりを使えばだいたいできそうだ。 ここで --define var=value で全て間違えずに指定するのは大変になってくるだろう。 ということでテンプレート変数定義をまとめたテンプレートファイルを作成し、各テンプレート処理をする際にプリプロセスするようにする。

でこのテンプレート変数定義のテンプレートファイルは対話的に作成できるようにしたい。 テンプレートファイルのテンプレートファイルを処理して。

で対話的入力の方法なのだが、探してもそのようなディレクティブもプラグインもみつからない。ありそうなもんだけどなぁ。

しょうがないので、PERL ディレクィブ内で Term::ReadLineを使って入力。 こんな感じ。

 [% TAGS [- -] -%]
 [- PERL -]
 use Term::ReadLine;
 my $term = new Term::ReadLine('template');
 $stash->set('readline' => sub {
   my $prompt = shift || 'input:';
   my $text = $term->readline($prompt);
   if (defined $text) {
     $term->addhistory($text);
   }
   return $text;
 });
 [- END --]
 [% project.name = '[- readline('project name:') -]' -%]
 [% project.author = '[- readline('author:') -]' -%]

tpage でこのテンプレートファイルを処理すると、対話的に値を入力しながらテンプレートファイルを生成できる。 実際は文字列のエスケープなどもうちょっと工夫が必要。

ちなみに Debian GNU/Linux sid の libtemplate-perl は 2.10-1 で、このバージョンの Template Toolkit の tpage だと EVAL_PERL が有効になっておらずうまく動かない。 手元にコピーして Template オブジェクトの初期化部分に EVAL_PERL => 1 を追加する必要あり (2.14 の tpage は --eval_perl オプションで有効にできる)。

• Twitter ベイジアンフィルタプロキシ (2007-12-29)
• reStructuredText いいんじゃない? (2005-11-22)
• sid の CinePaint がプラグイン読み込みでエラー (2006-04-15)
• Twitter への書き込みを自動的に Skype ムードメッセージに設定する (2008-02-25)
• ColdSync (2004-05-05)

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

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

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

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

• bundle を作成して Perl モジュールをまとめてインストール。 (2004-10-21)
• WiKicker の Makefile.PL を Module::Inst... (2006-02-10)
• [ Perl ] PDL 2.4.1 から eigens が固有ベクトルを... (2004-03-05)
• WiKicker 0.37 リリース - 主に添付関連の機能を改良 (2006-09-05)
• 最新の Module::Install は Perl 5.005_03 ステ? (2006-04-29)