(DTPtechNote:384) Re: iTunesの曲名リスト

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

あり？
￥（半角）が「?」文字化けしてやがる。。。
検索置換してください。

とりあえず、もう一度再掲してみるか。。。

#!/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); 
}