Как создать плагин для MPG в цифровой библиотеке с помощью Perl?

Question

Я ищу создание плагина для цифровой библиотеки greenstone для извлечения метаданных из файла mpg. Кто-нибудь может мне помочь с любой документацией? Я совершенно новичок в Perl, поэтому я также ищу хороший справочник для изучения Perl.

Answer 1

Image::ExifTool может использоваться для анализа файлов MPEG (и многих других форматов). В документации много примеров использования. Например, чтобы напечатать BitDepth файла:

#!/usr/bin/env perl

use strict;
use warnings;

use Image::ExifTool;

my $filename = '/path/to/file';

my $exif_tool = Image::ExifTool->new;
$exif_tool->ExtractInfo($filename);
print $exif_tool->GetValue('BitDepth');