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
#!/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.ora>>tns_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
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 connecti
