Perl script question


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl script question
# 1  
Old 05-27-2012
Perl script question

Hi,
I have a unix machine that hosts 5 oracle databases.
Each database has its own "ORACLE_HOME" with is actualy an oracle software .
Each software is installed in its own directory.
For example :

/u01/app/oracle/product/11.2.0/TERP11gR2
/u01/app/oracle/product/11.2.0/QERP11gR2
/u01/app/oracle/product/11.2.0/LERP11gR2
and so one.

On each software , i also have perl as part of the software in the following location :

/u01/app/oracle/product/11.2.0/TERP11gR2/perl/bin
/u01/app/oracle/product/11.2.0/QERP11gR2/perl/bin

and so on.

The question is as followed:

I have a generic script called test.pl which is running from the crontab

In order to run the script againt the "right" database i need to set in the first line of the perl script :

#!/u01/app/oracle/product/11.2.0/TERP11gR2/perl/bin/perl
or
#!/u01/app/oracle/product/11.2.0/QERP11gR2/perl/bin/perl
or
#!/u01/app/oracle/product/11.2.0/LERP11gR2/perl/bin/perl

Since i have 5 database , i had to duplicate the script test.pl 5 times.
The script is the same , and the only change is this first line.

Please advice how change it , in order to have just one script and not five .....

Thanks
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

2. Programming

Not a repeated question (Perl Script Create Football Formation)

https://www.unix.com/programming/252468-perl-script-create-football-formation.html https://www.unix.com/members/43551.html, it is not repeated question. please read it before u block my question. Unblock it for me. Thanks:mad: (0 Replies)
Discussion started by: Tzeronone
0 Replies

3. Shell Programming and Scripting

Excuting perl script from within a perl script with variables.

Not sure what I am doing wrong here, but I can print the list with no issue. Just a blank screen with the 'do'. #!/usr/bin/perl open FILE, "upslist.txt"; while ($line=<FILE>){ if ($line=~/^(.*?),(.*?)$/){ #print "ups:$1 string:$2\n"; do 'check_snmp_mgeups-0.1.pl -H $1 -C $2'; } ... (1 Reply)
Discussion started by: mrlayance
1 Replies

4. Shell Programming and Scripting

Perl : embedding java script with cgi perl script

Hi All, I am aware that html tags can be embedded in cgi script as below.. In the same way is it possible to embed the below javascript in perl cgi script ?? print("<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">"); print("<input type = "text"... (1 Reply)
Discussion started by: scriptscript
1 Replies

5. Shell Programming and Scripting

executing perl script from another perl script : NOT WORKING

Hi Folks, I have 2 perl scripts and I need to execute 2nd perl script from the 1st perl script in WINDOWS. In the 1st perl script that I had, I am calling the 2nd script main.pl =========== print "This is my main script\n"; `perl C:\\Users\\sripathg\\Desktop\\scripts\\hi.pl`; ... (3 Replies)
Discussion started by: giridhar276
3 Replies

6. Shell Programming and Scripting

calling a perl script with arguments from a parent perl script

I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard. From parent.pl $input1=123; $input2=abc; I tried calling it with system("/usr/bin/perl child.pl $input1 $input2"); and `perl... (1 Reply)
Discussion started by: grajp002
1 Replies

7. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

8. Shell Programming and Scripting

Perl Question on How to Design an Effective Script

Hello All, This is my situation and I am new to perl scripting so I am trying to figure out the best way to tackle this problem. I need help in creating the logic to analyze the data. Problem: I need to access an oracle database, gather information from a specific query and then analyze... (0 Replies)
Discussion started by: jacktravine
0 Replies

9. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

10. Shell Programming and Scripting

question on perl script

LOGFILE ======== My name is: ?Anthony Perkins I am an American citizen. My name is: ?Donte Suarez I am a Spanish citizen. My name is: ? lenny Davis I am an Australian citizen. My name is: ?allen rigodeau I am a French citizen. My name is: ? manuel williams I am a Mexican citizen. ... (2 Replies)
Discussion started by: gholdbhurg
2 Replies
Login or Register to Ask a Question
Catalyst::Manual::Deployment::SharedHosting(3pm)	User Contributed Perl Documentation	  Catalyst::Manual::Deployment::SharedHosting(3pm)

NAME
Catalyst::Manual::Deployment::SharedHosting - Deploying Catalyst on Shared Hosting Catalyst on shared hosting So, you want to put your Catalyst application out there for the whole world to see, but you don't want to break the bank. There is an answer - if you can get shared hosting with FastCGI and a shell, you can install your Catalyst app in a local directory on your shared host. First, run perl -MCPAN -e shell and go through the standard CPAN configuration process. Then exit without installing anything. Next, download the latest local::lib package and follow its 'bootstrap' instructions to get it installed and the local configuration added to your "~/.bashrc". Now log out, then back in again (or run ". .bashrc" if you prefer). Now you can install the modules you need using CPAN as normal; they will be installed into your local directory, and Perl will pick them up. Finally, change into the root directory of your virtual host, and symlink your application's script directory: cd path/to/mydomain.com ln -s ~/lib/MyApp/script script And add the following lines to your .htaccess file (assuming the server is setup to handle .pl as fcgi - you may need to rename the script to myapp_fastcgi.fcgi and/or use a SetHandler directive): RewriteEngine On RewriteCond %{REQUEST_URI} !^/?script/myapp_fastcgi.pl RewriteRule ^(.*)$ script/myapp_fastcgi.pl/$1 [PT,L] Now "http://mydomain.com/" should now Just Work. Congratulations, now you can tell your friends about your new website. AUTHORS
Catalyst Contributors, see Catalyst.pm COPYRIGHT
This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. perl v5.14.2 2012-01-20 Catalyst::Manual::Deployment::SharedHosting(3pm)