For Programmers: Free Programming Magazines  


Home > Archive > PERL Beginners > April 2007 > MP3::Tag and UTF8 output









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author MP3::Tag and UTF8 output
Sören Vogel

2007-04-28, 6:58 pm

Hi,

iTunes (OS X 10.4) only writes idv2-tags, but some of my old devises read=
only v1-tags and so I'd like to add v1-tags to my mp3 files accordingly.=
Since id3ed destrois utf-8 character tags (and so German umlauts), I'd l=
iked to write a perl script which does the job well:

<pre src=3D"~/.profile">
export MP3TAG_DECODE_DEFAULT=3DUTF8
export MP3TAG_ENCODE_DEFAULT=3DUTF8
</pre>

The code

<pre src=3D"myscript.pl">
use MP3::Tag;
$mp3 =3D MP3::Tag->new($ARGV[0]);
@tags =3D $mp3->autoinfo();
for(@tags){
print $_."\n";
}
</pre>

does not work, it produces:

<pre src=3D"terminal">
Wide character in print at ./mp3tags.pl line 11.
Zu sp?t
Wide character in print at ./mp3tags.pl line 11.
Die ?rzte
</pre>

for "Die =C4rzte" and "Zu sp=E4t", while <pre>print $ARGV[0]</pre> correc=
tly prints "Zu\ sp=E4t.mp3". I've searched and played around with many mo=
dules but I couldn't find a solution. What is wrong? Any help?

Thanks in advance,

S=F6ren

Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com