Search results for query: *

The scripts are called from cron. I could modify all the scripts writing one more perl script, that's not a problem. But scripts once modified, it's the testing that takes lots of time.

That's right. I can't edit the code. I can, but I am looking for a solution such that I don't have to modify hundreds of scripts.

This will only include the module for the script. It will not actually execute any sub-routine with in it.

I need to execute a sub-routine from a module everytime I run a perl script. This sub-routine sets the library path depending on the base path of the script. Easier way would be modify the script and add code to execute this sub-routine. But we have hundreds of scripts to edit which we are not...

Thanks for the reply. I could able to get it from xerces.jar.

Hello, where can I get dom.jar jar file to import dom stuff. I need org.w3c.dom package. Thanks.

By setting the correct enviroment variables, I could get it straight. Thanks.

...someone let me rectify this. Thanks. PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/01base................Failed to load Oracle extension and/or shared libraries: install_driver(Oracle) failed: Can't load...

$xml =~ s/>\s+<+?/></g; The above code does the work, but am wondering if there is something built in XML Parser itself.

I have the following XML file in the below format: <root> <clients id="4"> <name>temp</name> <order>yes</order> </clients> </root> I am using XML::Parser Tree Style and the Dumper gives me: $VAR1 = [ 'root', [ {}, 0...

Try this. $date = sprintf("%02d/%02d/%04d",(split('/',$date)));

This is all I want to know. Thanks.

What is the general purpose that I can use keys and values in the blessed hash for? Are these used only for initialization variables that the script gives to constructor? If all private values and references are assigned to 'my' variables in the class, where does one need to use these blessed...

I have the following class: package MyClass; sub new { my $classname = shift; bless {'a'=>1,'b'=>2}, $classname; } 1; And I am accessing the class in my script as below: #!/usr/bin/perl -w use MyClass; my $objref = MyClass->new(); print ref($objref) . "\n"; print for...

Or you can use Spreadsheet::WriteExcel to create an excel sheet.

Make it @field_names instead of $field_names. You need to assign keys to a list.

Just noticed I missed publisher. Make the following change: my %fields_hash = ("title",1,"author",1,"pub-date",1,"format",1,"publisher",1);

...for (my $i=0; $i <= $#pairs; $i++) { if (($i==0) || ($i==$#pairs)) { push(@sequence,$pairs[$i]); next; } my (@twos) = $pairs[$i] =~ m/(.*) (.*)/; if ($fields_hash{"$twos[1]"} == 1) { push(@sequence,(@twos)); } else { $#sequence += 1; $sequence[$#sequence] =...

I think 'use' would not work because it requires and imports the modules at compile time. Symbolic references would do at run time, so is the error. I tried with 'require' and it didnt work. Though require would not import modules at compile time, it might be because 'require' checks the...

It's because only package variables are visible to symbolic references (that's what we are using here). Lexical variables (declared with my()) aren't in a symbol table, and thus are invisible to this mechanism.