#!/bin/sh
C:/grep/grep.exe -S (SERVICE_NAME = tnsnames.ora service.ora
rm -r new.ora
echo #!/bin/sh tns_ping.sh
C:/cygwin/bin/sed.exe 's/(SERVICE_NAME \=/tnsping.exe /'
service.oratns_ping.sh
vi tns_ping.sh
If you find There is a way to pipe the 2 commands let me know but for now this
little
use strict;
use DBI;
use DBD::Oracle qw(:ora_types);
my $user = '';
my $passwd = '';
my $tnsName = '';
$ENV{'ORACLE_HOME'} = 'C:\oracle\product\10.2.0\client_1';
my $dbh = DBI-connect(dbi:Oracle:$tnsName, $user, $passwd);
my $SQL = qq{ SELECT XXX};
my $sth0 = $dbh-prepare($SQL);
print SQL is
On 28/07/2012 02:45, newbie01 perl wrote:
Hi all,
I am looking for a Perl script or something similar that I can use to test
connection from a client PC to several databases on a server.
Does anyone know of any such script lying around somewhere :(-
Currently, am testing connection from
