MaxL Perl Module Result String Limit

I have a Perl script that uses the MaxL module to extract security filter rows to a text file. This script worked correctly under Essbase 6.2, but under 6.5, the strings returned my the MaxL module are limited to about 128 characters. I've tried increasing the 'MAX_COL' value in Essbase.xs and rebuilding the module, but the result is the same. Has anyone had this problem? Is there any way around this? Thanks.

Good catch - you found a memory leak. Luckily the fix is very straightforward. Edit the file
dbxml/src/perl/common.h
and find this line
#define newSVfromString(str) newSVpvn(str.c_str(), str.length())
Change it to this
#define newSVfromString(str) sv_2mortal(newSVpvn(str.c_str(), str.length()))
and recompile the module.
Paul

Similar Messages

MaxL Perl Module - 64 Bit

I'm trying to compile the Perl Module on a 64 bit Windows 7 machine. However, I can only find Makefiles for 32 bit.
The 11.1.2.1 readme says this issue was fixed in that release:
Oracle Essbase Release 11.1.2.1 Readme
I'm working in 11.1.2.3. It appears that all the files I'm trying to user are Win32 files. Does anyone know where to find the 64 bit files or did Oracle screw this up?

This is lost child.
Since 9 version never update.
I am using maxl + other scripting tool . It's works fine because u can use OS variable like native maxl variable .
ER

String limit does not appear in result list

Hello
I have a sequence file with a sequence call "String limit test". After running the sequence from a process model, the "Limits" container does not appear in the result list of the main sequence. I have checkec the IncludeInReport flag for the Limits container, still I don't see it.
Basically I need this information after calling the MainSequence in the client file, in order to create a report file. How to inclide the variable in the ResultList[]?
Madottati

Madottati,
All the data from Step.Result will be copied to Locals.ResultList. Limits container for the step is outside Result container and hence is not copied to the ResultList. IncludeInReport flag affects only properties that are in a result list or that TestStand copies to a result list.
http://www.ni.com/white-paper/8289/en/ contains more details about what properties gets added to the Result List.
You can use Additional Results feature toa add Limits container to the ResultList.
- Shashidhar

Problem calling two perl modules from java in seperate threads(JVM CRASHES)

Dear Friends,
I have one severe problem regarding calling perl modules from java
I had to call two perl modules simultaneously (i.e.) from two threads,,, but jvm crashes when one of the perl calls is exiting earlier
I am unable to spot out why ....
For calling perl from java ...., We are first calling C code from java using JNI and then Perl code from C
All works fine if we call only one perl call at a time.... If we call them in a synchronized manner the JVM is not crashing .... But we don't want blocking..
The following is the code snippet
<JAVA FILE>
class Sample
     static {
          System.loadLibrary("xyz"); // Here xyz is the library file generated by compiling c code
     public native void call_PrintList();
     public native void call_PrintListNew();
     Sample()
          new Thread1(this).start();
     public static void main(String args[])
          System.out.println("In the main Method");
          new Sample().call_PrintList();
     class Thread1 extends Thread
          Sample sample;
          Thread1(Sample sam)
               sample=sam;
          public void run()
               sample.call_PrintListNew();
}<C FILE>
#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter *my_perl;
static char * words[] = {"alpha", "beta", "gamma", "delta", NULL } ;
static void
call_PrintList(){
     printf("\nIn the Call method of string.c\n");
        char *wor[] = {"hello", "sudha", NULL } ;
           char *my_argv[] = { "", "string.pl" };
           PERL_SYS_INIT3(&argc,&argv,&env);
           my_perl = perl_alloc();
               PL_perl_destruct_level = 1; //// We have mentioned this also and tried removing destruct call
           perl_construct( my_perl );
           perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
          PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
           perl_run(my_perl);
     dSP ;
        perl_call_argv("PrintList", G_DISCARD, wor) ;
PL_perl_destruct_level = 1;
//     perl_destruct(my_perl);
//          perl_free(my_perl);
//           PERL_SYS_TERM();
static void
call_PrintListNew(){
printf("In the new call method\n");
char *wor[] = {"Hiiiiiiiiiiiiiii", "Satyam123333", NULL } ;
        char *my_argv[] = { "", "string.pl" };
        PERL_SYS_INIT3(&argc,&argv,&env);
        my_perl = perl_alloc();
PL_perl_destruct_level = 1;
        perl_construct( my_perl );
        perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
        PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
        perl_run(my_perl);
        dSP ;
        perl_call_argv("PrintListNew", G_DISCARD, wor) ;
PL_perl_destruct_level = 1;
//      perl_destruct(my_perl);
//      perl_free(my_perl);
   //     PERL_SYS_TERM();
void callNew()
call_PrintListNew();
void call ( )
call_PrintList();
//char *wor[] = {"hello","sudha",NULL};
/*   char *my_argv[] = { "", "string.pl" };
      PERL_SYS_INIT3(&argc,&argv,&env);
      my_perl = perl_alloc();
      perl_construct( my_perl );
      perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
     PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
      perl_run(my_perl);*/
   //   call_PrintList();                      /*** Compute 3 ** 4 ***/
/*      perl_destruct(my_perl);
      perl_free(my_perl);
      PERL_SYS_TERM();*/
    }And Finally the perl code
sub PrintList
            my(@list) = @_ ;
            foreach (@list) { print "$_\n" }
sub PrintListNew
            my(@list) = @_ ;
            foreach (@list) { print "$_\n" }
        }Please help me in this regard

