Hi ,

How to write a programme to connect to oracle database without using PERL DBI module. The programme is to calculate ASM disk space in oracle database.plz reply...

Regards
srezee

How to write a programme to connect to oracle database without using PERL DBI module.

Any reason why you don't want to use DBI? Do you have the Oracle client installed? Are you connecting to a local or remote server? Which version of Perl? Oracle? What OS and version? Are there other modules you can't install, e.g. IO? Can you shell to other processes?

The programme is to calculate ASM disk space in oracle database.

How is it going to do this? Can it simply look at the filesystem, or does it need to execute a stored procedure?

The client actually wants not to use DBI module.

Through ASM disk space i want the total free MB for the disk group name specified in the command line..

Do you have the Oracle client installed? Are you connecting to a local or remote server? Which version of Perl? Oracle? What OS and version? Are there other modules you can't install, e.g. IO? Can you shell to other processes?

This is a rough framework how you will do it...If you use oracle then this might me the case

$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;

Hope it helps
Vivek