こんな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 コメント:
コメントを投稿