わいえむねっと

Contents
Categories
Calendar
2026/06
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30
Monthly Archives
~2000/01
Recent Entries
RSS1.0
Templates
Information
Processed: 0.052 sec
Chashed: -
2008/05/22 Thu
デミタス。
ヒルメシヌキ。
デミタス。
デミタス。 Rubyで書かれたソースを眺めながらPerlに思いを馳せる。
2008/05/21 Wed
Referer:
山崎製パン キャンペーン おいしく選んで!キャンペーン
http://www.yamaza​kipan.co.j​p/campaign/2008/08-choose/index.html​
はじまりますよ。 デミタス。
ヒルメシヌキ。
デミタス。
デミタス。 /etc/rc.d/rc?.d/K??foo が呼ばれていない気がすると思ったら、

/etc/rc.d/rc

# Check if the subsystem is already up.
subsys=${i#/etc/rc$runlevel.d/K??}
[ -f /var/lock/subsys/$subsys -o -f /var/lock/subsys/$subsys.init ] \
	|| continue

ああ。
/var/lock/subsys/foo を touch してなかった。
2008/05/20 Tue
perlからsmbclientを使ってみるテスト。

print `/usr/bin/smbclient //192.168.xxx.xxx/foo -U USERNAME%PASSWORD -c 'put FILE'`;
デミタス。
ヒルメシヌキ。
デミタス。
デミタス。
2008/05/19 Mon
どう考えても昨日は飲みすぎたはずだけれど平然と仕事。
昼飯は抜き。 他方はバイト数だけ留意し、":△"のところを":"としたのに気付かず。
他方は半角に統一することだけ留意し、":"を":△"とするべきところを":"としたのに気付かず。
クロスチェックて大事という話。
2008/05/18 Sun
おはようございます。トイレです。小坂那也です。(挨拶)
私がトイレなわけではないです。トイレに無線LANの電波が届いたのでトイレからリモートデスクトップです。
これならもうずっと便座の上で過ごせばいいじゃないと思ったけれど、そもそもそんなに便座に座る機会がない僕です私です風の向くままコーラックの向くままです。 浅草の三社祭に呼ばれて酒だけかっくらってくる。
だいぶかっくらってくる。
同席していた協力会社の取締役殿に心配されるほどかっくらってくる。

先日、取締役といった店は取締役の娘さんの友達の親御さんの店だったらしい。
そしてその娘さんの友達がその場にいたらしい。
世の中狭すぎる。
2008/05/17 Sat
アセトアルデヒドを生成するのに費やすいつもの土曜日。
先週もそんなこと言っていたような。まぁ、いつものですから。
それにしても今週は水木金と飲みすぎました。
明日も飲酒予定です。
俺の肝臓の未来はどっちだ。 荷物を三箱受け取って。 連日の飲酒で財布がすっからかんになっていたのをコンビニのレジで気が付いて。
レンジの中で回る弁当を呆然と見やる。
あああ!

1. 逃げる。
2. 事情を話して、ATMでおろさせてもらう。
3. PASMOで支払う。

そうだ!PASMOあったよ!
便利になったなぁと。 先日、取締役と行った店から「何杯でも生ビール100円券」が届きました。
ビールを飲まないので少し悲しくなりました。
今日も平和です。
2008/05/16 Fri
昼飯抜き。 rpmbuild の strip処理についてちょと調べる。

/usr/lib/rpm/brp-strip (RH7.2)

# Strip ELF binaries
for f in `find $RPM_BUILD_ROOT -type f \( -perm -0100 -or -perm -0010 -or -perm -0001 \) -exec file {} \; | \
    grep -v ' shared object,' | \
    sed -n -e 's/^\(.*\):[ 	]*ELF.*, not stripped/\1/p'`; do
    strip $f || :
done

/usr/lib/rpm/brp-strip (RHEL4)

# Strip ELF binaries
for f in `find $RPM_BUILD_ROOT -type f \( -perm -0100 -or -perm -0010 -or -perm -0001 \) -exec file {} \; | \
    grep -v "^${RPM_BUILD_ROOT}/\?usr/lib/debug"  | \
    grep -v ' shared object,' | \
    sed -n -e 's/^\(.*\):[ 	]*ELF.*, not stripped/\1/p'`; do
    strip -g $f || :
done

/usr/lib/rpm/brp-strip-comment-note (RH7.2, RHEL4)

# Strip .comment and .note sections (the latter only if it is not allocated)
# for already stripped elf files in the build root
for f in `find $RPM_BUILD_ROOT -type f \( -perm -0100 -or -perm -0010 -or -perm -0001 \) -exec file {} \; | \
    grep -v "^${RPM_BUILD_ROOT}/\?usr/lib/debug"  | \
    sed -n -e 's/^\(.*\):[ 	]*ELF.*, stripped/\1/p'`; do
    note="-R .note"
    if objdump -h $f | grep '^[ 	]*[0-9]*[ 	]*.note[ 	]' -A 1 | \
        grep ALLOC >/dev/null; then
        note=
    fi
    strip -R .comment $note $f || :
done

strip -g と strip -R .comment -R .note と。
判定は意外にベタですね。 フロアの端っこで作業していたら、隣の事業部長がぬっと顔を出し。

事「忙しいのかー?」
魚「いえ、そんなには」
事「飲みに行くけど」
魚「行きます(即答)」

焼酎ボトルをテーブルの対角に置かれたことなど意にも介さず、「おかわりお願いしまーす」を連呼し続けて。
あと、いつもながら余計なことをしゃべりすぎだ。この人。
2008/05/15 Thu
昼飯抜き。 多言語メッセージリソースメモ:
Sample Message Text File (Windows)
http://msdn.micro​soft.com/en-us/library/aa385769(VS.85).aspx
Be aware that you must use a Unicode-compatible editor to simultaneously support the characters used in different written languages.
としか書いていないけど、例によってUTF16LEで保存しろということらしい。
BOMはあってもなくても可。出力結果にも差異はなし。

Message Compiler (MC_exe) (Windows)
http://msdn.micro​soft.com/en-us/library/aa385638(VS.85).aspx
-a
Specifies the input file is ANSI (default).

-u
Specifies that the input file is Unicode.
ANSI文字がデフォルトなので -u 必須。

自前で使用するなら、

FormatMessage Function (Windows)
http://msdn.micro​soft.com/en-us/library/ms679351(VS.85).aspx
dwLanguageId
The language identifier for the requested message. This parameter is ignored if dwFlags includes FORMAT_MESSAGE_FROM_STRING.

に MAKELANGID(LANG_JAPANESE, SUBLANG_DEFAULT) とか MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US) を。
あと、ActivePerlでUTF16を扱うには一手間必要。

