Codin’ In The Free World

■[Perl5][FLV] FLVにメタ情報を埋め込む

FLVのプレイヤーをFlashで作成するときに

FLVのメタ情報を読んで、再生時間等を取得するようにします。

FFMpeg等、エンコード方式によってはメタ情報が

入らない場合がありますので、強制的に埋め込みます。

Perlの場合はFLV::Infoパッケージに含まれている

FLV::Fileのpopulate_metaを使います。

#!/usr/bin/perl
use strict;
use warnings;

use FLV::File;
use IO::File;

my $file = $ARGV[0];

unless (-e $file && -f _ && -w _) {
    die "set correct writable filename.";
}

my $info = FLV::File->new;
$info->parse($file);
$info->populate_meta();

my $fh = IO::File->new($file, "w");
$info->serialize($fh);
$fh->close;

Permalink | コメント(0) | トラックバック(0) | 13:05