{"id":223,"date":"2012-01-17T09:59:55","date_gmt":"2012-01-17T08:59:55","guid":{"rendered":"http:\/\/jal-bs.de\/blog\/?p=223"},"modified":"2012-01-17T10:00:12","modified_gmt":"2012-01-17T09:00:12","slug":"oracle-und-perl-mit-dem-datenbank-interface-dbi","status":"publish","type":"post","link":"https:\/\/jal-bs.de\/blog\/?p=223","title":{"rendered":"Oracle und Perl mit dem Datenbank Interface (DBI)"},"content":{"rendered":"

Ein kleines Beispiel, wie mit Perl und dem Datenbank Interface (DBI) sehr einfach auf Oracle zu gegriffen werden kann.<\/p>\n

# perl
\nuse strict;
\nuse DBI;
\nmy $dbh = DBI->connect( ‚dbi:Oracle:ORA11G‘,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‚test‘,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‚test123‘,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 { RaiseError => 1, AutoCommit => 0 }
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ) || die „Database connection not made: $DBI::errstr“;<\/h6>\n
#————————————————————————–
\n# doing in DB
\n#————————————————————————–<\/h6>\n
my $sql = qq{ ALTER SESSION set NLS_DATE_FORMAT = ‚DD.MM.YYYY HH24:MI:SS‘ };\u00a0\u00a0\u00a0 # session date format
\nmy $sth = $dbh->prepare($sql);
\n$sth->execute();
\n$sth->finish();\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # cursor schliesen<\/h6>\n
my $sql = qq{ select user, sysdate from dual };\u00a0\u00a0\u00a0 # SELECT
\nmy $sth = $dbh->prepare($sql);
\n$sth->execute();<\/h6>\n
my($user,$sysdate);\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # Deklaration
\n$sth->bind_columns(undef, \\$user, \\$sysdate);<\/h6>\n
print „Ergebnis von SQL: $sql\\n\\n“;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # Daten holen
\nwhile( $sth->fetch() ) {
\n\u00a0\u00a0\u00a0 print „Username: $user Datum: $sysdate\\n“;
\n}
\n$sth->finish();\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # cursor schliesen<\/h6>\n
#————————————————————————–
\n# ENDE
\n#————————————————————————–<\/h6>\n
$dbh->disconnect;<\/h6>\n

Output:<\/strong>
\nErgebnis von SQL:\u00a0 select user, sysdate from dual
\nUsername: TEST Datum: 16.01.2012 22:44:35<\/p>\n","protected":false},"excerpt":{"rendered":"

Ein kleines Beispiel, wie mit Perl und dem Datenbank Interface (DBI) sehr einfach auf Oracle zu gegriffen werden kann. # perl use strict; use DBI; my $dbh = DBI->connect( ‚dbi:Oracle:ORA11G‘, \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‚test‘, \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‚test123‘, \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 { RaiseError => 1, AutoCommit … Weiterlesen →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[],"_links":{"self":[{"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/223"}],"collection":[{"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=223"}],"version-history":[{"count":11,"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/223\/revisions"}],"predecessor-version":[{"id":234,"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/223\/revisions\/234"}],"wp:attachment":[{"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=223"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=223"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jal-bs.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=223"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}