スクリプティング言語資料室(仮)
http://www.kt.rim​.or.jp/~kbk/
ActivePerlで UTF-16(BE|LE)のデータを出力するときの注意事項
ActivePerlではファイルをオープンしようとすると、特に指定しなければ テキストモードでオープンします。 このため出力の文字コードにUTF-16のデータを出力しようとしたとき、 テキストモード時に行われる LF → CR LF 変換が変なタイミングで 行われてしまうため、出力結果がおかしくなります。 対応策は 183 : Writing a Unicode file via perl ... にあるとおり、ファイルのオープン時の指定を工夫するというものです。


if ( $ESENT ){ #ifdef ESENT 
           open( INIFILE, "<:raw:encoding(UTF16-LE):crlf:utf8", "$INIFILE" ) || die "Cannot open $INIFILE: ";
           print INIFILE "\x{FEFF}";  # print BOM (Byte Order Mark) for the unicode file
} else { #else
           open( INIFILE, "<$INIFILE" ) || die "Cannot open $INIFILE: ";
} #endif

後輩が引っ越し先を探しているとかで、一之江の不動産屋に案内することに。
駅からすぐの不動産屋というか、取締役宅の近所の不動産屋というか、うちの近所の不動産屋というか、とにかく近所。
1件目に案内された物件が割と良い物件だったので後輩即決。
とりあえす祝い酒。
2008/05/14 Wed
Desktop Heap MonitorをWindows Server 2008で使おうと思ったら

Microsoft Support Professionals Toolkit for Windows
http://www.micros​oft.com/japan/windowsser​ver2003/downloads/supporttoo​ls.mspx
サポートする OS と CPU アーキテクチャ :
Windows 2000
Windows XP (x86 版、x64 版)
Windows Server 2003 (x86 版、Itanium 版、x64 版)

そもそも対応していなかったと思ったら

Windows Serverによる基幹システムに向けた富士通の取り組み 富士通
http://primeserve​r.fujitsu.​com/primequest​/products/os/mc-windows.ht​ml
マイクロソフト社ほか数社による共同開発ツールを提供しています。高いWindows技術力を持ち、厳しいお客様要件を熟知した富士通が仕様検討から開発、検証まで一貫してツール開発の具体化に貢献しています。

これらのツール開発は、Windows Server 2008に向けても鋭意準備を進めています。

準備中。 新しい店を見つけたからと取締役に連行されて、定時退社飲酒。
もつ鍋の店らしい。
と思いきや、もつ鍋の店ではありませんでした。
というか、今の時期はもつ鍋やってませんでした。
まぁ、それはそれとして飲酒。
ワイン党の取締役に強引に焼酎を付き合っていただきなんだかんだで一本空けて。

結局やっぱりワインを飲みたいらしい取締役から、水曜ですよ!と逃走したり。
2008/05/13 Tue
変な音どころか、靴底がもげた。かかと部分が。めりめりーと。
とりあえずアロンアルファ。ゼリー状。 ・デスクトップヒープメモ:
http://support.mi​crosoft.co​m/kb/826518/ja
To troubleshoot this problem, use the Gdiobj.exe tool to monitor the Brush column for PID 0. PID 0 represents GDI objects that are not private. If the Brush column continuously increases but does not decrease, you may be experiencing the leak that is described in this article. In this case, you can see the leak when you start and stop Microsoft Word; the Brush column increases by 2, but when you exit the program, it does not decrease.

To download the Gdiobj.exe tool, visit the following Feng Yuan Web site:
http://www.fengyuan.com/download.html (http://www.fengyuan.com/download.html)

で確認してみたところ、main() しかなくても DC 2つと Bitmap 1つと Brush 1つを消費するという結果に。何に使っているのさ。

あと、非対話型のデスクトップヒープは512KBもしくは768KBと小さいので、対話型に逃がしてみるテスト。

CreateProcess 関数
http://msdn.micro​soft.com/ja-jp/library/cc429066.a​spx
lpStartupInfo
新しいプロセスのメインウィンドウの表示方法を保持している、1 個の 構造体へのポインタを指定します。


STARTUPINFO Structure (Windows)
http://msdn.micro​soft.com/en-us/library/ms686331.a​spx
lpDesktop
The name of the desktop, or the name of both the desktop and window station for this process. A backslash in the string indicates that the string includes both the desktop and window station names. For more information, see Thread Connection to a Desktop.

を WinSta0\Default とかに。