Dear Friends,
I have one severe problem regarding calling perl modules from java
I had to call two perl modules simultaneously (i.e.) from two threads,,, but jvm crashes when one of the perl calls is exiting earlier
I am unable to spot out why ....
For calling perl from java ...., We are first calling C code from java using JNI and then Perl code from C
All works fine if we call only one perl call at a time.... If we call them in a synchronized manner the JVM is not crashing .... But we don't want blocking..
The following is the code snippet
<JAVA FILE>
class Sample
     static {
          System.loadLibrary("xyz"); // Here xyz is the library file generated by compiling c code
     public native void call_PrintList();
     public native void call_PrintListNew();
     Sample()
          new Thread1(this).start();
     public static void main(String args[])
          System.out.println("In the main Method");
          new Sample().call_PrintList();
     class Thread1 extends Thread
          Sample sample;
          Thread1(Sample sam)
               sample=sam;
          public void run()
               sample.call_PrintListNew();
}<C FILE>
#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter *my_perl;
static char * words[] = {"alpha", "beta", "gamma", "delta", NULL } ;
static void
call_PrintList(){
     printf("\nIn the Call method of string.c\n");
        char *wor[] = {"hello", "sudha", NULL } ;
           char *my_argv[] = { "", "string.pl" };
           PERL_SYS_INIT3(&argc,&argv,&env);
           my_perl = perl_alloc();
               PL_perl_destruct_level = 1; //// We have mentioned this also and tried removing destruct call
           perl_construct( my_perl );
           perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
          PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
           perl_run(my_perl);
     dSP ;
        perl_call_argv("PrintList", G_DISCARD, wor) ;
PL_perl_destruct_level = 1;
//     perl_destruct(my_perl);
//          perl_free(my_perl);
//           PERL_SYS_TERM();
static void
call_PrintListNew(){
printf("In the new call method\n");
char *wor[] = {"Hiiiiiiiiiiiiiii", "Satyam123333", NULL } ;
        char *my_argv[] = { "", "string.pl" };
        PERL_SYS_INIT3(&argc,&argv,&env);
        my_perl = perl_alloc();
PL_perl_destruct_level = 1;
        perl_construct( my_perl );
        perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
        PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
        perl_run(my_perl);
        dSP ;
        perl_call_argv("PrintListNew", G_DISCARD, wor) ;
PL_perl_destruct_level = 1;
//      perl_destruct(my_perl);
//      perl_free(my_perl);
   //     PERL_SYS_TERM();
void callNew()
call_PrintListNew();
void call ( )
call_PrintList();
//char *wor[] = {"hello","sudha",NULL};
/*   char *my_argv[] = { "", "string.pl" };
      PERL_SYS_INIT3(&argc,&argv,&env);
      my_perl = perl_alloc();
      perl_construct( my_perl );
      perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
     PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
      perl_run(my_perl);*/
   //   call_PrintList();                      /*** Compute 3 ** 4 ***/
/*      perl_destruct(my_perl);
      perl_free(my_perl);
      PERL_SYS_TERM();*/
    }And Finally the perl code
sub PrintList
            my(@list) = @_ ;
            foreach (@list) { print "$_\n" }
sub PrintListNew
            my(@list) = @_ ;
            foreach (@list) { print "$_\n" }
        }Please help me in this regard

Perl modules are being installed to the wrong root directory

