http://www.sevenearth.com/mdr/blog by MDR Tue, 02 Oct 2007 14:35:35 +0900 http://wordpress.xwd.jp/?v=ME2.1.3 ja http://www.sevenearth.com/mdr/blog/archives/680 http://www.sevenearth.com/mdr/blog/archives/680#comments Tue, 02 Oct 2007 23:34:50 +0900 MDR http://www.sevenearth.com/mdr/blog/archives/680 http://www.sevenearth.com/mdr/blog/archives/680/feed/ http://www.sevenearth.com/mdr/blog/archives/679 http://www.sevenearth.com/mdr/blog/archives/679#comments Fri, 21 Sep 2007 12:15:01 +0900 MDR http://www.sevenearth.com/mdr/blog/archives/679 http://www.sevenearth.com/mdr/blog/archives/679/feed/ http://www.sevenearth.com/mdr/blog/archives/678 http://www.sevenearth.com/mdr/blog/archives/678#comments Mon, 10 Sep 2007 23:42:18 +0900 MDR http://www.sevenearth.com/mdr/blog/archives/678 http://www.sevenearth.com/mdr/blog/archives/678/feed/ http://www.sevenearth.com/mdr/blog/archives/676 http://www.sevenearth.com/mdr/blog/archives/676#comments Sat, 08 Sep 2007 20:05:33 +0900 MDR http://www.sevenearth.com/mdr/blog/archives/676 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」のページ [1]を開きます。 画面の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 これで、おｋ。 [1] http://search.cpan.org/~cdolan/FLV-Info-0.18/]]> http://www.sevenearth.com/mdr/blog/archives/676/feed/ http://www.sevenearth.com/mdr/blog/archives/675 http://www.sevenearth.com/mdr/blog/archives/675#comments Sat, 08 Sep 2007 19:29:17 +0900 MDR http://www.sevenearth.com/mdr/blog/archives/675 '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=同パスワード]]> http://www.sevenearth.com/mdr/blog/archives/675/feed/