Nikep's blog

CUEファイルを作成するスクリプトを紹介します。

作成した/収集した音声ファイルを音楽CD(CDDA)に焼きたいときや、CDからお気に入り曲を集めて1枚のCDにまとめたいときに使います。cueやtocファイルがない場合でも、Linux環境で音楽CDを簡単に焼くことができます。

Windows環境では、WindowsのツールやneroやB's recorderなどの商用アプリを使うことになるのでしょうが、私はもっぱらLinuxで焼いています。理由は単純で、東アジアンな安物のCD/DVDメディアを使ったときに、Windowsでは頻繁に失敗してしまうのに対し、Linuxでは失敗することはほぼありません。少し観察した限りでは、Windowsのソフトはメディアがサポートする最大速で書きに行ってしまい品質が悪くて失敗しているようで、Linuxでは初めにテストしてスピードを決めているようです。(なので仕様よりも遅いスピードで焼かれることが多い)。いずれにしても、メディアが無駄になるのは地球に優しくありませんし、だからと言って5倍も値段がする高品質なメディアを買う気にもなれません。

Linuxで音楽CDを焼くには、cdrdaoを使います。これはトラック情報にTOCファイルを使います。TOCはWindows環境で使われている？CUEファイルとはフォーマットが異なり、また、手動で作り難くなっています。
このため、以下の手順で行います。

• CUEファイルを作り、 % cue_make.pl *.wav
• cue2tocで変換し、 % cue2toc.pl cd.cue
• cdrdaoで焼く。 % cdrdao write cd.toc

そのcue_make.plです。WAVファイルを引数に取り、その順番通りのトラックを持つCDDAのcd.cueを生成します。

#!/usr/bin/perl

$Usage = "$0 [-o CueFile] [-t title] [-p performer]
 [-g genre] [-d date] [-i discId] [-c comment] WAV_files\n";
$CueFile = "cd.cue";
#--- interpret the command-line arguments
while (defined($ARGV[0])) {
    if ($ARGV[0] =~ /^-D.*/) {
	$Debug = 1;
    } elsif ($ARGV[0] =~ /^-o/) {
	shift(@ARGV);
	$CueFile = $ARGV[0];
    } elsif ($ARGV[0] =~ /^-t/) {
	shift(@ARGV);
	$Title = ub2sp($ARGV[0]);
    } elsif ($ARGV[0] =~ /^-p/) {
	shift(@ARGV);
	$Performer = ub2sp($ARGV[0]);
    } elsif ($ARGV[0] =~ /^-g/) {
	shift(@ARGV);
	$Genre = ub2sp($ARGV[0]);
    } elsif ($ARGV[0] =~ /^-d/) {
	shift(@ARGV);
	$Date = ub2sp($ARGV[0]);
    } elsif ($ARGV[0] =~ /^-i/) {
	shift(@ARGV);
	$Discid = ub2sp($ARGV[0]);
    } elsif ($ARGV[0] =~ /^-[tT]/) {
	shift(@ARGV);
	$Title = ub2sp($ARGV[0]);
    } elsif ($ARGV[0] =~ /^-c/) {
	shift(@ARGV);
	$Comment = ub2sp($ARGV[0]);
    } elsif ($ARGV[0] =~ /^-.*/) {
	print STDERR "$Usage";
	exit 0;
    } else {
	last;
    }
    shift(@ARGV);
}

#--- DebugPrint function
$Debug = 0;
sub Dprint {
    if ($Debug) {
        printf STDERR "DBG: LINE @";
    }
    return 0;
}

#--- checking to set the necessary variables.
if (!defined(@ARGV)) {
    print STDERR "$Usage";
    exit 0;
}

#--- write to CUE file
$s = "";
if (defined($Title)) {
    $s .= "TITLE \"$Title\"\n";  
} else {
    $s .= "REM TITLE \"\"\n";
}
if (defined($Performer)) {
    $s .= "PERFORMER \"$Performer\"\n";
} else {
    $s .= "REM PERFORMER \"\"\n";
}
if (defined($Genre)) {
    $s .= "GENRE $Genre\n";
}
if (defined($Date)) {
    $s .= "DATE $Date\n";
}
if (defined($Discid)) {
    $s .= "DISCID $Discid\n";
} else {
    $s .= "REM DISCID \n";
}
if (defined($Comment)) {
    $s .= "COMMENT \"$Comment\"\n";
}