This is kind of a package, kind of an AUR question. I don't think it is the usual "upgrade to perl-5.20" issue; I've done lots of searching with no obvious mention of my issue.
I have downloaded the PKGBUILDs for perl-tk (in extra) and perl-pdl (in AUR). When I run makepkg on them, the resultant package has the wrong root directory. For example, perl-pdl tries to install into
/home/<username>/perl5/bin/
rather than
/usr/bin
and the libraries want to go into
/home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL
rather than something like
/usr/lib/perl5/vendor_perl/PDL
I don't think I'm doing anything unusual with the build. For perl-pdl, I download the tarball from the AUR and untar it in ~/tmp. Cd to ~/tmp/perl-pdl and then run makepkg. The start of the build process says:
==> Making package: perl-pdl 2.007-1 (Wed Jun 18 16:12:19 PDT 2014)
==> Checking runtime dependencies...
==> Checking buildtime dependencies...
==> Retrieving sources...
-> Found PDL-2.007.tar.gz
-> Found perldl.conf
==> Validating source files with md5sums...
PDL-2.007.tar.gz ... Passed
perldl.conf ... Passed
==> Extracting sources...
-> Extracting PDL-2.007.tar.gz with bsdtar
==> Removing existing pkg/ directory...
==> Starting build()...
INFORMATION: using file /home/<username>/tmp/perl-pdl/src/perldl.conf to set configuration defaults
Makefile.PL: Found required OpenGL version, setting USE_POGL => 1
Types.pm.PL: using typedef long PDL_Indx
Extracting Types.pm
making PDL_B...
making PDL_S...
making PDL_US...
making PDL_L...
making PDL_IND...
making PDL_LL...
making PDL_F...
making PDL_D...
Warning: prerequisite Astro::FITS::Header 0 not found.
Warning: prerequisite Convert::UU 0 not found.
Warning: prerequisite File::Map 0.57 not found.
Warning: prerequisite Module::Compile 0.23 not found.
Generating a Unix-style Makefile
Writing Makefile for PDL::pod
Generating a Unix-style Makefile
Writing Makefile for Inline
Writing MYMETA.yml and MYMETA.json
Generating a Unix-style Makefile
Writing Makefile for PDL::PP
Generating a Unix-style Makefile
Writing Makefile for PDL::NiceSlice
Writing MYMETA.yml and MYMETA.json
Basic/Core/Makefile.PL: got root build dir /home/<username>/tmp/perl-pdl/src/PDL-2.007
Basic/Core/Makefile.PL: adding /home/<usenname>/tmp/perl-pdl/src/PDL-2.007/inc
Trying to figure out POSIX threads support ...
Saw pthread.h. Fine.
Fine, your perl was linked against pthread library.
==> Will build PDL with POSIX thread support. Gifts to TJL :-)
and wraps up with
Installing /home/<username>/tmp/perl-pdl/pkg/perl-pdl/home/<username>/perl5/man/man3/PDL::Perldl2::NiceSlice.3pm
Installing /home/<username>/tmp/perl-pdl/pkg/perl-pdl/home/<username>/perl5/man/man3/PDL::Perldl2::PDLCommands.3pm
Installing /home/<username>/tmp/perl-pdl/pkg/perl-pdl/home/<username>/perl5/man/man3/PDL::Perldl2::PrintControl.3pm
Installing /home/<username>/tmp/perl-pdl/pkg/perl-pdl/home/<username>/perl5/man/man3/PDL::pdl2.3pm
Installing /home/<username>/tmp/perl-pdl/pkg/perl-pdl/home/<username>/perl5/bin/pdl2
Installing /home/<username>/tmp/perl-pdl/pkg/perl-pdl/home/<username>/perl5/bin/pptemplate
Installing /home/<username>/tmp/perl-pdl/pkg/perl-pdl/home/<username>/perl5/bin/perldl
Installing /home/<username>/tmp/perl-pdl/pkg/perl-pdl/home/<username>/perl5/bin/pdldoc
Appending installation info to /home/<username>/tmp/perl-pdl/pkg/perl-pdl/home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/perllocal.pod
==> Tidying install...
-> Purging unwanted files...
-> Removing libtool files...
-> Removing static library files...
-> Removing empty directories...
-> Compressing man and info pages...
-> Stripping unneeded symbols from binaries and libraries...
==> Creating package "perl-pdl"...
-> Generating .PKGINFO file...
-> Adding changelog file...
-> Generating .MTREE file...
-> Compressing package...
==> Leaving fakeroot environment.
==> Finished making: perl-pdl 2.007-1 (Wed Jun 18 16:21:25 PDT 2014)
Excerpts of "pacman -Qlp perl-pdl-2.007-1-x86_64.pkg.tar.xz" look like
perl-pdl /home/
perl-pdl /home/<username>/
perl-pdl /home/<username>/perl5/
perl-pdl /home/<username>/perl5/bin/
perl-pdl /home/<username>/perl5/bin/pdl
perl-pdl /home/<username>/perl5/bin/pdl2
perl-pdl /home/<username>/perl5/bin/pdldoc
perl-pdl /home/<username>/perl5/bin/perldl
perl-pdl /home/<username>/perl5/bin/pptemplate
perl-pdl /home/<username>/perl5/lib/
perl-pdl /home/<username>/perl5/lib/perl5/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/Inline/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/Inline/MakePdlppInstallable.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/Inline/Pdlpp.pmperl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/AutoLoader.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Bad.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Basic.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/CallExt.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Char.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Complex.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Compression.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Config.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Constants.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Core.pm
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Core/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Core/Dev.pmperl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Core/pdl.h
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/PDL/Core/pdlcore.h
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Bad/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Bad/Bad.so
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/CallExt/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/CallExt/CallExt.so
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Complex/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Complex/Complex.so
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Compression/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Compression/Compression.so
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Core/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Core/Core.so
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/FFT/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/FFT/FFT.so
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Fit/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Fit/Gaussian/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/Fit/Gaussian/Gaussian.so
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/GIS/
perl-pdl /home/<username>/perl5/lib/perl5/x86_64-linux-thread-multi/auto/PDL/GIS/Pr
perl-pdl /home/<username>/perl5/man/
perl-pdl /home/<username>/perl5/man/man1/
perl-pdl /home/<username>/perl5/man/man1/PDL::API.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::BadValues.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Bugs.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Course.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Dataflow.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Delta.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::FAQ.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Indexing.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Internals.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::MATLAB.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Modules.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Objects.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::PP-Inline.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::PP.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::ParallelCPU.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Philosophy.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::QuickStart.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Scilab.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Threading.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Tips.1p
perl-pdl /home/<username>/perl5/man/man1/PDL::Tutorials.1p
perl-pdl /home/<username>/perl5/man/man1/pdl2.1p
perl-pdl /home/<username>/perl5/man/man1/pdldoc.1p
perl-pdl /home/<username>/perl5/man/man1/perldl.1p
perl-pdl /home/<username>/perl5/man/man1/pptemplate.1p
perl-pdl /home/<username>/perl5/man/man3/
perl-pdl /home/<username>/perl5/man/man3/PDL.3pm
perl-pdl /home/<username>/perl5/man/man3/PDL::AutoLoader.3pm
perl-pdl /home/<username>/perl5/man/man3/PDL::BAD2_demo.3pm
It seems like the $pkgdir variable is screwed up, but non-perl AUR packages have installed just fine. Any pointers? Thanks.

