ファイル名とタイムスタンプ復旧

以前フォルダーがぶっ飛んでしまいサルベージされたもののファイル名が「FILExxxxx」になったり、タイムスタンプがサルベージした時間に変わってしまったものを perl スクリプトを書いて復旧させてみました。Image::ExifTool 以外は標準モジュールです。

#! /usr/local/bin/perl -w
eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
if 0; #$running_under_some_shell

use strict;
use File::Find qw();
use Time::Local;
use POSIX;

use Image::ExifTool 'ImageInfo';

sub Rename ($){
my $info = ImageInfo($_);
if (defined($$info{'DateTimeOriginal'})){
undef $$info{'ThumbnailImage'};

# 'DateTimeOriginal' => '2006:01:03 18:39:02'
$$info{'DateTimeOriginal'} =~ /^(\d{4}):(\d{2}):(\d{2}).(\d{2}):(\d{2}):(\d{2})$/;
my $ShotTime = timelocal($6, $5, $4, $3 , $2 - 1, $1 - 1900);
print "DateTimeOrignal: $$info{'DateTimeOriginal'}\n",
strftime("timestamp to: %F %T\n", $6, $5, $4, $3 , $2 - 1, $1 - 1900);
#--- utime $ShotTime, $ShotTime, $_;

# 'FileNumber' => '121-2187',
$$info{'FileNumber'} =~ /^\d{3}-(\d{4})$/;
print "$_ chenge to IMG_${1}.JPG\n";
#--- rename $_, "IMG_${1}.JPG";
}else{
print "$_: Can not found DateTimeOriginal. This file Skip!";
}
}

# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name = *File::Find::name;
*dir = *File::Find::dir;
*prune = *File::Find::prune;

sub wanted;


# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '.');
exit;


sub wanted {
# if(/^FILE.*\z/s) {
if(/^IMG_.*\z/s) {
printf("___ $name ___\n");
Rename ($name);
}
}

こんな感じ。
復旧させたファイルを適当に flickr へ載せてみました。

フィッシングサイト

またフィッシングサイトを見つけたので開いてみたら...

「ウェブの偽造」とか...ちょっと切れてますが(^^;
なかなか凄い警告ですね。フィッシングサイトで無い場合の連絡先が掛かれてますが、フィッシングサイトを見つけたときの連絡先はあるんだろうか？

フィッシングとセーフ ブラウジング機能のセキュリティ方法について
Google の技術と複数のソースから得た詐欺のページに関する報告を活用し、セーフ ブラウジングは疑わしいページにアクセスした場合に自動的に警告を発する機能を備えています。

「Google の技術と複数のソース」だけだと良く分からないですねぇ。

フォトストレージ

フォトストレージ(X's-Drive Pro)をチェックしてみた。
C:\>chkdsk /F f:
ファイル システムの種類は FAT32 です。
ボリューム シリアル番号は 0DD2-0B31 です
ファイルとフォルダを検査しています...
ファイルとフォルダの検査を完了しました。
ファイル システムのチェックが終了しました。問題は見つかりませんでした。
39,060,480 KB : 全ディスク領域
288 KB : 1 個の隠しファイル
4,416 KB : 138 個のフォルダ
19,813,088 KB : 5,586 個のファイル
17,845,824 KB : 不良セクタ
1,396,832 KB : 使用可能ディスク領域

32,768 バイト : アロケーション ユニット サイズ
1,220,640 個 : 全アロケーション ユニット
43,651 個 : 利用可能アロケーション ユニット

40GB のハードディスク上に、17GB の不良セクタ。問題は見つからなかったそうです。
む～、ちょっと前に マイコンピュータ > ドライブを右クリックしてプロパティ > ツール > エラーチェック > 不良セクターをスキャンし、回復する
辺りでダメージを食らったかと。
一旦どこかに退避させてから、再フォーマットだな。
X's Drive VP6230 とか P-4500 とか P-4500 なんかに買い換えるか？(笑)

DVDレコーダー

パイオニアがＤＶＤレコーダー開発中止、次世代機は松下と提携
現在開発している機種が最後になり、以降は Panasonic の OEM となってしまうらしい。
使いやすいらしいのだが残念。値段が下がりそうだし逆に買ってみるべきか？でもテレビがいまどき S端子も付いてないし。
買うなら、DVR-DT100(Pioneer)か RD-XD92D (東芝)が良いのかな？まぁ、ローンを組まなきゃ無利だな。とりあえず、住民税を完納して、テレビを買い換えて、おうちのパソコンが動き出してからということで。

北朝鮮の写真

暴露ウイルスで北朝鮮の内部写真が流出

なんてのは面白かったですが、

日本は、「西洋列強」からは嫌われていましたよ。
他のアジアの国々からは、人民解放軍として
喜ばれていまいしたが。

？？？

おもしろおかしいが付いていますが、「自作ポエムなんて発表しようものなら思想犯として死刑ですよ。」辺り、本当かも知れずちょっと怖い。

KAMUI痩身の半島ネタなので
ちと笑った。