Solved (Thanks Activeperl mailing list!!!!!!!!!)
Changing the MP3::Tag config entry to:
MP3::Tag-> config("id3v23_unsync",0);
fixed the problem with iTunes. I simply had the wrong syntax in the original
listing.
The following altered code is working "as expected". iTunes 7.x can read
everything in the ID3v1 and ID3v2 tags that I've changed.
NOTE: This means that iTunes still has the same "synchronization" problem in
7.x that is referred to in the Perl documentation for the MP3::Tag module (see
entry for "id3v23_unsync")
------- Shiny new code --------
#!/usr/bin/perl -w
use MP3::Tag;
MP3::Tag-> config("id3v23_unsync",0);
my $filename = $ARGV[0];
$mp3 = MP3::Tag-> new($filename);
@info = $mp3-> autoinfo();
@albnum = split(/_/, $info[3]);
#my ($title, $frame);
$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];
$frame = $mp3-> {ID3v2}->get_frame("TIT2");
print $frame;
# @tags = $mp3-> get_tags;
# print "\n @tags";
$mp3-> close();
Kind Regards!
GL
[EMAIL PROTECTED] wrote:
Send Perl-Win32-Users mailing list submissions to
[email protected]
To subscribe or unsubscribe via the World Wide Web, visit
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
or, via email, send a message with subject or body 'help' to
[EMAIL PROTECTED]
You can reach the person managing the list at
[EMAIL PROTECTED]
When replying, please edit your Subject line so it is more specific
than "Re: Contents of Perl-Win32-Users digest..."
Today's Topics:
1. perl 5.8.6 811 and oracle 10g installing 5.8.3 (Dan Jablonsky)
2. MP3::Tag - iTunes cannot read ID3 tags written by MP3::Tag?
([EMAIL PROTECTED])
3. Win32-API and Supporting DLL in C++ (Adam R. Frielink)
----------------------------------------------------------------------
Message: 1
Date: Tue, 26 Jun 2007 13:17:57 -0700 (PDT)
From: Dan Jablonsky
Subject: perl 5.8.6 811 and oracle 10g installing 5.8.3
To: [email protected]
Message-ID: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset=iso-8859-1
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/
------------------------------
Message: 2
Date: Tue, 26 Jun 2007 13:25:22 -0700 (PDT)
From: "[EMAIL PROTECTED]"
Subject: MP3::Tag - iTunes cannot read ID3 tags written by MP3::Tag?
To: [email protected]
Message-ID: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset="iso-8859-1"
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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL:
http://aspn.activestate.com/ASPN/Mail/Browse/Threaded/perl-win32-users/attachments/20070626/f2563a33/attachment-0001.html
------------------------------
Message: 3
Date: Wed, 27 Jun 2007 10:20:43 -0500
From: "Adam R. Frielink"
Subject: Win32-API and Supporting DLL in C++
To: "Perl Win32 List"
Message-ID:
Content-Type: text/plain; charset="us-ascii"
First of all, thank you for all the help you have provided in the past,
especially Bill!
My situation: I have written an application that needs to access the
Crystal Reports (version 8.5) API to print documents based on parameters
issued by command line. One of my customer's customers wants to use a
collation function on their printer when printing multiple copies.
Unfortunately, I need to pass in some values through the API using some
DEVMODE settings. When I use Perl to modify the printer settings,
NOTHING happens at print time and the default settings in the Crystal
Report are always used to print.
I seem unable to use the specific method provided to send alternate
printer settings properly.
I have no experience with C++, nor DLL creation. But my client has C++
programmers on staff. I need to provide him with a set of documentation
for how to create a DLL that I can interface with my Perl app to handle
this situation. What I don't know is how to send to them the Object
reference for my current Crystal Report document so they can access the
Crystal API at a lower level than I can with Perl. Passing the rest of
the parameters back and forth should be simple enough, but this is
uncharted water for me. Any pointers? Websites? Tutorials I can read
would be greatly appreciated.
Sincerely,
Adam Frielink
------------------------------
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
End of Perl-Win32-Users Digest, Vol 11, Issue 16
************************************************
---------------------------------
Ready for the edge of your seat? Check out tonight's top picks on Yahoo! TV. _______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
