如何使用perl在数字图书馆中为mpg创建插件？

Question

我正在寻找为绿石数字图书馆创建一个插件，用于从mpg文件中提取元数据。任何人都可以帮我提供任何文档吗？我是perl的新手，所以我也在寻找学习perl的好参考书。< / p>

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');