2005年6月5日日曜日

ID3の文字コード変換



gripでやるとUTF-8なのよねぇ~~。でもぐぐるとiPodなんかはID3v2にUTF-8をいれるようにしてるらしい。UTFはUTFで置いとくのが吉かもしれない。


xmmsのほうをID3v2タグの利用禁止に設定して。ID3v1を使ってもらおう。


でID3v1のフィールドはEUCをいれとけばいいかな。


とゆーことでお願いperlの偉いライブラリ達。



use Jcode;
use MP3::Info;
($file)=@ARGV;
#ID3v2のタグをよんでID3v1のタグにEUCで書き込む

$tag = get_mp3tag($file,2) or die "No TAG info";

$tag->{TITLE}= jcode($tag->{TITLE})->euc;
$tag->{ARTIST}= jcode($tag->{ARTIST})->euc;
$tag->{ALBUM}= jcode($tag->{ALBUM})->euc;

print $tag->{TITLE}." ".
$tag->{ARTIST}." ".
$tag->{ALBUM}." ".
"\n";
set_mp3tag($file,$tag)





0 件のコメント:

コメントを投稿