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

でも、今回使ったサンプル動画では、たいした情報は入っていませんでした...

--------
http://www.suz-lab.com

0 コメント: