Hi,
I have the following perl script working for me.I am accesing the database from my perl script using use Net::Telnet(); package.
I am not using DBI package.as I stataed earlier the following program is printing the output in a nice form.However I want to pass
a variable in the $t->cmd("SELECT * FROM TABLE_NAME WHERE INSTANCE_NAME LIKE '%hostname%' ;");
Here I want hostname to be replaced by a variable name like
$t->cmd("SELECT * FROM TABLE_NAME WHERE INSTANCE_NAME LIKE '%VARIABLE_NAME%';");.
I want just pass a variable in the above sql query so that I can change the VARIABLE_NAME.Please help me out with it.
Thank You
Vivek
-
$IPAddress = "10.24.30.1";
-
$Login = "root";
-
$password = "root";
-
$Node = "hostname";
-
-
use Net::Telnet();
-
$t= new Net::Telnet (Timeout => 3000 , Prompt => '/[%#\$>?:] $/' );
-
$t->open("$IPAddress");
-
print "\nConected!";
-
$t->waitfor('/login: $/i');
-
$t->print($Login);
-
print "\nEntered the Username\n";
-
$t->waitfor('/assword: $/i');
-
$t->print($Password);
-
print "\nEntered the Password!\n";
-
@output=$t->cmd("export ORACLE_SID=$Node\n");
-
print @output;
-
print "\n Done with logging into the database\n";
-
@output= $t->cmd("bash\n");
-
print FILE @output;
-
print @output;
-
@output = $t->cmd("sqlplus username/pass\n");
-
print @output;
-
@output = $t->cmd("conn cusername/pass\n");
-
print @output;
-
@output = $t->cmd("SELECT * FROM TABLE_NAME WHERE INSTANCE_NAME LIKE '%hostname%' AND PARAM_KEY_NAME LIKE '%host';");
-
print FILE @output;
-
@output = $t->cmd("exit\n");
-
print @output;
-
@output = $t->cmd("exit\n");
-
print @output;
-
