5月24日 土曜日
正午過ぎ起床。レポート書かなきゃ。といいつつエレキギターの弦張ったりパソコン弄ったり・・・。いで、制御不能。
.bat以上.exe以下なPerl使用法：作業用BGM再生篇
WindowsXPのフォルダタスクのところの「すべて再生する」ってやつみたいなことをPerlで実装。すなわち指定したフォルダ内の音楽ファイルをすべて再生するスクリプト。引数にフォルダパスを指定すればおｋ。
#! usr/bin/perl
my $player = 'C:\Program Files\Windows Media Player\wmplayer.exe';
#音楽プレイヤーへのパス。ここではWindows Media Player
if( !$ARGV[0] ){
die("引数として再生するフォルダへのパスを指定してください。\n");
}
my $dir = $ARGV[0];
#再生するフォルダへのパス。
$dir =~ s/\\$//;
#コマンドライン引数を渡したときに末尾に\記号をつけてる場合の対策。
opendir( DIR , $dir );
my @file = readdir( DIR );
my $param = '';
foreach ( @file ){
if( /\.(mp3|wma|wav|mid)/ ){
$param .= " \"$dir\\"."$_\"";
}
}
my $command = "\"$player\""."$param";
print `$command`;
テキストエディタ(私の場合JmEditor2)からツール呼び出しで作業用BGMを再生できるようにしようってのが動機。マウス操作を減らして効率化を図るってわけだ。作業用BGMが効率を下げている件については気にしたら負けだと思っている。
どうせいつも同じフォルダの曲しか聴かんからコマンドライン引数いらねーよって人は$dirをいじって直接フォルダパス代入しといて下さい。曲順ランダムにしたいとかいう人は適宜ソースを弄ってどうにかしてください。
H8マイコン
秋月の通販で購入、送料とか含めると9千円。今後も出費は結構有りそうだし、やはりバイトやる必要ありか。
今後秋葉原のお世話になりそう。電気街的な意味で。
前にも書いたけどあの街は中途半端にオタクな人間には危険です。コアなオタクにとっては天国、一般人なら「きめぇ」の一言で片付けるような状況が広がっているわけだが、なまじネタが分かってしまう人間にはね、底なし沼のようなものなんですよ。長居すると人の姿を保ったまま帰還することはできんでしょうな。
だったらコアなオタクになってしまえばいいのだが、リスクがすごく・・・大きいです。
・・・すでにこれまでに背負ってきたリスクの大半がコストと化してるような。