なんか忘れてねぇか？３。

■ 情けは人の為ならず

自爆して良いとのお許しを貰ったのでとりあえずネタ提供。

一日会議をやっと終えて帰り際、いつものようにオプション袋をチェック・・・

してたらh4150のキーボードが見当たらない。

今日は出してない*1し、昨日帰ってから出した記憶もない。

こりゃ店に忘れたかと迷惑を顧みずデスマ中の人生三度目の人に電話。*2

首尾よく店の連絡先を調達、帰宅中に携帯から電話。*3

ちょうど昨日の夜勤の人が出たので聞いてみるも、覚えなしとのこと。

とりあえずマネージャに聞いてもらうことにして帰宅、昨日の鞄をひっくり返してみる。

・・・

発見（爆）*4

関係各員にお詫びして３０分の騒動は終了。

■ 不意打ち。

５時前にふと目が覚めてまどろんでいるときにグラッと。

まったく朝から心臓に悪い。

…

二度寝しそこなったorz

■ 外出。

朝から相模原の客ンとこに納品。

なんか作業時間より社長の雑談のほうが長かった…

■ [日々の糧]晩飯

一口豚カツ用肉と適当に野菜も衣つけて揚げ物。

先に後片付けすると冷めちまうのが難点だな*1

■ ねた。

• ３万円代前半のＨＤＤレコ
  

VirtualRD使えればPCに余裕がある間はこれでも充分だのぉ。

• DVDリッピング防止技術発表
  

MacroVisionってところに一抹の不安が…

• Nifty終焉へ
  

過去ログまだ取れるかな…

• １０万以下VAIOは売り切れ状態
  

Cel-Mはともかく光学ドライブが足りないってのはどーよ。

• 顔認証AF搭載デジカメ
  

さすがにこーゆーのでは認証は無理かと（笑）

■ お約束。

久々に立川で飲んだら帰ってBTQ。

高々焼酎４杯でこれとは…もろいものよのぉ。

■ 逃避。

わがままなおっさん向け。私は使う当てがないので（^^;

opendir(DIR,”.”);

@file = readdir(DIR);

closedir(DIR);

open (FILE,'>./exif.txt');

foreach $fname (@file) {

if ($fname =~ /￥.jpg/) {

print FILE $fname;

print FILE ”￥n”;

print FILE ”＜START＞￥n”;

print $fname ;

print ”￥n”;

%ExifInfo = &InquireExif($fname);

&WriteExifTAG( FILE,en,%ExifInfo);

print FILE ”＜END＞￥n￥n”;

}

}

close(FILE);

前提：perl.exeにパスが通っている状態(v5.6.1で確認)

※上は一部記号を全角化してあるので、全て半角にする必要があります。

cachuさんのExifInfo,plの最初のところ(サブルーチンコメントの前まで）を差し替え、

コマンドプロンプトからjpg画像が置いてあるフォルダにて実行すれば

多分同一フォルダの画像を全部舐めてExif.txtを書き出す。

当然makernoteフォルダも必須。

エラーチェックすら入れていないので、おかしいデータがあった場合にどうなるかは不明。

欲しい人がいるとも思えないけど、使用、改変は自由。

ただし、手を加えないで転載は恥ずかしいので勘弁してください。

#WSHでExifInfo.pl呼び出したほうがスマートだったような…

■ [だめだめ]打てど響かず。

○|￣|＿

■ [日々の糧]晩飯

手抜きでカレーうどん。

…

おお。Yシャツに染みつけるところだったよ＜着替えろ

■ [日々の糧] 晩飯

買い物行っても今ひとつ。

仕方ないので松原商店街で買った*1鯵の丸干しを焼いて納豆ご飯と豆腐の味噌汁で。

■ [日々の糧] 晩飯

今日も遅くなったので残りご飯で適当に…とか思ってたら粕漬け赤魚がもう一切冷蔵庫に残っていたのに気がつく。

ちょい手間だがとりあえず焼いてあとは豆腐の味噌汁。

ちと赤味噌多かったか…

■ 細道。

多少余裕ができたので年末から英語情報しかないんで忌避してたところの補填開始。

なんか変な値が帰ってきてるところもあるが、おおむね動く検証コードまで終わり。

さて、いつ本流に突っ込むべきか…

■ [日々の糧] 晩飯

やっと最後の冷凍保管鰯４匹を開いて大葉と叩き梅干巻いたのをごま油で焼いて。

ちょい梅干多かったか…ま、明日の弁当のアテもできたし及第点でしょ。