OS X Mavericks afplay でランダム・連続再生
f0021035_22112792.jpg


OS X Mavericks無料ダウンロードを記念してafplay.plを見直してみた。
なにゆえに無料なのかわからんが、小生はSnow LeopardのDVDを購入しておいたので、HDDを増設してインストールしてMavericksにヴァージョンアップしてみた。まあ、レオパードと驚く程の違いはなさそうなのですぐに使う事はないと思う。

afplay.plは、下記のテキストをテキストファイルとして afplay.pl の名前(変えてもいい)で保存してユーザフォルダの自分のフォルダに置く事で、コンソール画面からコマンド

mac:~ yourname$ perl afplay.pl -def -max=100 -alist -list

などと入力して、音楽ファイルをafplayで連続再生できるスクリプトである。

afplay は、ウィンドウズマシンでいうところのASIOやらWASAPIに相当する高音質再生であるらしい。理屈は小生にはよくわからんのでググっていただけばいろいろと紹介されている。

オプション -def で $defaulturls = "ここにURLを設定"; に設定したフォルダ内の音楽ファイルを探してランダム演奏する。音楽ファイルのURLはコンソール画面に音楽ファイルをドラッグ&ドロップすると表示される。フォルダを指定しない場合は、afplay.plスクリプトのあるフォルダ内の曲を探して再生する。

一曲ずつ選択して聴くのであれば、コンソール画面に afplay "musikufile/music.aif" などと入力して直接afplayで再生できる。"musikufile/music.aif"の部分は afplay と打ち込んだ後ろに音楽ファイルをドロップすればOKである。

4月14日
藤井サンからコメントを頂いていたので、見直したところ再生リストの表示が再生数のマックスを反映していなかったので修正しました。まだ不備なりご要望がありましたらコメントでお知らせください。
ランダム再生もあやしかったので、かなり書き直してチェックしました。ついでにこちらに使い方もアップした。



## afplay.pl #####################################ここから
#!/usr/bin/perl


## -def オプションで再生したいフォルダー。
$defaulturl = "";

## 追加フォルダー。ここに書き込んだフォルダー内の該当音楽ファイルは必ず再生されます。
$defaulturls = "";

$max = 0; #再生曲数 0で無制限

@type = (".aif",".wav",".aiff",".wave");
$dir = "./";
$udir = "0";
$list = 0;
$alist = 0;
$noran = 0;
$down = 0;


