久々に環境を作り直したら、PARの導入が恐ろしく簡単になってた。

まずは、PAR::Packerのインストールの前に、必要モジュールをPPMでインストールしておく¹。必要なのは以下の6つだ。

• Module::ScanDeps
• Win32::Exe
• Parse::Binary
• Getopt::Argvfile
• PAR
• PAR::Dist

cpanコマンドでPAR::Packerをインストール

以前はここからが厄介だった。別のリポジトリからインストールしようとしてバージョン違いに泣いたり、以下のリンクなどを参考にしてMinGWやnmakeと格闘したりした。

BdP – PPM Repository
http://www.bribes.org/perl/ppmdir.html

Vista/XPのActivePerl 5.10.0でPAR::Packerをビルド ハードなソフトの話/ウェブリブログ
http://hardsoft.at.webry.info/200801/article_4.html

ところが今や、やることはこれだけである²。

C:\>cpan -fi PAR::Packer

これだけでcpanコマンドが勝手にMinGWをダウンロードしてきてPAR::Packerのコンパイル&インストールをやってくれる。

Continue reading →

Unix系OSのコンソールと比べると途方もなく貧弱に見えるWindowsのコマンドプロンプトだが、文字に色を付ける機能くらいはちゃんとある。これを、Unix系OSで書き慣れた書式のまま使えるWin32::Console::ANSIというモジュールがお気に入りだ。

Win32::Console::ANSI – search.cpan.org
http://search.cpan.org/~jlmorel/Win32-Console-ANSI-1.04/lib/Win32/Console/ANSI.pm

#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use Perl6::Say;
use Win32::Console::ANSI;
binmode STDOUT => ":raw :encoding(cp932)";
say "\e[1;32mこれは明るい緑です";
say "\e[41m背景を赤にしました";
say "\e[4m強調してみました";
say "\e[7m反転してみました";
say "\e[m元に戻りました";

別のモジュールと組み合わせることで、もう少しわかりやすい表記にもできる。

Term::ANSIColor – search.cpan.org
http://search.cpan.org/~rra/ANSIColor-3.00/ANSIColor.pm

#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use Perl6::Say;
use Win32::Console::ANSI;
use Term::ANSIColor qw! :constants !;
binmode STDOUT => ":raw :encoding(cp932)";
say BOLD GREEN "これは明るい緑です";
say ON_RED "背景を赤にしました";
say UNDERSCORE "強調してみました";
say REVERSE "反転してみました";
say RESET "元に戻りました";

もっとも、このモジュール（Win32::Console::ANSI）は単なる色付き文字のためのモジュールではなく、ANSIコンソールをエミュレートするものだ。カーソル移動を可能にして画面の好きな場所に文字を出力できたりするらしいが、そこまでは試さなかった。

色の付け方も含めて、Unix系OSの解説がそのまま役に立つだろう。

Bash Prompt HOWTO: ANSI エスケープシーケンス: 色とカーソル操作
http://www.linux.or.jp/JF/JFdocs/Bash-Prompt-HOWTO-5.html

Perlスクリプトによる実行ファイルを作るとき、Unix系OSでは拡張子が付けないことが多いのだが、Windowsでそれと同じことをやろうとしてもうまくいかない。Windowsではファイルの拡張子によってファイルタイプを判別するようになっているからだ。

Windowsで拡張子のないコマンド(勿論、バッチコマンドとかぶるコマンド名ではいけない)を実行しようとするとどうなるかというと、強制的に「.exe」「.com」「.bat」のどれかが補われる。Perlスクリプトの拡張子「.pl」のままじゃダメってことだ。

じゃあ拡張子「.bat」の中にPerlスクリプトを無理矢理埋め込めばいいんじゃないか？となるわけだ。

以下のファイルを「test.bat」という名前で保存して実行してみると……

#!/usr/bin/perl
use strict;
use warnings;
use Perl6::Say;
say "Hello World!";

Continue reading →