#--- write a header
$nTrack = 1;
foreach $wf (@ARGV) {
    $fn = $wf;
    $s .= "FILE \"$wf\" WAVE\n";
    $n = sprintf "%02d", $nTrack;
    $s .= " TRACK $n AUDIO\n";
    $Title = ub2sp($wf);
    $Title =~ s/\.wav$/./;
    $s .= "    TITLE \"$Title\"\n";
    $s .= "    FLAGS DCP\n";
    $s .= "    PREGAP 00:00:00\n";
    # $s .= "    INDEX 00 00:00:00\n";
    $s .= "    INDEX 01 00:00:00\n";
    $nTrack += 1;
}
printf "$s\n";
if (open(OUT, ">$CueFile")) {
    printf OUT "$s\n";
}

exit 0;

sub ub2sp {
    $[0] =~ s// /g;
    return($[0]);
}

少し前から、bittorrent clientとしてrtorrentを使っている。軽量で使い勝手が中々良い。

日本では然程でもないようだけど、世界的に良く使われているP2Pシステムにbittorrentがある。クライアントソフトで一番良く使われているのは、vuze(azureus)と思われる。Javaベースのマルチプラットホームで多機能であり申し分ない。ただ、ダウンロードする場合には長時間上げておくことになるのだけれど、非力なマシンにはかなり処理的に重い。また、自動でアップデートする機能が備わっているが、更新されている内に私の環境では不安定になってきた。

rtorrentはキャラクタ端末ベースのbittorrentクライアントで、端末エミュレータ上で動くUNIX向けのソフトである。機能もあまりなく、殆ど単純に落とすだけになる。だけど動きがすごく軽くて、扱いが直感的で簡単だ。
設定ファイルは~/.rtorrent.rcで、以下くらいでOK。

