MP3::Tag - iTunes cannot read ID3 tags written by MP3::Tag?
Greetings,
Just trying to re-arrange ID3 information in a large set of MP3 files.
Before I run the following Perl script, iTunes can read the ID3 tagging
information. After writing ID3 information to the MP3, iTunes no longer reads
any tagging information from the MP3.
Does anyone have any information regarding this? There is some cryptic
information in the MP3::Tag POD regarding setting the "id3v23_unsync" option
but that doesn't seem to alter the impact on iTunes at all. Windows and other
tag readers seem to be able to read the all ID3v1 and ID3v2 tags just fine
(including the altered fields) after running the following script.
Thanks for any suggestions/guideance anyone can provide.
Description: the following program takes an MP3 filename as input.
Action: It appends the value in the Album field to front of the TITLE Field.
That's it! Easy!
#!/usr/bin/perl -w
use MP3::Tag;
MP3::Tag->config(id3v23_unsync=>FALSE);
my $filename = $ARGV[0];
$mp3 = MP3::Tag->new($filename);
@info=$mp3->autoinfo;
@albnum = split(/_/, $info[3]);
$frame = $mp3->{ID3v2}->get_frame("TIT2");
print $frame;
$mp3->{ID3v1}->title("$albnum[0] $info[0]");
$mp3->{ID3v2}->change_frame("TIT2","$albnum[0] $info[0]");
$mp3->{ID3v1}->write_tag();
$mp3->{ID3v2}->write_tag();
@info=$mp3->autoinfo;
print $info[0];//print ID3v1 TITLE field
$frame = $mp3->{ID3v2}->get_frame("TIT2");
print $frame; //print ID3v2 Title2 field
$mp3->close();
Thanks!
GL
-
Yahoo! oneSearch: Finally, mobile search that gives answers, not web links. ___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
perl 5.8.6 811 and oracle 10g installing 5.8.3
hi all, i have had Perl 5.8.6.811 running for quite some time on my machine. Everything was fine until I had to install Oracle 10g. Now, whenever I try to execute one of my old perl scripts I get the following error: Perl lib version (v5.8.3) doesn't match executable version (v5.8.6) at C:\oracle\product\10.2.0\db_1\perl\5.8.3\lib/MSWin32-x86-multi-thread/Config.pl line 32 BEGIN failed--compilation aborted at C:\oracle\product\10.2.0\db_1\perl\5.8.3\lib/MSWin32-x86-multi-thread/DynaLoader.pm line 25 and then I have a few more lines ... I guess the problem is with Oracle that re-wrote the environment variables in System Properties: for PERL5LIB what I have now is: C:\oracle\product\10.2.0\db_1\perl\5.8.3\lib\MSWin32-x86;C:\oracle\product\10.2.0\db_1\perl\5.8.3\lib;C:\oracle\product\10.2.0\db_1\perl\5.8.3\lib\MSWin32-x86;C:\oracle\product\10.2.0\db_1\perl\site\5.8.3;C:\oracle\product\10.2.0\db_1\perl\site\5.8.3\lib;C:\oracle\product\10.2.0\db_1\sysman\admin\scripts; I do not know what I should change this to in order to make it work with the 5.8.6 version. I re-installed 5.8.6.811, I was under the impression that the environment variables should have been re-written again, however, nothing changed. So, anybody could tell me what do I need to change to revert to 5.8.6.811? I guess I will blow the Oracle setting, nevertheless I do not care too much about this now - all I want is to be able to execute my scripts with 5.8.6.811 thanks, kowalsky Ready for the edge of your seat? Check out tonight's top picks on Yahoo! TV. http://tv.yahoo.com/ ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: control M's
Thanks everyone for the overwhelming response! I tried Jack's solution first because it was so easy. It turns out there's a simple button on my ftp window to choose between binary or ASCII (or Auto). Voila! Works like a charm! This has been immensely helpful! Chris P.S. Thanks also, Jack, for including the link to an explanation for why this happens. Interesting how 'un-standardized' computers are. I guess it's still a new technology. Jack D <[EMAIL PROTECTED]> wrote: The problem likely occurs when you "upload" (assuming you meant ftp when you said that. Ensure you ftp the file in "ASCII" mode when going from windows to unix or vice versa. This will automatically remove any CR's. http://en.wikipedia.org/wiki/Newline#Common_problems Jack From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Chris Rodriguez Sent: Monday, June 25, 2007 2:41 PM To: [EMAIL PROTECTED] Subject: control M's Hi everyone, I wrote a cgi script in PERL which won't execute. I'm told it's because I have control M's at the end of each line, and that this happens when editing programs in Windows (which I do, with Notepad). I found a free program on the web (http://www.scriptarchive.com/scripts/snippets/rm_cont_m.pl) which claims to remove them. I ran it and uploaded the new program, but it still doesn't work. It may be that there's another problem with the script, then again, maybe the control M's are still there. I'd like to rule out the latter. Can anyone advise me on dealing with this? How can I remove them? How can I tell if they're there or not? How can I type up a script so that they never appear in the first place, etc.? Thank you, Chris - You snooze, you lose. Get messages ASAP with AutoCheck in the all-new Yahoo! Mail Beta. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
