Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Execute a module's sub-routine by default
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. -
Execute a module's sub-routine by default
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. -
Execute a module's sub-routine by default
This will only include the module for the script. It will not actually execute any sub-routine with in it. -
Execute a module's sub-routine by default
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... -
where can I get dom.jar
Thanks for the reply. I could able to get it from xerces.jar. -
where can I get dom.jar
Hello, where can I get dom.jar jar file to import dom stuff. I need org.w3c.dom package. Thanks. -
DBD Oracle installation problem
By setting the correct enviroment variables, I could get it straight. Thanks. -
DBD Oracle installation problem
...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::Parser how to reduce pseudo-tag "0"
$xml =~ s/>\s+<+?/></g; The above code does the work, but am wondering if there is something built in XML Parser itself. -
XML::Parser how to reduce pseudo-tag "0"
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... -
Date Modifications
Try this. $date = sprintf("%02d/%02d/%04d",(split('/',$date))); -
-
OOPerl bless question
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... -
OOPerl bless question
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... -
Import Mysql data into a table in excel
Or you can use Spreadsheet::WriteExcel to create an excel sheet. -
can i iterate my hash db results if I do not know the field names
Make it @field_names instead of $field_names. You need to assign keys to a list. -
Field Delimited Flat File Processing
Just noticed I missed publisher. Make the following change: my %fields_hash = ("title",1,"author",1,"pub-date",1,"format",1,"publisher",1); -
Field Delimited Flat File Processing
...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] =... -
how to use the value of a scalar as a name for another scalar
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... -
how to use the value of a scalar as a name for another scalar
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.
