Perl:MP3 :: Tag:如何获取特殊字符?

时间:2019-05-08 15:05:28

标签: perl mp3

我正在使用MP3 :: Tag来自动标记有关目录中位置的MP3。

但是我无法在标签中使用特殊字符(例如Ö,Ä,Ü)(例如,歌名或流派)。

我已经将编码设置为UTF8,但是并不能解决问题。

我尝试了ID3v1和ID3v2标签。

use MP3::Tag;

my $mp3 = MP3::Tag->new ("my.mp3");
$mp3->config (encode_encoding_v1 => "utf-8");   
$mp3->config(decode_encoding_v1 => "utf-8");
$mp3->get_tags ();

my $tag = $mp3->{ID3v1};
if (! defined ($tag))
{
    $mp3->new_tag ("ID3v1");
    $tag = $mp3->{ID3v1};
}

$tag->all ("title Ö", "artist Ü", "album  Ä", 2000, "no comment", 1, "no genre");         
$tag->write_tag ();


$mp3->close ();

0 个答案:

没有答案