2007年1月7日日曜日

[Perl] FLV を MP3 に変換

前回 に引き続き、今回は FLV を MP3 に変換し、音声を加工してみた。

$ perl -MCPAN -e shell
cpan> install FLV::ToMP3

$ vi flv2mp3.pl
use strict;
use warnings;
use FLV::ToMP3;

my $flv_filename = "shohei.flv";
my $mp3_filename = "shohei.mp3";

my $converter = FLV::ToMP3->new();
$converter->parse_flv($flv_filename);
$converter->save($mp3_filename);
exit;

flv2mp3.pl を実行後、超驚録で MP3 を加工し、WAV で保存。
できあがったのはこんな感じ

0 件のコメント: