DA_SCRIPT

Random Player: Perlです。コンピューターのコマンドラインから起動して、コンピューター内の音楽ファイルを探してい、ランダムに再生します。使用するアプリを登録しておけば、AIFF.WAVE.MP3.FLACなど、対応するアプリで再生します。マック、Linuxで使えます。
端末で "perl RandomPlay.pl -list -def" などと入力して使います。 -def オプションはほぼ必須です。

RandomPlay.pl

#!/usr/bin/perl

##初期設定が必要です。
###################################################XXXXXXXXXXXXXXXXXXX
## 必要なアプリはインストールしておいてください。
# sudo apt install vlc
# sudo apt install mpg321
# sudo apt install ffplay

## -def オプションで再生したいフォルダー。ほぼ必須。
$defaulturl = "/media/YOR_MUSIC_MEDIA_NADO/";

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

##マックの場合AIFFファイルはafplayで、LINUXの場合WAVEファイルはaplyで再生しますが、
##その他は以下で設定します。VLCにしとけば間違いないと思いますが、いろいろ試せます。
##マックの場合はVLCの設定の変更が必要です。
$mp3_player = "mpg321"; #mp3再生に使用するアプリ
$WAVE_player = "ffplay"; #マッキントッシュの場合に WAVE 再生に使用するアプリ
$AIFF_player = "ffplay"; #LINUX の場合に　AIFF 再生に使用するアプリ
$aac_player = "ffplay"; #AAC再生に使用するアプリ
$wma_player = "ffplay"; #WMA再生に使用するアプリ
$flac_player = "ffplay"; #FLAC再生に使用するアプリ
$m4a_player = "ffplay"; #M4A再生に使用するアプリ
$alac_player = "ffplay"; #ALAC再生に使用するアプリ

###################################################XXXXXXXXXXXXXXXXXXX

$pos = "$^O\n";
if($pos =~ /darwin/i){$pos = 8;} else{$pos = 0;}
if($pos){$cvlc ="/Applications/VLC.app/Contents/MacOS/VLC";}else{$cvlc = "cvlc";}

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

$dir = "./";
$udir = "0";
$list = 0;
$alist = 0;
$noran = 0;
$down = 0;
$vlc = 0;
$k = 8;
$cvlcop = "";

if ($ARGV[0]){
foreach $_ (@ARGV){

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;}
if($_ =~ /\-vlc/i){$vlc = 8;}
if($_ =~ /\-k/i){$k = 0;}
}
}
else{
$dir = "./";
print "オプションがないい場合は、同じフォルダ内を演奏しています。\n";
}

@type = (".mp3",".wav",".wave",".aif",".aiff",".aac",".wma",".flac",".m4a",".alac",".ogg");

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

print "\n********************************************\n";
print "splay.pl は aplay(WAVE) / mpg321(MP3) / cvlc(AIFF 他) でのランダム演奏用です。\n";
print "(フォーマット＝WAVE.AIFF.MP3.AAC.WMA.FLAC.ALAC）\n";
print "ex: perl splay.pl -list -def\n";
print "------------------------------------------------\n";
print "＜オプション的な＞\n";
print "-vlc （全てVLCで再生）\n";
print "-k （拡張子表示）\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 "------------------------------------------------\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 ++;
$wlists = $_;
$wlists =~ s/\._//ig;
$wlists =~ s/$defaulturl//g;
if($defaulturls){$wlists =~ s/$defaulturls//g;}
if($k){$wlists =~ s/\..+$//ig;}
print "$listii*$wlists\n";
if($listii == $max){last;}
}

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

$listi = 0;

foreach (@new){
$listi ++;

$lists = " \"$_\"";
$lists =~ s/\._//ig;

if($list){
$wlists = $lists;
$wlists =~ s/$defaulturl\//$$listi$/g;
if($defaulturls){$wlists =~ s/$defaulturls\//$$listi$/g;}
if($k){$wlists =~ s/\..+$//ig;}
}

if($list){print "------------------------------------------------\n\n";}
if($vlc){
if($pos){$cvlc ="/Applications/VLC.app/Contents/MacOS/VLC";}else{$cvlc = "cvlc";}
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$cvlc $lists --play-and-exit");}
else{print "--NoFile--\n\n";}
}
else{
if($lists =~ /\.wa.+/ig){
if( $pos ){
$cvlc ="/Applications/VLC.app/Contents/MacOS/VLC";
if($WAVE_player =~ /vlc/i){$cvlcop = " --play-and-exit"; $WAVE_player = $cvlc;}
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$WAVE_player $lists$cvlcop");}
else{print "--NoFile--\n\n";}
}else{
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("aplay -q $lists");}
else{print "--NoFile--\n\n";}
}

}
elsif($lists =~ /\.ai.+/ig){
if( $pos ){
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("afplay $lists");}
else{print "--NoFile--\n\n";}
}else{
if($WAVE_player =~ /vlc/i){$cvlcop = " --play-and-exit"; $WAVE_player = $cvlc;}
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$AIFF_player $lists$cvlcop");}
else{print "--NoFile--\n\n";}
}
}
elsif($lists =~ /\.mp3/ig){
if($mp3_player =~ /vlc/i){
$cvlcop = " --play-and-exit";
if($pos){$mp3_player ="/Applications/VLC.app/Contents/MacOS/VLC";}
}
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$mp3_player $lists$cvlcop");}
else{print "--NoFile--\n\n";}
}
elsif($lists =~ /\.aac/ig){
if($aac_player =~ /vlc/i){
$cvlcop = " --play-and-exit";
if($pos){$aac_player ="/Applications/VLC.app/Contents/MacOS/VLC";}
}
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$aac_player $lists$cvlcop");}
else{print "--NoFile--\n\n";}
}
elsif($lists =~ /\.wma/ig){
if($wma_player =~ /vlc/i){
$cvlcop = " --play-and-exit";
if($pos){$wma_player ="/Applications/VLC.app/Contents/MacOS/VLC";}
} 
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$wma_player $lists$cvlcop");}
else{print "--NoFile--\n\n";}
}
elsif($lists =~ /\.flac/ig){
if($flac_player =~ /vlc/i){
$cvlcop = " --play-and-exit";
if($pos){$flac_player ="/Applications/VLC.app/Contents/MacOS/VLC";}
}
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$flac_player $lists$cvlcop");}
else{print "--NoFile--\n\n";}
}
elsif($lists =~ /\.w4a/ig){
if($m4a_player =~ /vlc/i){
$cvlcop = " --play-and-exit";
if($pos){$m4a_player ="/Applications/VLC.app/Contents/MacOS/VLC";}
}
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$m4a_player $lists$cvlcop");}
else{print "--NoFile--\n\n";}
}
elsif($lists =~ /\.alac/ig){
if($alac_player =~ /vlc/i){
$cvlcop = " --play-and-exit";
if($pos){$alac_player ="/Applications/VLC.app/Contents/MacOS/VLC";}
}
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$alac_player $lists$cvlcop");}
else{print "--NoFile--\n\n";}
}

else{
if($pos){$cvlc ="/Applications/VLC.app/Contents/MacOS/VLC";}else{$cvlc = "cvlc";}
if($list){print "NowPlay$listii*$wlists\n";}
if($lists){system("$cvlc $lists --play-and-exit");}
else{print "--NoFile--\n\n";}
}
if($listi == $max){last;}
}
}

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

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

opendir(IN,$ndir) or return;
@get = readdir IN;
closedir(IN);

foreach $files (@get){
next if $files =~ /^\.\.$/;
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";}

if(-d $nndir){&getlist($nndir);}
}

}