OBJECTIVES’

今日が発送予定の最終日なのにいまだにステータスが未発送です……ﾋﾄﾞｽ
ところで一昨日、本屋の店頭に並んでたのでMy Music Studioの創刊号を衝動買いしたんです。CMで「鼻歌で作曲」とかて言ってたのでついてるシーケンサがSingerSongWriterで間違いねえと確信しての購入なんですけどねｗ。
インストールしていじってみましたが純粋にSSWじゃなくて、Singer Song Writer MyMusicStudio（SSW MMS)てことでSSW8の機能制限版という体裁になってました。刊行予定をみると50号でSSWが完成するスケジュールになってるんですが、そこまで買い続けるとSSWのパッケージ実売価格より高くなる罠（分冊百科商法だし）。もっとも、冊子の内容次第では50号くらいが意外とちょうど投資額と等価になったりしそうな予感？普通にSSWパッケージ購入しても3万超えるわけだし。

そうそう、触ってみてすぐわかる機能制限としては
音符入力のみ動作して、ピアノロールでの編集やステップ入力はできない。
VSTiプラグインは同時に1つしか動かない。

はっきりいって創刊号メリットはVSCが490円で入手できることくらいです。
ちなみに2号付録はマイクつきヘッドフォンだそうな。
SSWが現状だとしょぼすぎて凝った用途には使えないなあ。

私はサクラでMMLごりごり書くのが一番楽という人種なのでシーケンサの機能制限とか関係ないですけど。
つか、ミクの技術資料が早く読みたいなぁ……。

まあ、私は負け組みなので……手元に来るのはやくて２０日らしい。

それはそれとしてくそﾜﾛﾀwwww↓

WindowsでActivePerl最新版を使ってニコニコ動画で遊びます。
とりあえずPPMで必要なモジュールをインストールっ。
コマンドプロンプトでPPMを実行。
標準のActivestateのリポジトリだとインストールできないものがあることとバージョンが古いものになるのでtcool.orgを利用させてもらいます。

> ppm install http://ppm.tcool.org/archives/WWW-Mechanize.ppd 
> ppm install http://ppm.tcool.org/archives/Crypt-SSLeay.ppd 
> ppm install http://ppm.tcool.org/archives/Config-Simple.ppd 
> ppm install http://ppm.tcool.org/archives/Jcode.ppd

次、PPMで入れられないモジュール(実はPPMパッケージを作る処理が同梱されてますがppdで配布してるところを知りませんので)なんですが下でネタにしてるFLV::ToMP3が入っているモジュールFLV::Infoも入れましょう。こちらはCPANのサイトから直接圧縮ファイルをダウンロードしての導入作業が必要になります。以下説明。
まず、CPANの「FLV::Info」のページを開きます。

画面のDownloadからファイルを保存します。
ファイル「FLV-Info-0.18.tar.gz」を作業用にC:\tmpみたいな適当なフォルダに置きます。圧縮ファイルなので解凍ソフトでフォルダ付で解凍します。
コマンドプロンプトで解凍されてできたフォルダに移動します。
で、次のコマンドを実行。

> perl Build.PL 
> perl Build install

が、モジュールが足りないとエラーが出ると思います。というわけで改めてPPMで追加しましょう。

> ppm install AMF::Perl 
> ppm install SWF::File 
> ppm install Readonly

これらのモジュールがインストールできたら再度

> perl Build install

これで、おｋ。

久々にPerlで小物作成。
ニコニコ動画のFLVファイルをダウンロード＆MP3作成。
動作に必要なジュールの説明は後ほど。

#!/usr/bin/perl
 
# mp3kure.pl
# programmed by MDR
 
use strict;
use WWW::Mechanize;
use Config::Simple;
use CGI;
use FLV::ToMP3;
 
my $url = ({
    TopPage => 'http://www.nicovideo.jp/',
    Watch   => 'http://www.nicovideo.jp/watch/',
    Api     => 'http://www.nicovideo.jp/api/getflv?v='
});
my $conf = Config::Simple->new('./mp3kure.ini')->vars();
 
my $mech = WWW::Mechanize->new( keep_alive=>4 );
$mech->get( $url->{'TopPage'} );
$mech->set_fields(
    mail => $conf->{'Main.Mail'},
    password => $conf->{'Main.Password'}
);
$mech->submit();
 
$mech->get( $url->{'Watch'} . $ARGV[0]);
my $res = $mech->get( $url->{'Api'} .$ARGV[0]);
my $q = CGI->new( $res->content );
my $uri = $q->param('url');
$mech->get( $uri, ":content_file" => "./$ARGV[0].flv");
 
my $converter = FLV::ToMP3->new();
$converter->parse_flv("./$ARGV[0].flv");
$converter->save("./$ARGV[0].mp3");
 
#エラー処理？ そんなの関係ねぇ

設定ファイルはmp3kure.plと同じフォルダにmp3kure.iniを作って次の内容で置いてください。

[Main] 
Mail=ニコニコ動画にログインするメールアドレス 
Password=同パスワード