https://minormiraclesoftware.com/main_wiki/index.php?title=PERL_Scripts_for_Databases&feed=atom&action=historyPERL Scripts for Databases - Revision history2024-03-29T01:22:22ZRevision history for this page on the wikiMediaWiki 1.30.0https://minormiraclesoftware.com/main_wiki/index.php?title=PERL_Scripts_for_Databases&diff=1131&oldid=prevWikiSysop: Created page with " =PERL DBD::Oracle Connection= This works without a tnsnames.ora file. <nowiki> #!/usr/bin/perl # Connecting without a tns use warnings ; use strict ; use DBI; $\="\n"; pr..."2021-03-31T14:13:03Z<p>Created page with " =PERL DBD::Oracle Connection= This works without a tnsnames.ora file. <nowiki> #!/usr/bin/perl # Connecting without a tns use warnings ; use strict ; use DBI; $\="\n"; pr..."</p>
<p><b>New page</b></p><div><br />
=PERL DBD::Oracle Connection=<br />
This works without a tnsnames.ora file.<br />
<nowiki><br />
#!/usr/bin/perl <br />
# Connecting without a tns<br />
use warnings ;<br />
use strict ;<br />
use DBI;<br />
<br />
$\="\n";<br />
<br />
print "Connecting to WOTRS10...";<br />
<br />
my $dbh = DBI->connect('dbi:Oracle:host=localhost;SERVICE_NAME=XEPDB1;port=1521', 'wotrs10','orawotrs10') or<br />
die "Cannot connect to WOTRS10 => " . DBI->errstr;<br />
my $sth = $dbh->prepare("select name from activities") or<br />
die "Couldn't prepare statement: " . $dbh->errstr;<br />
$sth->execute();<br />
<br />
while (my ($f_name) = $sth->fetchrow_array()){<br />
printf "Activity Name : %-10s\n" , $f_name;<br />
}<br />
#$sth->finish();<br />
$dbh->disconnect();<br />
# Hostname: localhost<br />
# Port: 1521<br />
# Service name: XEPDB1<br />
</nowiki><br />
=Internal Links=<br />
<i>Parent Article:</i> [[Databases]]<br /></div>WikiSysop