Perlで動画(mp4)のメタデータを取得

2010年2月26日金曜日

Perlで動画(mp4)のメタデータを取得

スズキです。

こんなCPANモジュールがあるので、簡単にできます。
http://search.cpan.org/~JHAR/MP4-Info-1.12/Info.pm

とりあえず、インストールして、

# yum install perl-MP4-Info

こんなコードで、

--------【Perl】--------
#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;
use MP4::Info;

my $file = "input.mp4";
my $mp4 = new MP4::Info $file;

print Dumper $mp4;
--------

結果は、こんな感じです。

$VAR1 = bless( {
　　'FREQUENCY' => '44.1',
　　'SIZE' => 663044,
　　'TIME' => '00:13',
　　'MS' => 247,
　　'SECS' => 13,
　　'_permitted' => {
　　　　'DISK' => 1,
　　　　'MS' => 1,
　　　　'TMPO' => 1,
　　　　'COMMENT' => 1,
　　　　'CPIL' => 1,
　　　　'COPYRIGHT' => 1,
　　　　'MM' => 1,
　　　　'TRKN' => 1,
　　　　'NAM' => 1,
　　　　'TRACKNUM' => 1,
　　　　'SS' => 1,
　　　　'WRT' => 1,
　　　　'FREQUENCY' => 1,
　　　　'GNRE' => 1,
　　　　'TOO' => 1,
　　　　'APID' => 1,
　　　　'ALB' => 1,
　　　　'GRP' => 1,
　　　　'COVR' => 1,
　　　　'RTNG' => 1,
　　　　'TITLE' => 1,
　　　　'ENCODING' => 1,
　　　　'CMT' => 1,
　　　　'SIZE' => 1,
　　　　'YEAR' => 1,
　　　　'ARTIST' => 1,
　　　　'SECS' => 1,
　　　　'GENRE' => 1,
　　　　'DAY' => 1,
　　　　'LAYER' => 1,
　　　　'TIME' => 1,
　　　　'ENCRYPTED' => 1,
　　　　'ALBUM' => 1,
　　　　'CPRT' => 1,
　　　　'BITRATE' => 1,
　　　　'ART' => 1,
　　　　'VERSION' => 1
　　},
　　'CPIL' => 0,
　　'ENCRYPTED' => 0,
　　'COPYRIGHT' => 0,
　　'MM' => 0,
　　'ENCODING' => 'mp4a',
　　'BITRATE' => 391,
　　'VERSION' => 4,
　　'SS' => 13,
　　'LAYER' => 1
}, 'MP4::Info' );