if ($ARGV[0]){
foreach $_ (@ARGV){
if($_ =~ /\-aif/i){@type = (".aif", ".aiff");}
if($_ =~ /\-wav/i){@type = (".wav",".wave");}
if($_ =~ /\-mp3/i){@type = (".mp3");}
if($_ =~ /\-all/i){@type = (".aif", ".aiff",".wav",".wave",".mp3");}


if($_ =~ /\-dir\=/i){
$_ =~ s/\-dir\=//; $dir = $_;
$udir = 8;
}

if($_ =~ /\-max\=/i){$_ =~ s/\-max\=//; $max = $_;}

if($_ =~ /\-def/i){$dir = "$defaulturl"; $udir = 88;}

if($_ =~ /\-list/i){$list = 8;}
if($_ =~ /\-alist/i){$alist = 8;}
if($_ =~ /\-noran/i){$noran = 8;}
if($_ =~ /\-down/i){$down = 8;}
}
}
else{
$dir = "./";
@type = (".aif",".wav",".aiff",".wave",".mp3");
}

&getlist($dir);
if($defaulturls ne ""){&getlist($defaulturls);}


print "\n********************************************\n";
print "afplay.pl は afplay でのランダム演奏用です。\n";
print "ex: perl afplay.pl -alist -list -dir=./sound\n";
print "------------------------------------------------\n";
print "-aif (AIFのみ演奏)\n";
print "-wav (WAVのみ演奏)\n";
print "-mp3 (MP3のみ演奏)\n";
print "-all (AIF・WAV・MP3を演奏)\n";
print "無指定の場合、AIFとWAVを再生します\n";
print "-def (設定したデフォルト\"" . $defaulturl . "\"を再生)\n";
print "-alist (再生一覧リストを表示)\n";
print "-list (再生リストを表示)\n";
print "-noran (ランダム再生しない)\n";
print "-down (逆順に再生)\n";
print "-dir=URL (URLのフォルダー内を演奏)\n";
print "-max=数字 (最大演奏回数、無指定で無制限)\n";
print "演奏中 次の局 Ctrl + C\n";
print "演奏中 中止 Ctrl + Z\n\n";


if($noran){@new = @files; print "\**NORANDOM**\n\n";}
elsif($down){@new = sort {$b cmp $a} @files; print "\**DOWN**\n\n";}
else{
foreach (@files){
my $r = rand @new+1;
push(@new, $new[$r]);
$new[$r] = $_;
}
print "\**RANDOM**\n\n";
}

if($alist){
$listii = 0; print "再生予定リスト\n------------------------------------------------\n";

foreach (@new){$listii ++;print "**$listii** $_\n"; if($listii == $max){last;}}

print "------------------------------------------------\n\n\n";
}

$listi = 0;
foreach (@new){
$listi ++;

$lists = " \"$_\"";

if($list){print "NowPlay**$listi**$lists\n";}

if($list){print "------------------------------------------------\n\n";}
#if($lists){system("afplay $lists");}
if($lists){system("afplay -q 1 $lists");}
else{print "--NoFile--\n\n";}

if($listi == $max){last;}
}

exit;
#-----------------------------------------------------------------------

sub getlist{
my $ndir = $_[0];
my @get;

opendir(IN,$ndir) or die "opendir $dir エラー : $!";
@get = readdir IN;
closedir(IN);

foreach $files (@get){
next if $files =~ /^\.\.$/;
next if $files =~ /^\.$/;


foreach (@type) {
if($files =~ /$_$/i){
if($ndir =~ /^\.\/.+/i){push @files, "$ndir" . "/$files";}
elsif($udir){$ndir =~ s/\/$//i; push @files, "$ndir" . "/$files";}
else{push @files, "$files";}
}
}


if($ndir =~ /^\.\/.+/i){$nndir = $ndir . "/$files";}
elsif($udir){$ndir =~ s/\/$//i; $nndir = "$ndir" . "/$files";}
else{$nndir = $ndir . "$files";}

#print "$nndir\n";#TEST用
if(-d $nndir){&getlist($nndir);}
}

}

################################################# ここまで
[PR]
by digressive | 2013-12-26 22:14 | プアオーディオ | Comments(2)
Commented by 藤井康弘 at 2014-04-04 16:58 x
maxで設定した曲数が反映されないのですが、どうしたらよいですか。
Commented by digressive at 2014-04-15 00:49
藤井様、再生一覧がおかしかったので修正しました。お知らせいただき、ありがとうございました。
 
<< HAPPY NEW YEAR ... ボーダーラインの年末気分 >>



人間は、考える足である。
by ラーメン
S M T W T F S
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
カテゴリ
リンク

おやつ会

人との交流が人を育てます。


ホームページ作成
WEBデザイン(Perl PHP MySQL)
グラフィックデザイン
CI 各種印刷物 広告 SP
はじめました。

■□■□■□






RandomReading《読書記録》
通勤電車が私の書斎さ。
■□■□■□






WEBカラーネーム

WEBカラーチャート

「もう一つの日本」
どう展開するのか、見えませんが楽しみです。

放射NO! 防御プロジェクト
フェイスブック発、自分の身は自分で守ろう

植草一秀の『知られざる真実』
頑張れミラーマン

世に倦む日々
無料版です

奥の横道(写真)
携帯で写真を撮りだすとクセになる。

マニア・マニア
何が彼らをそこまで駆り立てるのか?

天木直人.com
多少偏向していそうだが、
文春よりは参考になる


きっこのブログ
謎のブログ、リンクしていいのかな?

とりまきメモ
ブログというより、日記帳ですね。

LINK MEMO
小生の勝手なリンク集


小金井市の地域SNSです
WEB デザイン モリ のページもあります。

アメブロもよろしく。

pixiv

twitterフォロー ミー

上のボタンが好きな背景色で作れます


青空文庫


お気に入りブログ
ライフログ
以前の記事
2017年 09月
2017年 08月
2017年 07月
2017年 06月
2017年 05月
2017年 04月
2017年 03月
2017年 02月
2017年 01月
2016年 12月
2016年 10月
2016年 09月
2016年 08月
2016年 06月
2016年 04月
2016年 03月
2016年 02月
2016年 01月
2015年 12月
2015年 11月
2015年 10月
2015年 09月
2015年 08月
2015年 07月
2015年 06月
2015年 05月
2015年 04月
2015年 03月
2015年 02月
2015年 01月
2014年 12月
2014年 11月
2014年 10月
2014年 09月
2014年 08月
2014年 07月
2014年 06月
2014年 05月
2014年 04月
2014年 03月
2014年 02月
2014年 01月
2013年 12月
2013年 11月
2013年 10月
2013年 09月
2013年 08月
2013年 07月
2013年 06月
2013年 05月
2013年 04月
2013年 02月
2013年 01月
2012年 12月
2012年 11月
2012年 10月
2012年 09月
2012年 08月
2012年 07月
2012年 06月
2012年 05月
2012年 04月
2012年 03月
2012年 02月
2012年 01月
2011年 12月
2011年 11月
2011年 10月
2011年 09月
2011年 08月
2011年 07月
2011年 06月
2011年 05月
2011年 04月
2011年 03月
2011年 02月
2011年 01月
2010年 12月
2010年 11月
2010年 10月
2010年 08月
2010年 07月
2010年 06月
2010年 05月
2010年 04月
2010年 03月
2010年 02月
2010年 01月
2009年 12月
2009年 11月
2009年 10月
2009年 09月
2009年 08月
2009年 07月
2009年 06月
2009年 05月
2009年 04月
2009年 03月
2009年 02月
2009年 01月
2008年 12月
2008年 11月
2008年 10月
2008年 09月
2008年 08月
2008年 06月
2008年 05月
2008年 04月
2008年 03月
2008年 02月
2008年 01月
2007年 12月
2007年 11月
2007年 10月
2007年 09月
2007年 08月
2007年 07月
2007年 06月
2007年 05月
2007年 04月
2007年 03月
2007年 02月
2007年 01月
2006年 12月
2006年 11月
2006年 10月
2006年 09月
2006年 08月
最新のコメント
GoogleのAPIで叩..
by かえる at 16:27
たいていのブログに準備さ..
by digressive at 22:48
つまり、グーグル(全体の..
by かえる at 10:39
ワードからgoogleの..
by digressive at 19:06
googleの検索フォー..
by digressive at 18:59
これは...グーグル指定..
by かえる at 11:14
仕事でやらされたこともあ..
by digressive at 22:52
もしや、スカイプやってま..
by かえる at 15:19
プア派としては、100均..
by digressive at 22:11
ことしの夏には、グーグル..
by かえる at 11:20
最新のトラックバック
Macの音楽をオーディオ..
from ちょっとOldなMacの話
グランベリーモール町田
from アウトレットモール・パーク【..
「セオリー」アウトレット
from 町田アウトレット【グランベリ..
アロワナ
from アロワナ
進行中の環境問題
from バナナペーパー!?環境問題を..
バナナが地球を救う。
from バナナが紙に!?そんなバナナ..
インクジェットプリンター..
from ネット専用商社 特選館
【携帯】 アップルの「i..
from 【究極の宗教】Physica..
お得なえびの高原温泉に関..
from 宮崎エリアnavi
TOEIC勉強法
from TOEIC勉強法
検索
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