響ダウンロード支援ツールと音泉ダウンロード支援ツールにまつわる小技

ここを見てる方ならご存知のはずです。
響ダウンロード支援ツール Ver 2.19と音泉ダウンロード支援ツール Ver 2.12のおはなし。

追記：2016年2月10日
これはちょっと賞味期限切れ。
まとめて落とす系の拙作ツールに我田引水ですよ。
その名も「AnGe4j」と申します。

このあたりに説明があります。

まとめて全部落としたい人にやさしいかんじです。

---

響のツールは、連続してダウンロードしようとすると落ちます。
うちの環境が悪いだけかな。
うちでは、並行ダウンロードは５本が限界。
ダウンロードされるのをぼーっと待ってるのは、意外とつらい。
そこで、ふと浮かんだアイデア。

rtmpdumpに送ってるコマンドをよこどりします。
そのコマンドを整形してBATファイルを作成。
そして、バッチダウンロード。

>#!/bin/perl -w
use strict;
use warnings;
use utf8;
use Encode;
   open my $fh, '>>:encoding(cp932)', 'download.bat';
   my $printbuf = '_rtmpdump.exe';
   my $a = \@ARGV;
   for(my $i=0; $i<=$#$a; $i++){
      $printbuf .= ' "'.decode('cp932' => $a->[$i]).'"';
   }
   print $fh $printbuf."\n";
   close $fh;

できちゃった。
結構役に立つ。

で、音泉の方も同じ話。

>use strict;
use warnings;
use FindBin;
   print "chdir $FindBin::Bin\n";
   chdir $FindBin::Bin or die "ディレクトリ移動失敗. : $!\n";
   open CMD, "onsenv2bat.exe --new-- --list-- 2>&1 |" or die " -- error\n";
   die "-- error\n" if system "onsenv2bat.exe --new--";
   while () {
      system "onsenv2bat --dl-- id=$1\n" if /^(\w+?)\s\->/;
   }
   close(CMD);

こっちは簡単。

そして、開発途上のAnGe4iですが、今まさにテスト中というわけで。
主にバグフィクスをやっております。

特に、mp4boxが落ちる原因。
こいつが、まだわかっておりません。

これ、バナーにしか使ってないから、やめちゃうかしら、みたいな。
まだ、もうちょっとねばってみます。

それではまた～