FC2ブログ

2016年02月の記事 (1/1)

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

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

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

追記:2016年2月10日

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

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

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



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

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が落ちる原因。
こいつが、まだわかっておりません。

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


それではまた~

スポンサーサイト
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。