Hatena::Groupnicovideo

にわかな奴の砂場

    使えそうなものがあれば適当にどうぞ。(自己責任的な意味で) 過去ログ

2007-09-27

[][] 合わせたい曲のbpmからアイマスPVの再生速度を何%にしたらいいか表示するスクリプト 22:41  合わせたい曲のbpmからアイマスPVの再生速度を何%にしたらいいか表示するスクリプト - にわかな奴の砂場 を含むブックマーク はてなブックマーク -  合わせたい曲のbpmからアイマスPVの再生速度を何%にしたらいいか表示するスクリプト - にわかな奴の砂場

これは何?

表題の通り。いちいち計算するのがダルいので自分用に何となく書きました。とりあえず小数第三位まで表示。

アイマス曲のbpmは「無料ホームページ 無料レンタルサーバー land.to」を利用させて頂きました。多謝。

実行結果

22:22:18 C:hide$bpm.pl 170
bpm = 170
9:02 p.m.       :       250%
First Stage     :       115.646%
GO MY WAY!!     :       94.444%
Here we go!!    :       114.093%
My Best Friend  :       108.28%
THE iDOLM@STER  :       103.03%
relations       :       119.718%
おはよう!!朝ご飯:       111.842%
まっすぐ        :       139.344%
エージェント夜を往く:   95.505%
ポジティブ!    :       123.188%
太陽のジェラシー:       132.812%
思い出をありがとう:     127.819%
私はアイドル☆  :       101.19%
蒼い鳥          :       161.904%
魔法をかけて!   :       113.333%

ソース

#!C:/perl/bin/perl
use encoding 'shift-jis';
use strict;
use warnings;
my $bpm = shift || 120;
my %songs = (
	'THE iDOLM@STER  ' => 165,
	'太陽のジェラシー' => 128,
	'蒼い鳥          ' => 105,
	'First Stage     ' => 147,
	'おはよう!!朝ご飯' => 152,
	'魔法をかけて!   ' => 150,
	'9:02 p.m.       ' =>  68,
	'Here we go!!    ' => 149,
	'エージェント夜を往く' => 178,
	'ポジティブ!    ' => 138,
	'relations       ' => 142,
	'私はアイドル☆  ' => 168,
	'思い出をありがとう' => 133,
	'My Best Friend  ' => 157,
	'GO MY WAY!!     ' => 180,
	'まっすぐ        ' => 122,
);
print "bpm = $bpm\n";
foreach (sort keys %songs) {
	my $p = int(($bpm / $songs{$_}) * 100000) / 1000;
	print "$_:\t$p%\n";
}
__END__

そういえば 22:41 そういえば - にわかな奴の砂場 を含むブックマーク はてなブックマーク - そういえば - にわかな奴の砂場

先日ちょろっと呟いてみたNicoCacheが超旬ツールで紹介されてた。

余りにも解説が的確過ぎて噴いた。テストユーザやらせてもらってたんで何か書こうかとか思ったりしたけれど必要ないな……笑。