nDiki : コマンド プロンプト

[スタート]→[プログラム]→[アクセサリ]→[コマンド プロンプト] cmd.exe。

Perl Windows インストール ActivePerl PPM パッケージ Linux ビルド 日本語 GnuPG ソースパッケージ GUI ZIP Bash エラー 開発環境 インストーラ nmake エディタ Perl モジュール MinGW ActivePerl 5.8.8.817 ランチャ Web ブラウザ 情報収集 usr Term::ProgressBar UML スクリーンキャプチャ Photoshop オンライン

■ [ Perl ] Term::ProgressBar

スクリプトにプログレスバーが欲しいというので、Term::ProgressBar で実装しておく。 しかし Windows + ActivePerl + コマンド プロンプトでうまく表示されるのかどうかは知らぬ。

• [ Perl ] Term::ProgressBar + ActivePe... (2003-12-26)
• ActivePerl で Ming (2005-02-23)
• wxPerl で daemon モニタ (2005-03-11)
• [ Perl ] PDL::PP で C extension を書く (2004-02-19)
• PAR::Repository でビルド済み Perl モジュールをネット... (2006-12-12)

■ 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)
• OpenSSH for Windows (2004-08-05)
• 自前 PPM リポジトリの管理 (2006-07-03)
• Windows 用 GNU Make (2004-07-24)

■ wxPerl で daemon モニタ

Perl で書いた HTTP daemon 形式のシステムがあるのだが、Windows ユーザにとってはコマンド プロンプトからコマンドラインオプションを指定しての起動は繁雑でよろしくないらしい。

以前から管理用のGUIをつけようと思っていたのだが、現在の daemon プログラムにGUIをつけるとするとマルチスレッド化にしなければならないとか、そういう頭があって後まわしにしていた。

今回、まずはランチャと daemon のログモニタというレベルでGUIを作ってみることにした。 wxPerl でランチャを作ってそこから子プロセスとして daemon を起動するという形式。 ランチャ側のアイドルループで、daemon の標準出力・標準エラー出力を読み出して表示するというもの。Linux 上ではうまく動いた。

• Wx::Process でプロセスオブジェクトを生成
• Wx::Process::Redirect() で、I/Oを取れるようにする。
• Wx::ExecuteCommand() や Wx::ExecuteArgs() で daemon を起動。Wx::Process のインスタンスに結びつける。
• EVT_IDLE でアイドルイベントハンドラの中で Wx::Process::GetInputStream、Wx::Process::GetErrorStream からの読み出しを行い defined ならば、UI側で表示。
• daemon の終了がしたかどうかは EVT_END_PROCESS で捕捉。

といった感じ。

• ActivePerl で Ming (2005-02-23)
• 私的10大ニュース2004 [ comp ] (2004-12-31)
• ソフトウェア技術者御用達のプロジェクトマネジメントツール TaskJuggler (2007-04-23)
• JSmooth で Win32 上でのJava プログラム起動ファイル作成 (2004-12-06)
• Perl テストスクリプトの中で標準エラー出力を一時的に止める (2006-12-15)

■ 貼りつけ! コマンド プロンプト!

最近何か所かで紹介されている Command Prompt Explorer Bar 1.1 を使ってみる。 エクスプローラ上で Ctrl+M を押すと、コマンド プロントがエクスプローラ内に貼りつくソフトウェア。

エクスプローラ上でフォルダを選択すると、cd コマンドが投入されてそのディレクトリに勝手に移動してくれたり*1便利。

窓の手の「任意のフォルダーからコマンド プロンプトを可能にする」オプションも便利だけれど、こちらはエクスプローラのフォルダ選択と連動するのでより便利そうだ。

• http://www.codeproject.com/...

@ 追記

• けいむなさん好評 (2005年06月08日)

• 1インチポータブル HDD HDMC-U12 インプレッション (2006-12-28)
• ソフトウェアかんばん「見えない化」 (2006-04-10)
• 病院関係で半休 (2008-09-17)
• チャンギ国際空港内のコンピュータ店 (1999-09-05)
• コミットメント・リスト vs ガントチャート (2005-10-19)

■ 第5回 社内 Perl 勉強会

リャマ本を使用した社内 Perl 勉強会の5回目を開催。 今回は一人病欠で6人。 今回も先週の金曜日に都合がつかなかったので、月曜日の開催。

今日は「初めてのPerl 第3版」第6章「入出力の基本」が範囲。 この章で、ダイヤモンド演算子 <> を含む標準入出力の基本がほぼおさえられる。

@ 今回の反省点

標準入出力を使うようにしておけば、リダイレクトやパイプを駆使することで簡単なプログラムを組み合わせて超便利。 その辺りを伝えたいところであるが、Windows ユーザにはちょとうまく良さを伝えきれなかった感じで反省。

今回から one liner について触れていこうと思う。 Perl のコマンドラインオプション -ne や -pe などを使いこなせるようになるとこれまた便利なので、ぜひ馴染んでいただきたい。

しかしコマンド プロンプトだとコマンドライン引数のクォートの仕方が Bash 等と違うので、環境別にサンプルを用意しなければならにのがちょっとネックである。 今回は時間の関係で Bash 上での例しか示せなかった。 次回からはもう少しきちんとサンプルを用意したい。

今回はほぼ1時間丁度ぐらい。

• 第12回 社内 Perl 勉強会 (2006-07-31)
• 第13回 社内 Perl 勉強会 (2006-08-07)
• 第14回 社内 Perl 勉強会 (2006-08-25)
• wxPerl で daemon モニタ (2005-03-11)
• 第1回 社内 Perl 勉強会 (2006-04-21)