nDiki : コマンド プロンプト

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

Windows Perl インストール ActivePerl PPM パッケージ Linux Bash nmake メール MinGW 日本語 ZIP Perl モジュール インストーラ ビルド 開発環境 エラー GnuPG GUI ソースパッケージ エディタ pLaTeX2e 弁当 スクリーンキャプチャ ソースコード PAR 公開鍵 svn SWF wxPerl

■ [ Perl ] Term::ProgressBar

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

• [ Perl ] Term::ProgressBar + ActivePe... (2003-12-26)
• ActivePerl で Ming (2005-02-23)
• USB メモリに Perl を入れて持ち歩きたい (2006-12-17)
• [ Perl ] PDL::PP で C extension を書く (2004-02-19)
• wxPerl で daemon モニタ (2005-03-11)

■ 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ファイルが作れる事を確認。 やった。

• ActivePerl をやめて Strawberry Perl へ (2009-08-25)
• ActivePerl 5.8.9 build 825 + MinGW 5.... (2009-02-22)
• Module::Build でソースパッケージング (2005-08-24)
• PAR::Repository でビルド済み Perl モジュールをネット... (2006-12-12)
• Windows 用 GNU tar (2004-08-05)

■ 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 で捕捉。

といった感じ。

• 私的10大ニュース2004 [ comp ] (2004-12-31)
• ActivePerl で Ming (2005-02-23)
• ソフトウェア技術者御用達のプロジェクトマネジメントツール TaskJuggler (2007-04-23)
• JSmooth で Win32 上でのJava プログラム起動ファイル作成 (2004-12-06)
• [ Perl ] Term::ProgressBar (2003-12-25)

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

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

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

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

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

@ 追記

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

• 1インチポータブル HDD HDMC-U12 インプレッション (2006-12-28)
• 超高速なファイル名検索 Everything Search Engine (2009-02-21)
• ソフトウェアかんばん「見えない化」 (2006-04-10)
• ThinkPad X31用外付けスピーカー Creative Travel... (2006-01-25)
• [ Debian ] ソフトウェアRAID1やっぱり片方でしかブートできず (2003-12-25)

■ 第5回 社内 Perl 勉強会

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

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

@ 今回の反省点

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

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

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

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

• 第13回 社内 Perl 勉強会 (2006-08-07)
• 第12回 社内 Perl 勉強会 (2006-07-31)
• [ Perl ] Term::ProgressBar (2003-12-25)
• 第11回 社内 Perl 勉強会 (2006-07-24)
• 第1回 社内 Perl 勉強会 (2006-04-21)

■ 今日のさえずり - 副作用というと別の意味が思い浮かぶのは情報科学屋だから

@ 2010年02月10日

• 09:45 I'm at 秋葉原駅 (秋葉原駅, 千代田区) w/ 4 others. http://4sq.com/68fhHr
• 12:16 おろしタツタ弁当(昼食) 498円。ファミリーマート。
• 12:20 副作用というと別の意味が思い浮かぶのは情報科学屋だから。
• 12:42 orz について @as_tone が語っている。
• 13:57 NTTドコモから「機種変更割引クーポン(2010年4月30日まで)」メールがきた。
• 14:27 コマンド プロンプト (Cmd.exe) ってエスケープシーケンス使えないのか。
• 17:24 傘があった方がいいぐらいの雨。 (@ 秋葉原駅 w/ @akinichi) http://4sq.com/68fhHr
• 17:57 I just unlocked the "Explorer" badge on @foursquare! http://4sq.com/9kDaYC
• 17:57 これから前向き交流会。 (@ ジオ オーガニックカフェアレア品川店) http://4sq.com/bEdIQL
• 18:00 あれ、一番乗りだったかな? 知っている人見当たらない。
• 18:08 ここで時間調整。 (@ あおい書店 品川店) http://4sq.com/ahd4z0
• 18:08 I just unlocked the "Overshare" badge on @foursquare! http://4sq.com/bh285j
• 18:22 さて、もう一回行ってみよう。
• 18:24 いた。
• 21:41 交流会で Android アプリケーション何か作ると宣言したので何か作ることにする。
• 00:45 モンチッチの「モン」はモンキーの「モン」じゃない。 http://bit.ly/cWoq9D
• 01:00 マイクレド待受画面ちょっと修正した。問いの形はやめた。

• 今日のさえずり - Google Buzz とか移した (2010-03-07)
• 今日のさえずり - 「Amebaズ」まだか (2010-02-12)
• 今日のさえずり - これ Emacs なのよね (2010-01-26)
• 今日のさえずり - 入り口に盛り塩? (2010-02-15)
• 今日のさえずり - わくわくしないのでやめとく (2010-02-17)