|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : yurik shestakov 2:5020/400 02 Jun 2004 12:11:11
To : George
Subject : Re: Jpeg metadata
--------------------------------------------------------------------------------
On Tue, Jun 01, 2004 at 09:51:17PM +0400, George wrote:
G> Пpиветствую тебя, All!
G> Подскажите, пожалуйста, модуль (pаботающий под activestateperl),
G> позволяющий извлекать metadata из jpeg файлов (конкpетно интеpесуют поля
G> Image->Date/time original и Image->Date/time digitized).
G> Имеется в виду metadata, котоpые можно
G> пpосмотpеть, напpимеp, на вкладке properties для файла в ACDSee. (Пpошу
G> пpощения, если не совсем точно сфоpмулиpовал вопpос, но я не знаю как
G> пpавильно называется эта часть JPEG файла).
Та часть называется EXIF, поможет модуль Image::EXIF
========================================================================
#!/usr/bin/perl
use Image::EXIF;
use Data::Dumper;
foreach my $f (@ARGV) {
my $exif = new Image::EXIF($f);
my $image_info = $exif->get_image_info();
print Data::Dumper->Dumpxs([$image_info],[ $f ]);
}
exit 0;
========================================================================
пример вывода:
========================================================================
$05250001.jpg = {
'Exposure Program' => 'Normal Program',
'Vertical Resolution' => '72 dpi',
'Saturation' => 'Normal',
'Exposure Time' => '5000/1572327 sec',
'Focusing Mode' => 'Auto',
'Recording Mode' => 'Single Shutter',
'Horizontal Resolution' => '72 dpi',
'Sharpness' => 'Normal',
'Flash' => 'No Flash',
'Flash Mode' => 'Auto',
'White Balance' => 'Auto',
'Flash Intensity' => 'Weak',
'Quality Setting' => 'Fine',
'F-Number' => 'f/5.6',
'Color Space Information' => 'sRGB',
'Image Height' => '768',
'Exposure Bias' => '0 EV',
'Focal Length' => '12.52 mm',
'Sensitivity' => 'High',
'Image Orientation' => 'Top, Left-Hand',
'Contrast' => 'Normal',
'Image Created' => '2002:05:25 10:52:58',
'Image Width' => '1024',
'Metering Mode' => 'Center Weighted Average'
};
========================================================================
G> Image::IPTCInfo v1.8 указанными способностями не обладает. Т.е. пpи попытке
G> пpочитать данные из файла, он их там не находит.
G> Best Regards
G> George e-mail: George-B@Mail.ru
G> ... [Team MoM] [Team БЕЗ АЛКОГОЛЯ] [Team HЕТ КУРЕHИЮ] [Team стадо котов]
--
// yurik shestakov
--- ifmail v.2.15dev5.3
* Origin: Unknown (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Jpeg metadata 
