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)