[osx-users:0115] Re: DOS メディアのタイム・スタンプ

[KIMURA Kazushi <kimu@xxxxxxxxxxxx>]

きむらです。

DOS メディアの件のその後です。

Developer/Tools に SetFile という、HFS+ 上のファイルの
作成日と更新日を変更できるコマンドがあることを知りました。

一方、デジカメの EXIF データには、撮影日が（ローカル
タイムで）記録されていますが、この辺を簡単に取り出せる
便利な Perl モジュールがあることが、下記ページにより判明。

テジカメあそび
<http://yen.cse.kyutech.ac.jp/~nobuo/misc/digicam/>

てなことで、EXIF の撮影日で、タイムスタンプを書き換える
スクリプトをちょろちょろっと書いてみました。
これでとりあえずデジカメ画像だけは救われました。

---
#!/usr/bin/perl

use Image::Info qw(image_info);

$cmdpath="/Developer/Tools/SetFile";

foreach $fname (@ARGV) {
    $i=image_info($fname);

    $_=$i->{DateTime};
    if ( /^$/ ) {
        printf "%s: empty date\n", $fname;
    } else {
        /([0-9]+):([0-9]+):([0-9]+) (.*)/;
        $setdate=sprintf "%s/%s/%s %s", $2,$3,$1,$4;
        $cmd=sprintf "%s -d \"%s\" -m \"%s\" %s",
            $cmdpath, $setdate, $setdate, $fname;

        printf "%s: set creation and mod. date=%s\n", $fname, $setdate;
        system $cmd;
    }
}
exit 0;


-- 
♪きむらかずし

--[PR]------------------------------------------------------------------
【 ウィ。チョイス！ 今週のぷちぷち 】
　　Ｑ．目玉焼きに何をかけて食べる？
　　　　　1.やっぱ塩でしょ　　　　　3.ソースが一番！
　　　　　2.しょう油ですよ　　　　　4.どれもちがう〜
　▼わたしは２番！ => http://ad.freeml.com/cgi-bin/ad.cgi?id=b3EEf
------------------------------------------------------------------[PR]--
<GMO GROUP> Global Media Online  www.gmo.jp