tito Memo

* DS-50アップデート

1.06→1.12へ

1.02aへアップデートした。

* 本日のお買い得

thinkpad X61T SXGA+ モデルがthinkvantage club会員価格で20万をきってます。

* ☆氷川祭り☆

「氷川神社　例大祭」は、 ~☆氷川祭り☆~に名称を変更いたしました。 (自動転送ページ)

天気が荒れそうで心配

* わかった。名称変更ってページの事ね。お祭りの名前が変わったかと思ってびっくりした。

* 五反田、氷川神社、例大祭

* ファイルのタイムスタンプを変えたくない

何かの処理たとえば mp3ファイルのタグを書き換えたりとかjpgの縦横を変えたりとかしたときにタイムスタンプを元のままにしたいときがある。そういう時のためにあらかじめタイムスタンプを記録しておいて、何がしかの処理が済んだ後でタイムスタンプを元に戻すperlスクリプト。エラーチェックはなし。

 #! /usr/local/bin/perl
 
 if( $ARGV[0] eq "-w" ){
     shift;
     $now = time;
     while(<>){
         ($m, $filename) = split();
         print "$m $now $filename ";
         $ret =  utime $now, $m, $filename;
         print "$ret\n";
     }
 
 }
 else{
     
     while( @ARGV ){
         $filename = $ARGV[0];
         @st = stat( $filename );
         if( @st ){
             $m = @st[9];
             print "$m $filename\n";
         }
         shift;
     }
 }

あらかじめ

$ perl foo.pl *.mp3 > bar

のようにしてタイムスタンプ情報を保存しておく。処理が済んだ後にファイルbarの情報を元に戻す。

$ perl foo.pl -w < bar

windowsで動作確認した。けど空白を含むファイル名とかあったらしらない。

* ファイルのタイムスタンプを変えたくない(2)

unix シェル上での別のやり方。スクリプト要らず。

$ mkdir ../timestamps/; for i in *.mp3; do touch -r $i ../timestamps/$i;done

として どこか(ここでは../timestamps)に元のファイルのタイムスタンプを持つ一時ファイルを作っておく。タイムスタンプを戻すときは

$ for i in *.mp3; do touch -r ../timestamps/$i $i; done

で戻る。