(DTPtechNote:383) iTunesの曲名リスト

[市川せうぞー <anonymous at unknown-host>]

ちっとiTunesの曲名リストでもつくってみるか。。。とおもったら
すっごく長くて、よみずらいので、わかりやすいように整形してみました。

#!/usr/bin/perl -w

#iTunesのメニューから書き出したテキストを簡単な
#アーティスト名	アルバム名	曲名
#というallnameテキストと
#アーティスト名	アルバム名
#というアルバムリストに整形します。
#iTunesのメニューから書き出したテキストはMacのCR改行のままで構いません。
#ターミナルから実行するため、ファイル名は半角英数字だけを使用すること。


$/ = "?r";#Mac CR改行を想定
$m = "";

foreach $i (@ARGV){ 
open(IN, "$i") || die "can't open $i ?n"; 
open(ALLNAME, ">$i.allname")|| die "can't open $1.allname ?n";
open(ALBUM, ">$i.album")|| die "can't open $1.album ?n";

while(<IN>){  
	s/^([^?t?r]*)?t([^?t?r]*)?t([^?t?r]*)?t([^?t?r]*)?t.+/$2?t$4?t$1?r/;
	print ALLNAME $_;
	
	s/^([^?t?r]*)?t([^?t?r]*)?t[^?t?r]*/$1?t$2/;
	if ($m ne $_) { 
		print ALBUM $m;
		$m = $_; 
	} 
print ALBUM $m if(eof); 

 } 
close(IN); 
close(ALLNAME); 
close(ALBUM); 
}