Re^3: Env Variables

Replies are listed 'Best First'.
Re^4: Env Variables by LinuxUser2008 (Acolyte) on Jun 10, 2010 at 16:54 UTC
Code #!/usr/bin/perl use DBI; use CGI; #BEGIN{ $ENV{'ORACLE_HOME'}="/opt/oracle/product/10.2.0/client_1"; $ENV{'LD_LIBRARY_PATH'}="/opt/oracle/product/10.2.0/client_1/lib32:/us +r/local/lib/sprolib:/usr/local/lib:/usr/lib:/usr/openwin/lib:/usr/dt/ +lib:/usr/lib:/usr/ucblib"; #$ENV{'TWO_TASK'}='DB'; #} print "Content-Type:text/html\n\n"; print<<__HTML__; <html> <head> </head> <title>Test123</title> <body> __HTML__ my $DB="sampleSID"; my $HOST="DBSERVERNAME"; my $PORT="1521"; my $USER="ms_swan"; my $PASS="ms_swan915"; print "<br><br>"; print "Environment variables are:". %ENV; print %ENV; print "<br><br><br><br><br><br>"; print "This is before connecting\n"; my $MysqlDbh = DBI->connect("DBI:Oracle:host=$HOST;sid=$DB;por +t=$PORT",$USER, $PASS, {RaiseError => 0, AutoCommit => 1,PrintError = +> 1 }); print $MysqlDbh; if (! $MysqlDbh) { print "Error Error Error"; }else{ print "Connected"; } my $Statement="select * from AdditionalNodeInformation where Node = '1 +23'"; my $Sth = $MysqlDbh->prepare($Statement); if (! $Sth) { print "Unable to prepare query $Statement.\n$DBI::errstr\n"; exit; } if (! $Sth->execute) { print "Unable to execute query $Statement\n$DBI::errstr\n"; exit; }else{ print "This query has been executed"; } print "</html>"; [download] Error.. `install_driver(Oracle) failed: Can't load '/usr/local/lib/perl5/site_p +erl/5.8.8/sun4-solaris/auto/DBD/Oracle /Oracle.so' for module DBD::Or +acle: ld.so.1: perl: fatal: /opt/oracle/product/10.2.0/client_1/lib/l +ibclntsh.so.10.1: wrong ELF class: ELFCLASS64 at /usr/local/lib/perl5 +/5.8.8/sun4-solaris/DynaLoader.pm line 230. at (eval 4) line 3 Compilation failed in require Perhaps a required shared library or dll isn't installed where expecte +d` [download] I will go through the Documentation once more.. Thanks And Warm Regards, Blub:)	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Env Variables
by LinuxUser2008 (Acolyte) on Jun 10, 2010 at 16:54 UTC

#!/usr/bin/perl
use DBI;
use CGI;

#BEGIN{
$ENV{'ORACLE_HOME'}="/opt/oracle/product/10.2.0/client_1";
$ENV{'LD_LIBRARY_PATH'}="/opt/oracle/product/10.2.0/client_1/lib32:/us
+r/local/lib/sprolib:/usr/local/lib:/usr/lib:/usr/openwin/lib:/usr/dt/
+lib:/usr/lib:/usr/ucblib";

#$ENV{'TWO_TASK'}='DB';
#}

print "Content-Type:text/html\n\n";
print<<__HTML__;
<html>
<head>
</head>
<title>Test123</title>
<body>
__HTML__

my $DB="sampleSID";
my $HOST="DBSERVERNAME";
my $PORT="1521";
my $USER="ms_swan";
my $PASS="ms_swan915";

print "<br><br>";
print "Environment variables are:". %ENV;
print %ENV;
print "<br><br><br><br><br><br>";
print "This is before connecting\n";
        my $MysqlDbh = DBI->connect("DBI:Oracle:host=$HOST;sid=$DB;por
+t=$PORT",$USER, $PASS, {RaiseError => 0, AutoCommit => 1,PrintError =
+> 1 });
        print $MysqlDbh;
        if (! $MysqlDbh) {
                print "Error Error Error";
        }else{
                print "Connected";
        }
my $Statement="select * from AdditionalNodeInformation where Node = '1
+23'";
my $Sth = $MysqlDbh->prepare($Statement);
if (! $Sth) {
        print "Unable to prepare query $Statement.\n$DBI::errstr\n";
        exit;
}
if (! $Sth->execute) {
        print "Unable to execute query $Statement\n$DBI::errstr\n";
        exit;
}else{
        print "This query has been executed";
}
print "</html>";
[download]

install_driver(Oracle) failed: Can't load '/usr/local/lib/perl5/site_p
+erl/5.8.8/sun4-solaris/auto/DBD/Oracle /Oracle.so' for module DBD::Or
+acle: ld.so.1: perl: fatal: /opt/oracle/product/10.2.0/client_1/lib/l
+ibclntsh.so.10.1: wrong ELF class: ELFCLASS64 at /usr/local/lib/perl5
+/5.8.8/sun4-solaris/DynaLoader.pm line 230.
at (eval 4) line 3 Compilation failed in require
Perhaps a required shared library or dll isn't installed where expecte
+d
[download]

[reply]
[d/l]
[select]