Perlスクリプト作ってみた

所有CDの一覧を保存場所と紐付けて管理したいとは前々から思いつつも、いちいち表計算ソフトにカタカタ入力するなんて無理だなと断念してたんですが、「所有CDの多くはiTunesに取り込んでいるのだから…」ということに気づいて、iTunes Music Library.xmlからアルバム一覧をCSV形式で出力する簡易Perlスクリプトを作ってみました。(動作確認はCygwin上のPerl環境で実施)
iTunes Music Library.xmlのあるフォルダをカレントにした状態でコマンドラインから実行してください(引数なし)。結果は標準出力に出力されますが重複レコードの削除まではPerl内で実施してませんので、あとでuniqとかしてください。ビデオとPodcastも出力されますので必要に応じてgrepで弾いてください。アルバム発売年はXMLから取得できないので諦めました。

perl -w ./getAlbumList.pl | uniq | sort | grep -v ^Video | grep -v ^Podcast > albumList.csv

スクリプト使用により不具合が発生しても当方は責任を負いませんので、試したい方はAt your own riskでご利用ください。バグ報告をしていただいた場合は、気が向けば改良するかもしれません。
getAlbumList.pl

iTunes自身の機能でも類似のものは「印刷」機能にあるみたいですが、自分はあくまで表計算のデータとして取得したかったので作ってみた次第。