Comment créer un plugin pour mpg dans une bibliothèque numérique en utilisant perl? - perl, perl-module

Je cherche à créer un plugin pour GreenstoneUne bibliothèque numérique pour extraire les métadonnées d'un fichier mpg. Est-ce que quelqu'un peut m'aider avec n'importe quelle documentation? Je suis totalement nouveau en Perl, je recherche donc également un bon livre de référence pour apprendre le Perl.

Réponses:

Image::ExifTool peut être utilisé pour analyser des fichiers MPEG (et de nombreux autres formats). La documentation contient de nombreux exemples d'utilisation. Par exemple, pour imprimer le BitDepth d'un fichier:

#!/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");