nDiki : h2xs

C言語のヘッダファイルから Perl モジュール(のスケルトン)を生成するツール。 pure Perl なモジュールの作成時にも使用できる。

 h2xs -AX -n Foo

 Foo/lib/Foo.pm
 Foo/Makefile.PL
 Foo/README
 Foo/t/Foo.t
 Foo/Changes
 Foo/MANIFEST

 h2xs -AX --skip-exporter Foo

 h2xs -AX -b 5.005.03 -n Foo

 h2xs -AX -n Foo::Bar

 Foo-Bar/lib/Foo/Bar.pm
 Foo-Bar/Makefile.PL
 Foo-Bar/README
 Foo-Bar/t/Foo-Bar.t
 Foo-Bar/Changes
 Foo-Bar/MANIFEST

 h2xs -AX -b 5.005.03 -n Foo::Bar

インストール blib PPM::Make CGI.pm Template Toolkit 標準 Perl ライブラリ バージョン番号 File::Spec Module::Build Perl テストスクリプトの書き方 Module::Install Term::ProgressBar sid Locale::Maketext 実行可能ファイル Module::CoreList Devel::Cover PAR リポジトリ 検索 PAR::Repository Tie::File Build.PL IPC::ShareLite Perl で XML Palm::Progect Palm Debian GNU/Linux テストファースト開発 命名規則 開発

■ 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)

■ ExtUtils::ModuleMaker

Perl モジュールのスケルトンを生成するためのモジュール。 h2xs と同じ目的で使うもの。 modulemaker というスクリプトが付属していて、実行すると対話的に項目を設定した後、スケルトンを生成することができる。

h2xs よりはいろいろ項目を設定してスケルトンを生成できる。 h2xs よりは良いがカスタマイズはあまりできなさそう。

直接これを使うためというよりか、ExtUtils::ModuleMaker::TTを使ってみるためにインストール。

• ExtUtils::ModuleMaker::TT (2004-10-17)
• ActivePerl で Ming (2005-02-23)
• Template Toolkit + PAR (2004-09-13)
• bundle を作成して Perl モジュールをまとめてインストール。 (2004-10-21)
• Module::Build でソースパッケージング (2005-08-24)

■ Perl スクリプトを PAR ファイルにして PAR リポジトリに登録する

PAR リポジトリから Perl モジュールをネットワーク配信するためには、以下の手順で PAR ファイルを作成する。

 perl Makefile.PL
 make
 make test
 perl -MPAR::Dist -e blib_to_par

blib ディレクトリ以下のファイルもとに PAR ファイルが作成されるので、でき上がった PAR ファイルを リポジトリに登録すれば良い(PAR::Repository でビルド済み Perl モジュールをネットワーク配信)。

ではちょっとした Perl スクリプトを PAR リポジトリからロードして使えるようにするにはどうすればよいか。もちろん h2xs などで一式そろえ make して blib ツリーを作るようにすればいいが、たった 1 つのスクリプトファイルだけの時などは大袈裟だ。

この場合は pp でいける。

 echo 'print "hello world!"' > myscript.pl
 pp -o myscript.par -p myscript.pl
 parrepo inject -r /tmp/PAR myscript.par -v 1.00 \
   -a MSWin32-x86-multi-thread -p 5.8.8 \
   --any-arch --any-version

スクリプトのメタデータがないので、parrepo に登録する際に明示的にオプションで指定してあげる必要がある。

-v

プログラムのバージョン番号

-a

アーキテクチャ

-p

Perl のバージョン

--any-arch

アーキテクチャ非依存で動くならば指定しておく

--any-version

任意の Perl のバージョンで動くならば指定しておく。

PAR ファイル(にした Perl スクリプト)が --any-arch で --any-version であっても、-a と -p は必須だ (PAR::Repository の中にアーキテクチャ/バージョンつきで登録された上でシンボリックリンクの形で any 扱いにされるため)。

これで PAR リポジトリからスクリプトを実行できるようになる。 スクリプトの更新もリポジトリ側で行うだけで良くなる。

 perl -e "use PAR { repository => 'http://www.example.com/PAR/',
                    run => 'myscript.pl'}"

お好みで実行形式ファイルにしておけば Perl をインストールすることなく実行できるようになるので便利。

 pp -o myscript.exe -M PAR::Repository::Client \
   -e "use PAR { repository => 'http://www.example.com/PAR/',
                 run => 'myscript.pl'}"

ちなみに PAR リポジトリを使わずに、直接 PAR ファイルを指定して実行できることもできる。

 perl -e "use PAR { file => 'http://www.example.com/myscript.par', \
                    run => 'myscript.pl' }

ちょっとした用途ではこちらでも良いけれど、アーキテクチャ別の管理やらモジュールの管理やらを考えると PAR リポジトリを作ってしまった方が楽。

• PAR::Repository でビルド済み Perl モジュールをネット... (2006-12-12)
• Module::Build でソースパッケージング (2005-08-24)
• 「依存関係検査のしにくいモジュール」に依存するスクリプトをPARで実行形式化する (2005-03-08)
• 野良パッケージと依存 Perl モジュールのインストールセット をCPAN... (2006-02-11)
• PostgreSQL を使いはじめる (1999-12-17)