nDiki : Win32

Perl テストスクリプトの中で標準エラー出力を一時的に止める

make test で実行するテストスクリプトの中で、標準エラー出力を止めたい場合がある (わざとエラーを起こす時など)。

Perl 5.8.8 の ExtUtils/MM_Unix.pm を参考に

  {
    local *STDERR_COPY;
    my $duped = 0;
    $duped = 1 if open(STDERR_COPY, '>&STDERR');
    open(STDERR, '> ' . File::Spec->devnull()) if $duped;
    my $result = `$command`;
    my $status = $?;
    open(STDERR, '>&STDERR_COPY') if $duped;
  }
  warn "This message is printed to STDERR\n";

としてみた。 Linux と Win32 ではとりあえずうまくいって動いている。

追記

(open が2引数なのは、当時古い Perl バージョンでも動くように書いたから)

---

[ Perl テストスクリプトの書き方 ]

XAMPP で WiKicker を動かしてみた。PPM インストール OK。

Perl で書いた Web アプリケーションのポータブルな Win32 デモ環境として XAMPP を使ってみるとどんな感じになるか試してみた。

使ったバージョンは以下。

• XAMPP for Windows 1.5.5
• XAMPP for Windows ADD-Ons Perl 5.8.8-2.2.3

(http://www.apachefriends.org/jp/xampp-windows.html)

C: ドライブで試す

それぞれ 自己解凍型 7-ZIP アーカイブをとってくる。 最初に XAMPP を展開し、次にその xampp ディレクトリの中で Perl アドオンを展開。 xampp ディレクトリを c: の直下に移動する。

次にコマンドプロンプトを開き c:\xampp\perl\bin へ移動後 ppm コマンドを起動して作成済みの PPM パッケージをインストールする。 インストール先は \xampp\perl 以下とドライブ無しのパスで指定されているようで、問題なく必要な Perl ライブラリをインストールできた。

次に \xampp\xampp-control.exe を実行して GUI 管理ツールを立ち上げ、その画面から Apache を起動。 普通の Win32 版 Apache もインストールしてある PC だったため、xampp-control から Apache を起動したらそちらが立ち上がってしまったが、これは Svc にチェックが入っていたからだった。Svc を外せば \xampp 以下の Apache がきちんと起動する。

あとは \xampp\htdocs 以下で WiKicker CGI プログラムの配置や設定ファイルを作成すれば OK。 もともと WiKicker は相対パスだけで動くようになっている*1ので、問題なく実行することができた。

他のドライブに移す

一度セットアップできた \xampp ディレクトリを TrueCrypt 仮想ドライブにコピーして起動してみた。

こちらも問題なく OK。

ということで XAMPP でお手軽に Perl CGI プログラムの動く Web サーバ環境を作れることを確認できた。

問題があるとすれば XAMPP + Perl アドオンが馬鹿でかいところか。400MB オーバー。 今回何が一番時間がかかったかって、XAMPP + Perl アドオンを展開した直後の xampp ディレクトリを、後でまた使えるように 7-ZIP の最高圧縮する処理に時間がかかった。 使っている PC では 50分以上かかったよ。

今日のさえずり: 最近 CM で「しりあがり寿」の名を見る。うちでは画伯扱い (ほぼ日手帳の影響)。

• 10:17 プロジェクトのスケジュール共有用に Google カレンダー上に、1つカレンダーを新規作成。 *Tw*
• 10:50 GNU Make (Win32) では変数を設定しても、そのままではコマンド実行時の環境変数には入らないことを思い出した。 *Tw*
• 11:57 最近 CM で「しりあがり寿」の名を見る。うちでは画伯扱い(ほぼ日手帳の影響)。 *Tw*
• 12:32 着もと化した。 *Tw*

今日のさえずり - ふぁぼったーのフィードを Google リーダーに登録

• 11:36 RTM がおかしくなったので昨日入れた MR Tech Link Wrapper をはずしてみたらなおった。 *Tw*
• 12:00 ふぁぼったーのフィードを Google リーダーに登録。 *Tw*
• 12:18 アパガードスモーキン買った(非喫煙者)。[mb]
• 13:05 http://speedtest.10-fast-fingers.com/ やってみた。3回の結果は 227、293、288 ポイント。 *Tw*
• 13:48 pgAdmin III 1.8.0 インストール。 *Tw*
• 16:37 PostgreSQL 8.2.5 (Win32) 上の bytea に 88MB のバイナリを、リモートから DBD::Pg で INSERT。50〜60秒ぐらい。 *Tw*

PAR で DLL ファイルをロードできなかったら大文字小文字を疑え

PDL を使っている Perl プログラムを、昨日構築した今ごろの環境で PAR を使って実行可能ファイル化したんだけれども、実行してみたら

 Can't locate loadable object for module PDL::Core in @INC ...

というエラー。 実行時のキャッシュディレクトリを見ると core.dll が同梱されていない模様。 なんでだー。

いろいろやってみたところ、もしやと思ってインストール済みの core.dll を Core.dll という名前に変えたらエラーが出なくなった(正確には次のモジュールで同様のエラーが出た)。

ファイル名の大文字・小文字が問題だったらしい。 PAR の FAQ には「Win32::Perms の Perms.DLL でこのエラーが出たら、Perms.dll にしてね」と書かれている。 最初これ拡張子の問題だけだと思っていた。 ベース名でも同様のようだ。

以前は問題なかったから、比較的新しい PAR で発生するようになったと思われる。 これ絶対はまる。

今日のさえずり - 題名のない音楽会公開収録終了

2010年03月31日

• 09:55 GCMG から Google カレンダーへのアクセス許可を取り消した。
• 12:05 ロースかつ丼(昼食) 498円。 (@ ファミリーマート神田佐久間町店) http://4sq.com/biJuCj
• 13:38 BOSS 贅沢微糖 100円。
• 13:40 Uncrustify 0.56 の Win32 用バイナリが出てる。
• 17:06 これからデート。 @nyafuru スルドイ。
• 17:12 ピックアップ。 (@ 秋葉原駅 w/ 6 others) http://4sq.com/68fhHr
• 17:46 東京オペラシティ到着。
• 20:46 題名のない音楽会公開収録終了。リピートしたくなるな、これ。
• 23:39 Android 用 Twitter クライアントはどれがいいのかな。twicca が評判が良いので最初はこれ使ってみようかと思ってる。 #twicca
• 24:20 @yunzo77 「題名のない音楽会」都合が悪くなった人がいて入場整理券もらったんですよ。けっこう倍率高いんですか?
• 24:31 Gmail からiモードメールアドレスへのフィルタ転送全て停止。

今日のさえずり: 情熱が感じられないか

2010年04月30日

• 09:56 誰かって私しかいないよね。どこのサイズが必要? RT @as_tone: 朝一イケアやってみた。しかし、四角い植木鉢のサイズを測ってこなかったことに気付く。誰か教えて！早く！
• 10:12 メジャーがみあたらない。
• 10:23 @as_tone メジャー借りました。植木鉢の下部は 7cm 四方でした。
• 10:41 @as_tone あの白い植木鉢の底が 7cm x 7cm でしたよ。
• 12:04 牛丼 350円。 (@ なか卯 神田佐久間町店) http://4sq.com/9tdwTs
• 12:47 [note] Xperia で PandaHome 5画面にしたときの壁紙スクロール http://goo.gl/fb/RJZxW
• 13:03 LEXER RESEARCH Inc. の Web サイトがリニューアル。 http://bit.ly/b7QzCz
• 14:29 @as_tone よさそげなのがあったら写真、写真。
• 14:49 マンスリーレポート先月まで pLaTeX2e で書いていたけれど、今月は Google ドキュメントにする。
• 17:20 久しぶりに XAMPP for Windows ダウンロードしている。
• 18:54 やっぱり XAMPP for Windows デカすぎなので、Apache は 本家 Win32 インストーラでインストールしたものをコピーして使うことにした。Perl は Strawberry Perl にするつもり。
• 20:24 ヴィ・ド・フランス皿 GET。
• 20:30 帰宅。ゴールデンウィーク突入です。
• 20:54 紹介ありがとうございます。面白そうですね。 RT @OK2nd: @Naney XAMPP上で動作するWebポータルシステム「MyHome Portal」はいかがでしょう。 http://ok2nd.web.fc2.com/
• 20:58 @OK2nd 今回は Perl ベースのあるシステムをセットアップしてアーカイブし、後は別の PC でも展開すれば動くようにしたいのでちょっと方向が違いますね。
• 21:16 10万人の交通安全カブト一斉装着計画って本気なのか?
• 21:27 ホーム3画面では足りなくなってきたので PandaHome を入れて5画面にしてみた。まだまだスペースがあるのでこれ以上増やす必要はないかな。ウィジェット動かしすぎると重くなりそうだし。 #Android #Xperia
• 21:46 今思うと植木鉢ほんとうに 7cm だったか不安になってきた。メジャー読み間違えてたかな。
• 24:48 情熱が感じられないか。

今日のさえずり: バックで逆走って、どこまで許されるの?

2010年07月02日

• 07:30 赤尾敏の政見放送みたい。あの時間枠にとらわれない演説を。
• 09:20 紅の豚を妻と映画館で観たのではという話になったんだけど、1992年だとまだ出会っていない。
• 09:22 しかし、もう20年近く前の作品なのか。
• 09:29 記憶が確かならば、小学校の図工の先生はシベリア帰りだった。授業の時に厳しかった生活の話を聞いた。自分とシベリアの接点ってそんな感じ。
• 11:49 Evernote for Windows が遅いのはデータベースを TrueCrypt 仮想ボリューム上に置いているのも一因かも。
• 12:06 今日も。 (@ ライフ 神田和泉町店) http://4sq.com/aMU2tQ
• 12:17 カップヌードル6個備蓄。
• 12:20 シモジマ行けば笹売ってるかなぁ。
• 12:24 交番に笹が! http://movapic.com/...
• 12:43 7月7日オープン。 http://movapic.com/...
• 12:46 @Keiichi_SHIGA スミマセン、元ネタ知らず。会社近くのスーパーのオープニングセール品です。
• 12:51 作り物の3000円オーバーなバンブーツリーだけだった。 (@ シモジマ 浅草橋5号館) http://4sq.com/dw9z1Z
• 12:56 @Keiichi_SHIGA おお、そんな CM があったとは。
• 12:58 バックで逆走って、どこまで許されるの?
• 14:27 またスポンジが臭い。
• 16:20 スーパーカップ 126円。 (@ ファミリーマート神田佐久間町店) http://4sq.com/biJuCj
• 17:30 vec.rbegin().base() == vec.end();
• 17:38 STL で end() が返した反復子って Bidirectional ならデクリメントしても OK だよね?
• 18:12 マイミクシィが宝箱が開かなくて困っていますというメールが mixi から毎日くる。
• 19:40 Strawberry Perl 5.10.0.6 に Win32::Pipe をインストール。CPAN モジュールでさらりと入った。
• 20:31 まりもの水交換。
• 20:42 今日会社でエコバッグが板についてますね的な評価をいただいたのだが男子でも誉め言葉と受け取って良いですよね?
• 20:43 ちなみにビニール袋いりませんの相場は2円です。
• 20:44 紅の豚は何時から?
• 20:47 3D 大画面で紅の豚観るか。 (@ ヨドバシカメラ マルチメディアAkiba w/ 9 others) http://4sq.com/77WGwe
• 20:56 「日本最大級」の級は思いきって取って欲しい。自信無さすぎ。
• 20:59 また山手線で京浜東北線を追跡する。
• 21:09 京浜東北線に追いついて乗れたぜ。
• 21:14 電車の中なのでタイムラインで豚味わう。
• 21:48 そういえば @as_tone が Twitter でウィンブルドンが盛り上がっていってたけど、うちんところでは全然ですから。
• 22:05 RT @panda_2009: 地味すぎﾜﾛﾀｗｗｗ → すごいぞ！ラピュタは本当にあったんだ！ http://bit.ly/a9gdEK
• 22:06 RT @shuzo_matsuoka: おい！誰だ！今「腐海で生きるナウシカは腐女子ですかって？」って言ったのは！？
• 22:08 明日は妊婦が我が家にやってきます。
• 22:42 紅の豚の飛行艇けっこう売ってるんだな。 http://amzn.to/bRlpV3
• 23:01 今読んでいるのコレ。横浜ブリキのおもちゃ博物館館長の北原照久氏「夢の実現—ツキの10カ条」 http://amzn.to/bELPbs
• 23:13 やっぱり、ちょっと喉が腫れてきている感じ。
• 23:20 ベンザブロックL。

今日のさえずり: 私の隣の席は空席ですがゴミ捨て場ではありません

2010年11月11日

• 09:32 @yamakiyo そういえば iPhone アプリは何を作ったの?
• 11:03 Frame Grabber for Xperia はインストールしておいてみた。
• 12:34 @yamakiyo おお、ぜひブラッシュアップして公開を。
• 12:35 おにぎりとパン 310円。
• 13:07 U+00A0 にちょっぴりハマってた。
• 14:13 肩が冷える感じなのでフリース着用。この間洗濯して持ってきたやつ。
• 14:22 Growl for Windows で通知が他のウィンドウの上に出たり下に出たりするの何とかならないかな。いつもトップでいいんだけれど。
• 14:48 Smokestack だからか。 Plain だと最前面になる。 RT @Naney: Growl for Windows で通知が他のウィンドウの上に出たり下に出たりするの何とかならないかな。いつもトップでいいんだけれど。
• 15:20 TranslucentDark にした。 RT @Naney: Smokestack だからか。 Plain だと最前面になる。 RT @Naney: Growl for Windows で通知が他のウィンドウの上に出たり下に出たりするの何とかならないかな。
• 15:26 管理グループ長がたしか、クラウド コンピューティングEXPOに行ったはずなんだけれど、一体何を見にいったのだろう。 http://bit.ly/9j0noo
• 16:13 substr の長さ間違えてて最後の1桁読んでなかったとか。
• 16:37 私の隣の席は空席ですがゴミ捨て場ではありません。
• 17:33 Win32::FileOp って2003年のが最新版か。ちょっと古いな。
• 19:41 ボジョレー・ヌーヴォー来週か。でも妻とは別行動の日なんだな。
• 21:03 Amazon.co.jp はカラー違いで値段違いすぎ。
• 21:46 土曜日 11:20 ぐらいから東京駅構内(改札内)で軽く食事とるのどこがお薦めだろう。
• 22:12 @zakwa やはりカフェ系が手軽よさそうですね。東京駅内は変化が激しくて Web では調べにくくて。
• 22:14 Dila東京どうかなと思ってたんだけれど、2010年9月5日で閉鎖かあ。
• 22:42 何か外で猫がギャーギャー鳴いてる。発情期っていつ?
• 22:47 そういえばほぼ日手帳2011の BLACK CASE ってもう発売してたんだ。そして初回入荷分は完売。カバーのみで12,000円て予想より高いでやんの。
• 22:49 それに「ほぼ日刊イトイ新聞」ってロゴが PORTER ロゴの上にあるので、なんか雑誌連動ものっぽくてザンネンな感じ。
• 22:59 「自動システムでは「nDiki」という名称は認められません。詳しくはこちら」
• 24:01 少なくなくなってきたアラビックヤマトをブシューブシューってしたい。
• 24:02 アラビックヤマトは1975年9月発売開始か。
• 00:06 昔郵便局にあったのって壺糊だったよね。
• 00:10 せっかく Xperia を Android 2.1 にしたので "Android 2.1 以降" で検索してみる。
• 00:21 "Android 2.1 以上" の方が良さそげ。
• 00:41 Facebook の公式 Android アプリケーションだとファンページは見られないのかな。

Visual C++ Win32 コンソールアプリケーションへのメモリリーク検出の埋め込み

Visual C++ 2005 で開発のプログラムがどうもメモリリークしているっぽい。 メモリリーク検出を仕込む方法のメモ。

stdafx.h

デバッグバージョンのヒープ割り当て関数を使うようにするマクロ定義と crtdbg.h のインクルードをする。 メモリリーク情報ダンプの際にレポートにファイル名と行番号が出るように new を書き換えるマクロを定義する。

 // デバッグバージョンのヒープ割り当て関数を使うようにする。
 #ifdef _DEBUG
 #define _CRTDBG_MAP_ALLOC
 #include <stdlib.h>
 #include <crtdbg.h>
 #endif

 // _CRTDBG_MAP_ALLOC に関係なくプリコンパイルしたいもの。
 // かつ new を書き換えるとコンパイルが通らなくなるヘッダファイル群。
 #include <string>

 #ifdef _DEBUG
 // プリコンパイルするほどではないけど、
 // new を書き換えるとコンパイルが通らなくなるヘッダファイル群。
 // 例えば。
 #include <map>

 #define new new(_NORMAL_BLOCK, __FILE__, __LINE__)
 #endif

 // プリコンパイルしていもの。
 #include <myproj/utility.h>

main 関数

終了時にメモリリーク情報をダンプさせるようにする。 また、コンソールアプリケーションの標準エラー出力にレポートが出力されるように設定する。

 int main(int argc, char* argv[]) {
   // 終了時にメモリリーク情報をダンプさせる。
   _CrtSetDbgFlag(_CRTDBG_ALLOC_MEM_DF | _CRTDBG_LEAK_CHECK_DF);


   // レポートをファイルに書き出させる。
   _CrtSetReportMode(_CRT_WARN, _CRTDBG_MODE_FILE);
   _CrtSetReportMode(_CRT_ERROR, _CRTDBG_MODE_FILE);
   _CrtSetReportMode(_CRT_ASSERT, _CRTDBG_MODE_FILE);

   // レポートを標準エラー出力に出力させる。
   _CrtSetReportFile(_CRT_WARN, _CRTDBG_FILE_STDERR);
   _CrtSetReportFile(_CRT_ERROR, _CRTDBG_FILE_STDERR);
   _CrtSetReportFile(_CRT_ASSERT, _CRTDBG_FILE_STDERR);

   // 処理を開始。
   ...
 }