enable_trackers = no
session = ~/torrent/.rtorrent
directory = ~/torrent/tmp
max_uploads = 2
upload_rate = 30
download_rate = 100
schedule = watch_added,5,5,load_start=~/torrent/torrents/*.torrent
schedule = untied_directory,5,5,stop_untied=
on_finished = move_complete,"d.set_directory=~/torrent/in/;\
execute=mv,-u,$d.get_base_path=,~/torrent/in/"

上記の設定に合わせて、3つのディレクトリ~/torrent/in/, ~/torrent/torrents/, ~/torrent/tmpを作っておく。後はtorrentファイル(拡張子は.torrent)を~/torrent/torrents/にコピーしておけば勝手にダウンロードが始まる。因みに、最後のon_finishedは終了したらファイルを移動する積りがうまく動作していなくて、DL物がディレクトリだと中身が移動しない。(上手く行っている人、教えて下さい)

なお、「端末エミュレータなんて上げたことないよ」、という方は、ランチャー(Windowsで言うショートカット)を作成して、以下のどちらかを起動する。
"gnome-terminal -t RTorrent -x rtorrent"
"xterm -T RTorrent -e rtorrent"

bittorrentはUbuntuやFedora CoreのISOイメージの配布など公明正大な利用目的で使われているが、ダークサイドな利用もある。
ダークサイドな利用も含めてのインデックスサイト(トラッカー)として、TORRENTSというサイトが便利だ。代表的なインデックスサイトを横断しながら捜せる。(本当は横断して検索して、結果をまとめてくれると嬉しいのだけれどなぁ)。
ダークな方面では、中華系の検索エンジンに"torrent"のキーワードを加えてみることもできる。例えばBaidu, 香港Yahoo, 中国Yahoo。本当に何でもある感じであるが、ウィルス混じりであろう実行ファイルなども紛れ込んでいるので注意が必要である。(法律を遵守して使いましょう!)。

追加の情報

上記の"on_finished"でディレクトリが移動しない不具合は、0.8.5版では既に修正されていました。めでたし、めでたし。(2009/10/5)

Windows向けのアプリのテスト環境を作ってみた。Virtual PCとTechNet Plusの契約で、比較的安価に、場所を取らずに構築できる。

Windows Vista上でVirtual PCを動かし、その上にWindows Vista HomeBasic, Windows XP Professional, Windows XP Homeをインストールした。取り敢えず、動作はすんごく遅いけれど、アプリのテストや環境の確認はできるようになった。Wineとかと違ってVirtual PCの動作はきちんとしており、これが無料で配布されているのは有り難いことだ。私のマシンでは、実作業に耐えうるような速度では動かないけれど、最新のマシンでは十分に使えるのだろう。

テスト用途に、マイクロソフトのTechNet Plusの契約をしている。概ね全てのWindws OSとOffice製品をインストールしてテストできる。MSDNは個人で契約するのはちょっと厳しい値段であったが、これは年間4万円弱なのでリーズナブルだ。MSDNとの大きな違いは開発環境が含まれないことであり残念なことではあるが、今の開発範囲ではVisual C# Express Editionで間に合っている。昔と違って、今はWindows環境でも個人レベルでプログラミングを楽しむことは十分できるようになっている。
なお、TechNet Plusは元々試験用途であるが、マシンにインストールして日常業務にも使うことができるとFAQに書いてあるので、自宅に複数のパソコンを持っていて、パソコンのプレインストール製品では満足できない方は検討する価値がある。(通常の製品をバラバラに買うよりも遥かに安い!)

ちょっと不満なところ。
現在TechNetでは、Windows98～Windows2000までのOSがダウンロードできない。Windows2000は少しテストしてみたいと思っていたので残念だ。これはJava関係の紛争の結果と書かれているが、本当のところはもう葬り去って新しいOSを売り付けたいのだろう。
もう一つはVirtual PCの機能なのだけど、一旦作成したVirtual Disk(Fileシステムを置くloopbackデバイス)のサイズが後から変えられないこと。正確に言うと、なんか別途ツールを使えば拡張可能らしいのだが、VirtualPCの機能として必須だ。というのも、VistaではWindows Updateをするときに、良く分らないほどディスクスペースが膨れ上がり、その後バックアップなどを消すと数GB減ったりして、サイズを予想し難い。また動きがのろくインストールに時間が掛かるので、やり直しをする気にはなれないからだ。Windows XPは4GBで十分であるが、Wndows Vistaは8GBでも足りない。

WiMAXの試験運用が始まっている。私はパソコンを繋げられないものには興味がないので、WiMAXには期待を寄せている。UQ Communicationsのモニターに応募しており、今朝、UQ WiMAXからデータカードが届いたので、少し試してみた。

D01NAA

大田区にある自宅の1階で、取り敢えず2.17Mbpsの下りスピードが出た(上りは50Kbps)。公称下り40Mbpsのベストエフォートというスペックと比較して、この数字は充分というべきか、遅いというべきか判断が難しいところだ。とりあえず、通常のウェブブラウジングをするには充分と思う。以前ADSLを使っていたときにも2.7Mbpsくらいしか出なかったが、特に大きなダウンロード時以外はさして不足を感じなかった。今後は基地局の整備や伝送関係のパラメタの最適化により速くなっていくと考えると充分期待できる。しかし、利用者が増えることで逆に遅くなってしまう可能性もあるので何とも言えない。

ただ、月額4,480円の料金と釣り合うかというと疑問はある。正直なところ、外で頻繁に使う必要がある人以外には高過ぎる。ADSL並の2,500円なら文句ないところだけど。このままのスピードであれば、お試し期間が終わる7月以降も継続するかどうか悩ましい、というのが印象だ。

なお、現状ではWindows XPとWindows Vista用のドライバ/ユーティリティしか用意されていない。デスクトップの主力環境がLinuxである私に取っては大問題。これも7月までになんとかして貰えないと使えない。ルータに見えるように作ってもらえると嬉しかったのだけど、ホストCPUで沢山処理しないと動かないのかなぁ。Linuxでのチップ対応ドライバの開発は始まったばかりのようで、Intelのチップのみサポートに留まっているから、期待薄かなぁ。