記事はあとで投稿します
今日は上鶴間交響吹奏楽団の第10回 定期演奏会でも聞いてこようかと。(勿論無料)
で、明日 23日はさと子さん。
明後日 24日はこどもの国で、鴨居中学校のクリスマスコンサート
さて、水道代はいつ払われるのでしょうか。
で、明日 23日はさと子さん。
明後日 24日はこどもの国で、鴨居中学校のクリスマスコンサート
さて、水道代はいつ払われるのでしょうか。
NEF (デジカメで撮った生データ)は今、以下のように現像(変換)しています。
NEF == SILKYPIX ==> Tiff (撮影データ付き)
Tiff == GIMP(撮影データ無視) ==> jpeg
SILKYPIX の出力する jpeg が汚いので、GIMP で jpeg に変換しているのですが、これだと撮影時のデータ(シャッター速度、絞り、ISO、ホワイトバランス etc)が jpeg に反映されません。なので、NEF からデーターを読んで出力した jpeg に書き込めるのが欲しいなぁと思っているところ。
Image::ExifTool::NikonCapture これで NEF を読んで、Image::ExifTool で、現像した Tiff からホワイトバランスを読んで、jpeg に書込ができるかなぁと。
どこかに無いかなぁ。
rational64u[4] ってなんだろう？って思ったら分数でしたか。==> EXIFデータの構造 の画像内。
おうちはデジカメ現像の為に今 Win なので、ActivePerl がサポートしてるパッケージでないと使えないんだよなぁ。これ、入ってるかなぁ？
とりあえず、Exif のダンプは
しかし、やってることが発散しすぎσ(^^)
ActivePerl の実行結果。
C:\Documents and Settings\Administrator>perl -v
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 18 registered patches, see perl -V for more detail)
...(略)
C:\Documents and Settings\Administrator>ppm install Image::ExifTool
Downloading ActiveState Package Repository packlist...not modified
Downloading Image-ExifTool-5.32...done
Unpacking Image-ExifTool-5.32...done
Generating HTML for Image-ExifTool-5.32...done
Updating files in site area...done
88 files installed
C:\Documents and Settings\Administrator>perl -MImage::ExifTool -e "{print $Image::ExifTool::VERSION . $Image::ExifTool::RELEASE;}"
5.32
Image::ExifTool あったけど古すぎ...
C:\Documents and Settings\Administrator>ppm install Crypt::OpenPGP
Downloading ActiveState Package Repository packlist...done
Updating ActiveState Package Repository database...done
ppm install failed: Can't find any package that provide Crypt::OpenPGP
Crypt::OpenPGP は無いのねぇ。
NEF == SILKYPIX ==> Tiff (撮影データ付き)
Tiff == GIMP(撮影データ無視) ==> jpeg
SILKYPIX の出力する jpeg が汚いので、GIMP で jpeg に変換しているのですが、これだと撮影時のデータ(シャッター速度、絞り、ISO、ホワイトバランス etc)が jpeg に反映されません。なので、NEF からデーターを読んで出力した jpeg に書き込めるのが欲しいなぁと思っているところ。
Image::ExifTool::NikonCapture これで NEF を読んで、Image::ExifTool で、現像した Tiff からホワイトバランスを読んで、jpeg に書込ができるかなぁと。
どこかに無いかなぁ。
rational64u[4] ってなんだろう？って思ったら分数でしたか。==> EXIFデータの構造 の画像内。
おうちはデジカメ現像の為に今 Win なので、ActivePerl がサポートしてるパッケージでないと使えないんだよなぁ。これ、入ってるかなぁ？
とりあえず、Exif のダンプは
use Image::ExifTool;
my($file) = "./test.jpg";
my($exifTool) = new Image::ExifTool;
my($exifInfo) = $exifTool->ImageInfo($file);
my($key);
for $key (sort keys %$exifInfo){
print("$key : $exifInfo->{$key}\n");
}
で良いようです。my($file) = "./test.jpg";
my($exifTool) = new Image::ExifTool;
my($exifInfo) = $exifTool->ImageInfo($file);
my($key);
for $key (sort keys %$exifInfo){
print("$key : $exifInfo->{$key}\n");
}
しかし、やってることが発散しすぎσ(^^)
ActivePerl の実行結果。
C:\Documents and Settings\Administrator>perl -v
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 18 registered patches, see perl -V for more detail)
...(略)
C:\Documents and Settings\Administrator>ppm install Image::ExifTool
Downloading ActiveState Package Repository packlist...not modified
Downloading Image-ExifTool-5.32...done
Unpacking Image-ExifTool-5.32...done
Generating HTML for Image-ExifTool-5.32...done
Updating files in site area...done
88 files installed
C:\Documents and Settings\Administrator>perl -MImage::ExifTool -e "{print $Image::ExifTool::VERSION . $Image::ExifTool::RELEASE;}"
5.32
Image::ExifTool あったけど古すぎ...
C:\Documents and Settings\Administrator>ppm install Crypt::OpenPGP
Downloading ActiveState Package Repository packlist...done
Updating ActiveState Package Repository database...done
ppm install failed: Can't find any package that provide Crypt::OpenPGP
Crypt::OpenPGP は無いのねぇ。
pgplet
で
./pgplet --symmetric --armour ~/file.txt
と実行して出てきたメッセージを pgp -o - file.asc で、デココードすると
で
./pgplet --symmetric --armour ~/file.txt
と実行して出てきたメッセージを pgp -o - file.asc で、デココードすると
> gpg -o - ./ZZZ.asc Sat, 22 Dec 2007 12:11:21と少なくとも「警告: メッセージの完全性は保護されていません」なんて出ないんですよねぇ。何が足りないんだろう？私の頭なのは確実として...
gpg: AES暗号化済みデータ
gpg: 1 個のパスフレーズで暗号化
dummy data
gogogo
gagaga
tatata
tototo
mamama
rarara