As usual I am probably too late to help. If you have local::lib installed and activated, it will override your destination directory when building packages. This is accomplished by setting environment variables. Joel hinted at this and you've seemed to fix them. Here is a decent list of them, mostly written by me I believe: https://wiki.archlinux.org/index.php/Pe … _variables
I've made tools that generate PKGBUILDs for perl modules and I always try to override these environment variables for just such an occasion. Entirely too much info on the subject is available at the wiki page above. Very few official PKGBUILDs will override these. Only the packages I used to maintain which retain my PKGBUILD will work for you. So... beware.

Perl module not working/installed properly

I have a perl script that worked fine on Ubuntu. I've now replaced Ubuntu with Arch and installed the perl modules I need to run this script and one of them doesn't seem to be working properly, I think I had a hiccup during installation of this particular module. Can someone point me in the right direction as to how to fix this please.
This is the output of my script falling over:
[me@arch ~]$ perl -e 'use MP4::Info;'
Can't locate IO/String.pm in @INC (@INC contains: /usr/lib/perl5/site_perl /usr/share/perl5/site_perl /usr/lib/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib/perl5/core_perl /usr/share/perl5/core_perl .) at /usr/share/perl5/site_perl/MP4/Info.pm line 16.
BEGIN failed--compilation aborted at /usr/share/perl5/site_perl/MP4/Info.pm line 16.
Compilation failed in require at -e line 1.
BEGIN failed--compilation aborted at -e line 1.
The 'MP4::Info' module "appears" to be installed ok though, as shown thusly:
[me@arch ~]$ cpan
Terminal does not support AddHistory.
cpan shell -- CPAN exploration and modules installation (v1.9600)
Enter 'h' for help.
cpan[1]> install MP4:Info
Going to read '/home/wayne/.cpan/Metadata'
Database was generated on Fri, 23 Sep 2011 01:50:05 GMT
MP4::Info is up to date (1.13).
cpan[2]>
Any help greatly appreciated, thanks in advance.

For some reason IO::String was not installed. Try installing it from the cpan shell.

Calling Perl module in Java

Hai,
I like to know, How do I call a perl module from my java program such that the
output of the perl module is used in my Java program ?
Regards
ackumar

This is my sample perl program.
#!/usr/bin/perl
        $s=hello();
        print "$s\n";
        sub hello{
                return "HELLO WORLD"
        }I like to use the perl program in my java program. So I wrote the following code.
But I don't know how to get the output "HELLO WORLD" of my sample.pl by running my code
perl_java. java
import java.lang.*;
import java.io.*;
class perl_java{
        public static void main(String args[]){
                try{
                Process p = Runtime.getRuntime().exec("perl sample.pl");
                OutputStream os=p.getOutputStream();
                }catch(Exception ee){ee.printStackTrace();}
}

PNG - perl module might help

Those of you using on the fly generated PNGs served over the network might want to have a look at a perl module I've written Image::Pngslimmer over at CPAN.
I serve PNGs created from a database of JPEGs and unfortunately the PNGs are rather too large - so I needed code to cut them down. Image::Pngslimmer does that (somewhat) and development is still under way to make it better.

For some reason IO::String was not installed. Try installing it from the cpan shell.

Essbase PERL module

Hi,Anybody installed succesfully the Essbase PERL module located in {arborpath}\perlmod directory?Is it possible to install it without Visual Studio compiler and Make.exe (or NMake.exe).Any way of doing it differently?Any ideas or thought about it? Feedbacks are welcome.Thank you for your help.SR

If you are not opposed to using Python you might want to try my Essbase.py wrapper. Functionally equivalent to the Perl module. No compiling required, all pure Python code.
MaxL Python Module
[Essbase.py|http://essbasepy.googlecode.com]

Cannot install perl modules

Hi team,
I’m trying to do a little perl script to telnet some cisco equipment.
I’m trying to install some perl module through CPAN but I was got an error. Output is the following. Any ideas?
Using MAC OSX 10.6.4
cpan[13]> install Net::Telnet:Cisco
Running install for module 'Net::Telnet::Cisco'
CPAN: Data::Dumper loaded ok (v2.121_14)
'YAML' not installed, falling back to Data::Dumper and Storable to read prefs '/Users/sepinto/.cpan/prefs'
Running make for J/JO/JOSHUA/Net-Telnet-Cisco-1.10.tar.gz
Checksum for /Users/sepinto/.cpan/sources/authors/id/J/JO/JOSHUA/Net-Telnet-Cisco-1.10.tar.g z ok
x Net-Telnet-Cisco-1.10/
x Net-Telnet-Cisco-1.10/README
x Net-Telnet-Cisco-1.10/Cisco.pm
x Net-Telnet-Cisco-1.10/.cvsignore
x Net-Telnet-Cisco-1.10/MANIFEST
x Net-Telnet-Cisco-1.10/test.pl
x Net-Telnet-Cisco-1.10/MANIFEST.SKIP
x Net-Telnet-Cisco-1.10/Changes
x Net-Telnet-Cisco-1.10/INSTALL
x Net-Telnet-Cisco-1.10/Makefile.PL
x Net-Telnet-Cisco-1.10/TODO
Warning (usually harmless): 'YAML' not installed, will not store persistent state
CPAN.pm: Going to build J/JO/JOSHUA/Net-Telnet-Cisco-1.10.tar.gz
Checking if your kit is complete...
Looks good
Warning: prerequisite Net::Telnet 3.02 not found.
Writing Makefile for Net::Telnet::Cisco
---- Unsatisfied dependencies detected during ----
---- JOSHUA/Net-Telnet-Cisco-1.10.tar.gz ----
Net::Telnet [requires]
Shall I follow them and prepend them to the queue
of modules we are processing right now? [yes]
Running make test
Delayed until after prerequisites
Running make install
Delayed until after prerequisites
Running install for module 'Net::Telnet'
'YAML' not installed, falling back to Data::Dumper and Storable to read prefs '/Users/sepinto/.cpan/prefs'
Running make for J/JR/JROGERS/Net-Telnet-3.03.tar.gz
Has already been unwrapped into directory /Users/sepinto/.cpan/build/Net-Telnet-3.03-naYMND
Could not make: Unknown error
Warning (usually harmless): 'YAML' not installed, will not store persistent state
Running make test
Can't test without successful make
Running make install
Make had returned bad status, install seems impossible
Running make for J/JO/JOSHUA/Net-Telnet-Cisco-1.10.tar.gz
Has already been unwrapped into directory /Users/sepinto/.cpan/build/Net-Telnet-Cisco-1.10-jrURaI
CPAN.pm: Going to build J/JO/JOSHUA/Net-Telnet-Cisco-1.10.tar.gz
Warning: Prerequisite 'Net::Telnet => 3.02' for 'J/JO/JOSHUA/Net-Telnet-Cisco-1.10.tar.gz' failed when processing 'J/JR/JROGERS/Net-Telnet-3.03.tar.gz' with 'make => NO'. Continuing, but chances to succeed are limited.
Can't exec "make": No such file or directory at /System/Library/Perl/5.10.0/CPAN.pm line 7698.
JOSHUA/Net-Telnet-Cisco-1.10.tar.gz
make -- NOT OK
Warning (usually harmless): 'YAML' not installed, will not store persistent state
Running make test
Can't test without successful make
Running make install
Make had returned bad status, install seems impossible
Failed during this command:
JOSHUA/Net-Telnet-Cisco-1.10.tar.gz : make NO
Thanks for your help.
Regards
SP

Hi Robert,
Unfortunately, I already tried that. Here are the results:
sepinto-mac:~ sepinto$ sudo perl -MCPAN -e shell
Password:
Terminal does not support AddHistory.
cpan shell -- CPAN exploration and modules installation (v1.9205)
ReadLine support available (maybe install Bundle::CPAN or Bundle::CPANxxl?)
cpan[1]> install Net::Telnet
CPAN: Storable loaded ok (v2.18)
Going to read /Users/sepinto/.cpan/Metadata
Database was generated on Mon, 16 Aug 2010 10:36:17 GMT
Running install for module 'Net::Telnet'
CPAN: Data::Dumper loaded ok (v2.121_14)
'YAML' not installed, falling back to Data::Dumper and Storable to read prefs '/Users/sepinto/.cpan/prefs'
Running make for J/JR/JROGERS/Net-Telnet-3.03.tar.gz
CPAN: Digest::SHA loaded ok (v5.45)
CPAN: Compress::Zlib loaded ok (v2.008)
Checksum for /Users/sepinto/.cpan/sources/authors/id/J/JR/JROGERS/Net-Telnet-3.03.tar.gz ok
Scanning cache /Users/sepinto/.cpan/build for sizes
............................................................................DONE
x Net-Telnet-3.03/
x Net-Telnet-3.03/Makefile.PL
x Net-Telnet-3.03/ChangeLog
x Net-Telnet-3.03/lib/
x Net-Telnet-3.03/lib/Net/
x Net-Telnet-3.03/lib/Net/Telnet.pm
x Net-Telnet-3.03/t/
x Net-Telnet-3.03/t/select.t
x Net-Telnet-3.03/README
x Net-Telnet-3.03/MANIFEST
CPAN: File::Temp loaded ok (v0.18)
Warning (usually harmless): 'YAML' not installed, will not store persistent state
CPAN.pm: Going to build J/JR/JROGERS/Net-Telnet-3.03.tar.gz
Checking if your kit is complete...
Looks good
Writing Makefile for Net::Telnet
Can't exec "make": No such file or directory at /System/Library/Perl/5.10.0/CPAN.pm line 7698.
JROGERS/Net-Telnet-3.03.tar.gz
make -- NOT OK
Warning (usually harmless): 'YAML' not installed, will not store persistent state
Running make test
Can't test without successful make
Running make install
Make had returned bad status, install seems impossible
Failed during this command:
JROGERS/Net-Telnet-3.03.tar.gz : make NO

Trouble installing the PERL modules for the ITunesU script

I am trying to install the modules specified in the PERL script. I get an error when trying to install which I think is a result of a problem with the MAC developer tools. This is the output that I get when trying to install the Digest::SHA module
Can someone please tell me how to fix this?
cpan> install Digest::SHA
CPAN: Storable loaded ok
Going to read /Users/admin/.cpan/Metadata
Database was generated on Wed, 21 Mar 2007 01:09:40 GMT
Running install for module Digest::SHA
Running make for M/MS/MSHELOR/Digest-SHA-5.44.tar.gz
CPAN: Digest::MD5 loaded ok
CPAN: Compress::Zlib loaded ok
Checksum for /Users/admin/.cpan/sources/authors/id/M/MS/MSHELOR/Digest-SHA-5.44. tar.gz ok
Scanning cache /Users/admin/.cpan/build for sizes
Digest-SHA-5.44/
Digest-SHA-5.44/t/
Digest-SHA-5.44/t/state/
Digest-SHA-5.44/t/state/state.1
Digest-SHA-5.44/t/state/state.256
Digest-SHA-5.44/t/state/state.512
Digest-SHA-5.44/t/state/state.384
Digest-SHA-5.44/t/4-bitstr-large.t
Digest-SHA-5.44/t/2-nist-vectors-byte.t
Digest-SHA-5.44/t/nist/
Digest-SHA-5.44/t/nist/Readme.txt
Digest-SHA-5.44/t/nist/bit-messages.sha1
Digest-SHA-5.44/t/nist/byte-hashes.sha1
Digest-SHA-5.44/t/nist/byte-messages.sha1
Digest-SHA-5.44/t/nist/COPYRIGHT
Digest-SHA-5.44/t/nist/bit-hashes.sha1
Digest-SHA-5.44/t/1-exist.t
Digest-SHA-5.44/t/5-hmac-rfc2202.t
Digest-SHA-5.44/t/2-nist-sha-base64.t
Digest-SHA-5.44/t/2-nist-sha-1.t
Digest-SHA-5.44/t/4-bitstr-increasing.t
Digest-SHA-5.44/t/2-nist-sha-256.t
Digest-SHA-5.44/t/0-pod.t
Digest-SHA-5.44/t/0-pod-coverage.t
Digest-SHA-5.44/t/7-ireland.t
Digest-SHA-5.44/t/2-nist-sha-224.t
Digest-SHA-5.44/t/2-nist-sha-384.t
Digest-SHA-5.44/t/3-gillogly-easy.t
Digest-SHA-5.44/t/6-dump-load.t
Digest-SHA-5.44/t/2-nist-sha-512.t
Digest-SHA-5.44/t/5-hmac-fips198.t
Digest-SHA-5.44/t/gillogly/
Digest-SHA-5.44/t/gillogly/state.110
Digest-SHA-5.44/t/gillogly/state.011
Digest-SHA-5.44/t/5-hmac-woodbury.t
Digest-SHA-5.44/t/3-gillogly-hard.t
Digest-SHA-5.44/t/5-hmac-sha-256.t
Digest-SHA-5.44/t/2-nist-sha-oo.t
Digest-SHA-5.44/t/2-nist-vectors-bit.t
Digest-SHA-5.44/t/1-hello-world.t
Digest-SHA-5.44/t/4-bitstr-random.t
Digest-SHA-5.44/examples/
Digest-SHA-5.44/examples/dups
Digest-SHA-5.44/Changes
Digest-SHA-5.44/MANIFEST
Digest-SHA-5.44/typemap
Digest-SHA-5.44/src/
Digest-SHA-5.44/src/sha.c
Digest-SHA-5.44/src/sha64bit.c
Digest-SHA-5.44/src/hmacxtra.c
Digest-SHA-5.44/src/sha.h
Digest-SHA-5.44/src/hmac.h
Digest-SHA-5.44/src/shaxtra.c
Digest-SHA-5.44/src/hmac.c
Digest-SHA-5.44/src/sha64bit.h
Digest-SHA-5.44/META.yml
Digest-SHA-5.44/SHA.pm
Digest-SHA-5.44/SHA.xs
Digest-SHA-5.44/shasum
Digest-SHA-5.44/Makefile.PL
Digest-SHA-5.44/README
Removing previously used /Users/admin/.cpan/build/Digest-SHA-5.44
CPAN.pm: Going to build M/MS/MSHELOR/Digest-SHA-5.44.tar.gz
Checking if your kit is complete...
Looks good
Writing Makefile for Digest::SHA
-- NOT OK
Running make test
Can't test without successful make
Running make install
make had returned bad status, install seems impossible
cpan>
I installed the Developer tools from Apple's web site.
Thanks
Donna

I figured it out. I discovered that the developer tools weren't installed by default on the Darwin OS. I downloaded them from the Apple site, installed the dmg file and then installed the required Perl modules and then it worked beautifully.
The problem was that the modules couldn't make properly when being installed.
Fun Fun
Donna

Cannot install Date::Calc perl module

I'm running Solaris 11 on my machine and I need to install the Date::Calc perl module in order for one of my scripts to work.
When I run the following command:
sudo perl -MCPAN -e 'install Date::Calc'
I get the following error:
Tests succeeded but one dependency not OK (Bit::Vector)
STBEY/Date-Calc-6.3.tar.gz
[dependencies] -- NA
Running make install
make test had returned bad status, won't install without force
When trying to install Bit::Vector first, i.e. when running the following command:
sudo perl -MCPAN -e 'install Bit::Vector'
i get the following error message:
Checking if your kit is complete...
Looks good
Writing Makefile for Bit::Vector
Writing patchlevel.h for /usr/bin/perl (5.012003)
cp lib/Bit/Vector/Overload.pm blib/lib/Bit/Vector/Overload.pm
cp Vector.pm blib/lib/Bit/Vector.pm
cp Vector.pod blib/lib/Bit/Vector.pod
cp lib/Bit/Vector/Overload.pod blib/lib/Bit/Vector/Overload.pod
cp lib/Bit/Vector/String.pod blib/lib/Bit/Vector/String.pod
cp lib/Bit/Vector/String.pm blib/lib/Bit/Vector/String.pm
cc -c -DPTR_IS_LONG -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DPERL_USE_SAFE_PUTENV -xO4 -DVERSION=\"7.2\" -DXS_VERSION=\"7.2\" -KPIC "-I/usr/perl5/5.12/lib/i86pc-solaris-64int/CORE" BitVector.c
sh: line 1: cc: not found
*** Error code 127
make: Fatal error: Command failed for target `BitVector.o'
STBEY/Bit-Vector-7.2.tar.gz
/usr/bin/make -- NOT OK
'YAML' not installed, will not store persistent state
Running make test
Can't test without successful make
Running make install
Make had returned bad status, install seems impossible
So it looks like the C compiler is missing. So I installed gcc via the following commands:
pkg install gcc-45
pkg install system/header
but I still get the same error when trying to install Bit::Vector. Indeed, when I type cc on the command-line, I get the command not found error. When I type gcc, however, I get gcc: no input files.
What should I do to fix this?
Thanks for your advice,
Dusan

So I ran the following command:
+/usr/perl5/5.8.4/bin/perlgcc -MCPAN -e 'install Bit::Vector'+
but it did not work either. I got the following error output.
CPAN.pm: Going to build S/ST/STBEY/Bit-Vector-7.2.tar.gz
cp lib/Bit/Vector/Overload.pm blib/lib/Bit/Vector/Overload.pm
cp Vector.pm blib/lib/Bit/Vector.pm
cp Vector.pod blib/lib/Bit/Vector.pod
cp lib/Bit/Vector/String.pod blib/lib/Bit/Vector/String.pod
cp lib/Bit/Vector/Overload.pod blib/lib/Bit/Vector/Overload.pod
cp lib/Bit/Vector/String.pm blib/lib/Bit/Vector/String.pm
gcc -c -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TS_ERRNO -xO3 -xspace -xildoff -DVERSION=\"7.2\" -DXS_VERSION=\"7.2\" -KPIC "-I/usr/perl5/5.8.4/lib/i86pc-solaris-64int/CORE" BitVector.c
gcc: unrecognized option '-KPIC'
gcc: language ildoff not recognized
gcc: language ildoff not recognized
gcc: BitVector.c: linker input file unused because linking not done
+/usr/perl5/5.8.4/bin/perl /usr/perl5/5.8.4/lib/ExtUtils/xsubpp -typemap /usr/perl5/5.8.4/lib/ExtUtils/typemap -typemap typemap Vector.xs > Vector.xsc && mv Vector.xsc Vector.c+
gcc -c -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TS_ERRNO -xO3 -xspace -xildoff -DVERSION=\"7.2\" -DXS_VERSION=\"7.2\" -KPIC "-I/usr/perl5/5.8.4/lib/i86pc-solaris-64int/CORE" Vector.c
gcc: unrecognized option '-KPIC'
gcc: language ildoff not recognized
gcc: language ildoff not recognized
gcc: Vector.c: linker input file unused because linking not done
Running Mkbootstrap for Bit::Vector ()
chmod 644 Vector.bs
rm -f blib/arch/auto/Bit/Vector/Vector.so
LD_RUN_PATH="" gcc -G BitVector.o Vector.o -o blib/arch/auto/Bit/Vector/Vector.so
gcc: BitVector.o: No such file or directory
gcc: Vector.o: No such file or directory
gcc: no input files
*** Error code 1
make: Fatal error: Command failed for target `blib/arch/auto/Bit/Vector/Vector.so'
+/usr/bin/make -- NOT OK+
Running make test
Can't test without successful make
Running make install
make had returned bad status, install seems impossible

Problem installing css perl module

Hey,
my problem isn't probably arch-related (and possibly very dumb), but I hope someone can help me anyway.
I'm trying to install a CSS perl module - and here is what I get -
[root@vlsi-wiki ~]# perl -MCPAN -eshell
Terminal does not support AddHistory.
cpan shell -- CPAN exploration and modules installation (v1.9456)
Enter 'h' for help.
cpan[1]> install CSS
Going to read '/root/.cpan/Metadata'
Database was generated on Mon, 24 May 2010 09:27:04 GMT
Fetching with LWP:
ftp://cpan.noris.de/pub/CPAN/authors/01mailrc.txt.gz
Going to read '/root/.cpan/sources/authors/01mailrc.txt.gz'
............................................................................DONE
Fetching with LWP:
ftp://cpan.noris.de/pub/CPAN/modules/02packages.details.txt.gz
Going to read '/root/.cpan/sources/modules/02packages.details.txt.gz'
Database was generated on Tue, 25 May 2010 09:27:47 GMT
............................................................................DONE
Fetching with LWP:
ftp://cpan.noris.de/pub/CPAN/modules/03modlist.data.gz
Going to read '/root/.cpan/sources/modules/03modlist.data.gz'
............................................................................DONE
Going to write /root/.cpan/Metadata
Running install for module 'CSS'
Running make for I/IA/IAMCAL/CSS-1.08.tar.gz
Checksum for /root/.cpan/sources/authors/id/I/IA/IAMCAL/CSS-1.08.tar.gz ok
Scanning cache /root/.cpan/build for sizes
............................................................................DONE
CPAN.pm: Going to build I/IA/IAMCAL/CSS-1.08.tar.gz
Checking if your kit is complete...
Looks good
Writing Makefile for CSS
cp CSS.pm blib/lib/CSS.pm
cp CSS/Value.pm blib/lib/CSS/Value.pm
cp CSS/Parse/Compiled.pm blib/lib/CSS/Parse/Compiled.pm
cp CSS/Property.pm blib/lib/CSS/Property.pm
cp CSS/Style.pm blib/lib/CSS/Style.pm
cp CSS/Parse/PRDGrammar.pm blib/lib/CSS/Parse/PRDGrammar.pm
cp CSS/Parse/Heavy.pm blib/lib/CSS/Parse/Heavy.pm
cp CSS/Selector.pm blib/lib/CSS/Selector.pm
cp CSS/Parse/Lite.pm blib/lib/CSS/Parse/Lite.pm
cp CSS/Adaptor/Debug.pm blib/lib/CSS/Adaptor/Debug.pm
cp CSS/Adaptor/Pretty.pm blib/lib/CSS/Adaptor/Pretty.pm
cp CSS/Parse.pm blib/lib/CSS/Parse.pm
cp CSS/Adaptor.pm blib/lib/CSS/Adaptor.pm
cp CSS/Parse/CompiledGrammar.pm blib/lib/CSS/Parse/CompiledGrammar.pm
Manifying blib/man3/CSS.3pm
Manifying blib/man3/CSS::Value.3pm
Manifying blib/man3/CSS::Parse::Compiled.3pm
Manifying blib/man3/CSS::Property.3pm
Manifying blib/man3/CSS::Parse::Heavy.3pm
Manifying blib/man3/CSS::Parse::PRDGrammar.3pm
Manifying blib/man3/CSS::Style.3pm
Manifying blib/man3/CSS::Parse::Lite.3pm
Manifying blib/man3/CSS::Selector.3pm
Manifying blib/man3/CSS::Adaptor::Debug.3pm
Manifying blib/man3/CSS::Parse.3pm
Manifying blib/man3/CSS::Adaptor::Pretty.3pm
Manifying blib/man3/CSS::Adaptor.3pm
IAMCAL/CSS-1.08.tar.gz
/usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01_basic.t ........... ok
t/02_parse_lite.t ...... ok
t/03_parse_heavy.t ..... ok
t/04_parse_compiled.t .. 1/8 Unknown starting rule (Parse::RecDescent::namespace000001::stylesheet) called
at /root/.cpan/build/CSS-1.08-pVKcD1/blib/lib/CSS/Parse/Compiled.pm line 28
Compilation failed in require at t/04_parse_compiled.t line 3.
# Looks like you planned 8 tests but ran 4.
# Looks like your test exited with 255 just after 4.
t/04_parse_compiled.t .. Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 4/8 subtests
t/05_search.t .......... ok
t/06_adaptor_simple.t .. ok
t/07_adaptor_pretty.t .. ok
t/08_adaptor_debug.t ... ok
Test Summary Report
t/04_parse_compiled.t (Wstat: 65280 Tests: 4 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 8 tests but ran 4.
Files=8, Tests=38, 2 wallclock secs ( 0.05 usr 0.06 sys + 1.15 cusr 0.19 csys = 1.45 CPU)
Result: FAIL
Failed 1/8 test programs. 0/38 subtests failed.
make: *** [test_dynamic] Error 255
IAMCAL/CSS-1.08.tar.gz
/usr/bin/make test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
reports IAMCAL/CSS-1.08.tar.gz
Running make install
make test had returned bad status, won't install without force
Failed during this command:
IAMCAL/CSS-1.08.tar.gz : make_test NO
I've tried with both perl 5.10.1 and perl from testing (5.12), didn't help.
Does anyone have any idea?

There is a bug upstream according to CPAN's bugtracker. Someone provided a fix there to regenerate the buggy file that is causing the test to fail. Here is a source package file I made. You can build it to apply their fix and make the package.

MaxL Python Module

The MaxL Python Module, Essbase.py, provides access to Hyperion Essbase multi-dimensional databases from Python programs through MaxL. It is similar in function and usage to the Perl module Essbase.pm. The Essbase Python module interfaces with Hyperion Essbase using a Python ctypes module wrapper for the primary MaxL dll (essmaxl.dll or essmaxlu.dll). The ctypes module is standard in Python 2.5 and may be downloaded for earlier versions from http://sourceforge.net/projects/ctypes. Versions of the wrapper are included for Essbase 6.5 and for Essbase 7.
Updates:
Support for Essbase 7.1 MDX has been added.
http://essbasepy.googlecode.com/

A small update to the Essbase Python module has been posted to [http://essbasepy.googlecode.com/] . As before, no compiler is required if you already have Python and the ctypes module (included in the standard library as of version 2.5). Installation is as easy as unzipping the download and executing from the command line:
python setup.py install
Changes
ver. 7.1.2009.0519
1. Added support for Unicode (thanks to Edward Delgado for many cycles of unit and integration testing).
ver. 7.1.2008.0818
1. Changed method of locating MaxL library to (hopefully) make script Unix friendly.
2. Added support for MaxL doubles.
ver. 7.1.2008.0304
1. New generator function rows() which allows for simpler, more pythonic data access.
2. New optional parameter timefmt for the execute() function. Defaults to original time.asctime() format.
ver. 7.1.2007.1106
Original posting to http://essbasepy.googlecode.com/.

ITunes cannot read ID3 tags written by Perl module 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 inform ation 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 ID 3v1 and ID3v2 tags just fine (including the altered fields) after running the following script.
Thanks for any suggestions/guidance 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
Windows XP

SOLVED
Changing the config entry (Line 3 in original listing) to:
MP3::Tag->config("id3v23_unsync",0);
fixed the problem with iTunes.
NOTE: This means that iTunes version 7.x still has the synchronization problem alluded to in the documentation (POD) for this Perl module. I just had the syntax wrong to set the workaround parameter.
That aside, iTunes 7.2 works quite nicely with the modified MP3. Artwork (even though this was a modified and obscure (and legal) Bible audio, it found additional information about the MP3 in the online database).
Kind Regards,
GL
Windows XP

MaxL Perl Module Result String Limit

Similar Messages

Maybe you are looking for