Difference between revisions of "API:EPrints/Database/Oracle"
(Removing all content from page) |
|||
(11 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
+ | <!-- Pod2Wiki=_preamble_ | ||
+ | This page has been automatically generated from the EPrints 3.4 source. Any wiki changes made between the 'Pod2Wiki=*' and 'Edit below this comment' comments will be lost. | ||
+ | -->{{API}}{{Pod2Wiki}}{{API:Source|file=EPrints/Database/Oracle.pm|package_name=EPrints::Database::Oracle}}[[Category:API|ORACLE]][[Category:API:EPrints/Database|ORACLE]]<div><!-- Edit below this comment --> | ||
+ | |||
+ | <!-- Pod2Wiki=_private_ --><!-- Pod2Wiki=head_name --> | ||
+ | ==NAME== | ||
+ | '''EPrints::Database::Oracle''' - custom database methods for Oracle DB | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=head_description --> | ||
+ | ==DESCRIPTION== | ||
+ | Oracle database wrapper for Oracle DB version 9+. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=head_synopsis --> | ||
+ | ===Synopsis=== | ||
+ | These settings are the default settings for the free Oracle developer version: | ||
+ | |||
+ | # Oracle driver settings for database.pl | ||
+ | $c->{dbdriver} = "Oracle"; | ||
+ | $c->{dbhost} = "localhost"; | ||
+ | $c->{dbsid} = "XE; | ||
+ | $c->{dbuser} = "HR"; | ||
+ | $c->{dbpass} = "HR"; | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=head_setting_up_oracle --> | ||
+ | ===Setting up Oracle=== | ||
+ | Enable the HR user in Oracle XE. | ||
+ | |||
+ | Set the <tt>ORACLE_HOME</tt> and <tt>ORACLE_SID</tt> environment variables. To add these globally edit <tt>/etc/profile.d/oracle.sh</tt> (for XE edition): | ||
+ | |||
+ | export ORACLE_HOME="/usr/lib/oracle/xe/app/oracle/product/10.2.0/server" | ||
+ | export ORACLE_SID="XE" | ||
+ | |||
+ | (Will need to relog to take effect) | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=head_oracle_specific_annoyances --> | ||
+ | ===Oracle-specific Annoyances=== | ||
+ | Use the GQLPlus wrapper from http://gqlplus.sourceforge.net/ instead of sqlplus. | ||
+ | |||
+ | Oracle will uppercase any identifiers that aren't quoted and is case sensitive, hence mixing quoted and unquoted identifiers will lead to problems. | ||
+ | |||
+ | Oracle does not support <tt>LIMIT()</tt>. | ||
+ | |||
+ | Oracle does not support <tt>AUTO_INCREMENT</tt> (MySQL) nor <tt>SERIAL</tt> (Postgres). | ||
+ | |||
+ | Oracle won't <tt>ORDER BY LOBS</tt>. | ||
+ | |||
+ | Oracle requires special means to insert values into <tt>CLOB</tt>/<tt>BLOB</tt>. | ||
+ | |||
+ | Oracle doesn't support <tt>AS</tt> when aliasing. | ||
+ | |||
+ | When specifying char column lengths use (n char) to define character semantics. Otherwise oracle uses the <tt>nls_length_semantics</tt> setting to determine whether you meant bytes or characters. | ||
+ | |||
+ | {{API:PodLink|file=DBD/Oracle|package_name=DBD::Oracle|section=|text=DBD::Oracle}} can crash when using <tt>PERL_USE_SAFE_PUTENV</tt>-compiled Perls, see http://www.eprints.org/tech.php/13984.html. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=head_constants --> | ||
+ | ==CONSTANTS== | ||
+ | See [[API:EPrints/Database#CONSTANTS|EPrints::Database]]. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=head_instance_variables --> | ||
+ | ==INSTANCE VARIABLES== | ||
+ | See [[API:EPrints/Database#INSTANCE_VARIABLES|EPrints::Database]]. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=head_methods --> | ||
+ | ==METHODS== | ||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_connect --> | ||
+ | ===connect=== | ||
+ | |||
+ | $db->connect() | ||
+ | Connects to the database. Also sets <tt>LongReadLen</tt> to <tt>128*1024</tt>. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_prepare_select --> | ||
+ | ===prepare_select=== | ||
+ | |||
+ | $sth = $db->prepare_select( $sql, [ %options ] ) | ||
+ | Prepare a <tt>SELECT</tt> statement <tt>$sql</tt> and return a handle to it. After preparing a statement use <tt>execute()</tt> to execute it. | ||
+ | |||
+ | Returns a {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} statement handle. | ||
+ | |||
+ | The <tt>LIMIT</tt> SQL keyword is not universally supported, to specify this use the <tt>limit</tt> option. | ||
+ | |||
+ | Options: | ||
+ | |||
+ | limit - limit the number of rows returned | ||
+ | offset - return '''limit''' number of rows after offset | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_create_archive_tables --> | ||
+ | ===create_archive_tables=== | ||
+ | |||
+ | $success = $db->create_archive_tables() | ||
+ | Creates all the SQL tables for all datasets. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_get_server_version --> | ||
+ | ===get_server_version=== | ||
+ | |||
+ | $version = $db->get_server_version | ||
+ | Returns the database server version. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_get_column_type --> | ||
+ | ===get_column_type=== | ||
+ | |||
+ | $real_type = $db->get_column_type( $name, $type, $not_null, [ $length ] ) | ||
+ | Returns a SQL column definition for <tt>$name</tt> of type <tt>$type</tt>. If <tt>$not_null</tt> is <tt>true</tt> the column will be set to <tt>NOT NULL</tt>. For column types that require a length use <tt>$length</tt>. | ||
+ | |||
+ | <tt>$type</tt> is the SQL type. The types are constants defined by this module, to import them use: | ||
+ | |||
+ | use EPrints::Database qw( :sql_types ); | ||
+ | |||
+ | Supported types (n = requires LENGTH argument): | ||
+ | |||
+ | Character data: <tt>SQL_VARCHAR(n)</tt>, <tt>SQL_LONGVARCHAR</tt>. | ||
+ | |||
+ | Binary data: <tt>SQL_VARBINARY(n)</tt>, <tt>SQL_LONGVARBINARY</tt>. | ||
+ | |||
+ | Integer data: <tt>SQL_TINYINT</tt>, <tt>SQL_SMALLINT</tt>, <tt>SQL_INTEGER</tt>, | ||
+ | |||
+ | Floating-point data: <tt>SQL_REAL</tt>, <tt>SQL_DOUBLE</tt>. | ||
+ | |||
+ | Time data: <tt>SQL_DATE</tt>, <tt>SQL_TIME</tt>. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_get_tables --> | ||
+ | ===get_tables=== | ||
+ | |||
+ | @tables = $db->get_tables | ||
+ | Return a list of all the tables in the database. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_has_sequence --> | ||
+ | ===has_sequence=== | ||
+ | |||
+ | $boolean = $db->has_sequence( $name ) | ||
+ | Return <tt>true</tt> if a sequence of the given $<name> exists in the database. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_has_column --> | ||
+ | ===has_column=== | ||
+ | |||
+ | $boolean = $db->has_column( $table, $column ) | ||
+ | Return <tt>true</tt> if the named database <tt>$table</tt> has the named <tt>$column</tt>. | ||
+ | |||
+ | Default method from [[API:EPrints/Database|EPrints::Database]] this is really slow and this is much faster. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_has_table --> | ||
+ | ===has_table=== | ||
+ | |||
+ | $boolean = $db->has_table( $table ) | ||
+ | Returns boolean dependent on whether the named <tt>$table</tt> exists in the database. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_counter_current --> | ||
+ | ===counter_current=== | ||
+ | |||
+ | $n = $db->counter_current( $counter ) | ||
+ | Return the value of the previous counter_next on <tt>$counter</tt>. | ||
+ | |||
+ | Oracle doesn't support getting the <tt>current</tt> value of a sequence so this method always returns <tt>undef</tt>. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_quote_identifier --> | ||
+ | ===quote_identifier=== | ||
+ | |||
+ | $id = $db->quote_identifier( @columns ) | ||
+ | This method quotes and returns the given database identifier. If more than one name is supplied joins them using the correct database joining character (typically <tt>.</tt>). | ||
+ | |||
+ | Oracle restricts identifiers to: | ||
+ | |||
+ | 30 chars long | ||
+ | start with a letter [a-z] | ||
+ | { [a-z0-9], $, _, # } | ||
+ | case insensitive | ||
+ | not a reserved word (unless quoted?) | ||
+ | |||
+ | Identifiers longer than 30 characters will be abbreviated to the first 5 characters of the identifier and 25 characters from an MD5 derived from the identifier. This should make name collisions unlikely. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_prepare_regexp --> | ||
+ | ===prepare_regexp=== | ||
+ | |||
+ | $sql = $db->prepare_regexp( $col, $value ) | ||
+ | Oracle use the syntax: | ||
+ | |||
+ | REGEXP_LIKE ($col, $value) | ||
+ | |||
+ | For the quoted regexp <tt>$value</tt> and the quoted column <tt>$col</tt>. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_quote_binary --> | ||
+ | ===quote_binary=== | ||
+ | |||
+ | $str = $db->quote_binary( $value ) | ||
+ | Oracle requires transforms of binary data to work correctly. | ||
+ | |||
+ | This method should be called on data <tt>$value</tt> containing null bytes or back-slashes before being passed on [[API:EPrints/Database/Oracle#quote_value|quote_value]]. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_quote_ordervalue --> | ||
+ | ===quote_ordervalue=== | ||
+ | |||
+ | $str = $db->quote_ordervalue( $field, $value ) | ||
+ | Oracle can't order by <tt>CLOB</tt>S so need special treatment when creating the ordervalues tables. This method fixes up <tt>$value</tt> to limit it to 1000 characters (4000 bytes) or returns <tt>undef</tt> if <tt>$value</tt> is not defined. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_index_name --> | ||
+ | ===index_name=== | ||
+ | |||
+ | $name = $db->index_name( $table, @cols ) | ||
+ | Should return the name of the first index that starts with named columns <tt>@cols</tt> in the named <tt>$table</tt>. However, this is not supported by Oracle so always returns <tt>1</tt>. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_sql_as --> | ||
+ | ===sql_as=== | ||
+ | |||
+ | $sql = $db->sql_AS() | ||
+ | Returns the syntactic glue to use when aliasing. Oracle does not require a phrase so just returns a space character. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_retry_error --> | ||
+ | ===retry_error=== | ||
+ | |||
+ | $boolean = $db->retry_error() | ||
+ | Returns a boolean for whether the database error is a retry error. Based on whether {{API:PodLink|file=DBI#err|package_name=DBI#err|section=|text=DBI#err}} code is <tt>3113</tt> or <tt>3114</tt>. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=item_type_info --> | ||
+ | ===type_info=== | ||
+ | |||
+ | $type_info = $db->type_info( $data_type ) | ||
+ | See {{API:PodLink|file=DBI|package_name=DBI|section=type_info|text=DBI/type_info}}. Oracle has is own type information mappings. | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=head_see_also --> | ||
+ | ==SEE ALSO== | ||
+ | [[API:EPrints/Database|EPrints::Database]] | ||
+ | |||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=head_copyright --> | ||
+ | ==COPYRIGHT== | ||
+ | {{API:Copyright}} | ||
+ | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
+ | <span style='display:none'>User Comments</span> | ||
+ | <!-- Edit below this comment --> | ||
+ | |||
+ | |||
+ | <!-- Pod2Wiki= --> | ||
+ | </div> | ||
+ | <!-- Pod2Wiki=_postamble_ --><!-- Edit below this comment --> |
Latest revision as of 00:00, 12 January 2022
EPrints 3 Reference: Directory Structure - Metadata Fields - Repository Configuration - XML Config Files - XML Export Format - EPrints data structure - Core API - Data Objects
Latest Source Code (3.4, 3.3) | Revision Log | Before editing this page please read Pod2Wiki
Contents
- 1 NAME
- 2 DESCRIPTION
- 3 CONSTANTS
- 4 INSTANCE VARIABLES
- 5 METHODS
- 5.1 connect
- 5.2 prepare_select
- 5.3 create_archive_tables
- 5.4 get_server_version
- 5.5 get_column_type
- 5.6 get_tables
- 5.7 has_sequence
- 5.8 has_column
- 5.9 has_table
- 5.10 counter_current
- 5.11 quote_identifier
- 5.12 prepare_regexp
- 5.13 quote_binary
- 5.14 quote_ordervalue
- 5.15 index_name
- 5.16 sql_as
- 5.17 retry_error
- 5.18 type_info
- 6 SEE ALSO
- 7 COPYRIGHT
NAME
EPrints::Database::Oracle - custom database methods for Oracle DB
DESCRIPTION
Oracle database wrapper for Oracle DB version 9+.
Synopsis
These settings are the default settings for the free Oracle developer version:
# Oracle driver settings for database.pl $c->{dbdriver} = "Oracle"; $c->{dbhost} = "localhost"; $c->{dbsid} = "XE; $c->{dbuser} = "HR"; $c->{dbpass} = "HR";
Setting up Oracle
Enable the HR user in Oracle XE.
Set the ORACLE_HOME and ORACLE_SID environment variables. To add these globally edit /etc/profile.d/oracle.sh (for XE edition):
export ORACLE_HOME="/usr/lib/oracle/xe/app/oracle/product/10.2.0/server" export ORACLE_SID="XE"
(Will need to relog to take effect)
Oracle-specific Annoyances
Use the GQLPlus wrapper from http://gqlplus.sourceforge.net/ instead of sqlplus.
Oracle will uppercase any identifiers that aren't quoted and is case sensitive, hence mixing quoted and unquoted identifiers will lead to problems.
Oracle does not support LIMIT().
Oracle does not support AUTO_INCREMENT (MySQL) nor SERIAL (Postgres).
Oracle won't ORDER BY LOBS.
Oracle requires special means to insert values into CLOB/BLOB.
Oracle doesn't support AS when aliasing.
When specifying char column lengths use (n char) to define character semantics. Otherwise oracle uses the nls_length_semantics setting to determine whether you meant bytes or characters.
DBD::Oracle can crash when using PERL_USE_SAFE_PUTENV-compiled Perls, see http://www.eprints.org/tech.php/13984.html.
CONSTANTS
See EPrints::Database.
INSTANCE VARIABLES
See EPrints::Database.
METHODS
connect
$db->connect()
Connects to the database. Also sets LongReadLen to 128*1024.
prepare_select
$sth = $db->prepare_select( $sql, [ %options ] )
Prepare a SELECT statement $sql and return a handle to it. After preparing a statement use execute() to execute it.
Returns a DBI statement handle.
The LIMIT SQL keyword is not universally supported, to specify this use the limit option.
Options:
limit - limit the number of rows returned offset - return limit number of rows after offset
create_archive_tables
$success = $db->create_archive_tables()
Creates all the SQL tables for all datasets.
get_server_version
$version = $db->get_server_version
Returns the database server version.
get_column_type
$real_type = $db->get_column_type( $name, $type, $not_null, [ $length ] )
Returns a SQL column definition for $name of type $type. If $not_null is true the column will be set to NOT NULL. For column types that require a length use $length.
$type is the SQL type. The types are constants defined by this module, to import them use:
use EPrints::Database qw( :sql_types );
Supported types (n = requires LENGTH argument):
Character data: SQL_VARCHAR(n), SQL_LONGVARCHAR.
Binary data: SQL_VARBINARY(n), SQL_LONGVARBINARY.
Integer data: SQL_TINYINT, SQL_SMALLINT, SQL_INTEGER,
Floating-point data: SQL_REAL, SQL_DOUBLE.
Time data: SQL_DATE, SQL_TIME.
get_tables
@tables = $db->get_tables
Return a list of all the tables in the database.
has_sequence
$boolean = $db->has_sequence( $name )
Return true if a sequence of the given $<name> exists in the database.
has_column
$boolean = $db->has_column( $table, $column )
Return true if the named database $table has the named $column.
Default method from EPrints::Database this is really slow and this is much faster.
has_table
$boolean = $db->has_table( $table )
Returns boolean dependent on whether the named $table exists in the database.
counter_current
$n = $db->counter_current( $counter )
Return the value of the previous counter_next on $counter.
Oracle doesn't support getting the current value of a sequence so this method always returns undef.
quote_identifier
$id = $db->quote_identifier( @columns )
This method quotes and returns the given database identifier. If more than one name is supplied joins them using the correct database joining character (typically .).
Oracle restricts identifiers to:
30 chars long start with a letter [a-z] { [a-z0-9], $, _, # } case insensitive not a reserved word (unless quoted?)
Identifiers longer than 30 characters will be abbreviated to the first 5 characters of the identifier and 25 characters from an MD5 derived from the identifier. This should make name collisions unlikely.
prepare_regexp
$sql = $db->prepare_regexp( $col, $value )
Oracle use the syntax:
REGEXP_LIKE ($col, $value)
For the quoted regexp $value and the quoted column $col.
quote_binary
$str = $db->quote_binary( $value )
Oracle requires transforms of binary data to work correctly.
This method should be called on data $value containing null bytes or back-slashes before being passed on quote_value.
quote_ordervalue
$str = $db->quote_ordervalue( $field, $value )
Oracle can't order by CLOBS so need special treatment when creating the ordervalues tables. This method fixes up $value to limit it to 1000 characters (4000 bytes) or returns undef if $value is not defined.
index_name
$name = $db->index_name( $table, @cols )
Should return the name of the first index that starts with named columns @cols in the named $table. However, this is not supported by Oracle so always returns 1.
sql_as
$sql = $db->sql_AS()
Returns the syntactic glue to use when aliasing. Oracle does not require a phrase so just returns a space character.
retry_error
$boolean = $db->retry_error()
Returns a boolean for whether the database error is a retry error. Based on whether DBI#err code is 3113 or 3114.
type_info
$type_info = $db->type_info( $data_type )
See DBI/type_info. Oracle has is own type information mappings.
SEE ALSO
COPYRIGHT
© Copyright 2000-2024 University of Southampton.
EPrints 3.4 is supplied by EPrints Services.
http://www.eprints.org/eprints-3.4/
LICENSE
This file is part of EPrints 3.4 http://www.eprints.org/.
EPrints 3.4 and this file are released under the terms of the GNU Lesser General Public License version 3 as published by the Free Software Foundation unless otherwise stated.
EPrints 3.4 is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License along with EPrints 3.4. If not, see http://www.gnu.org/licenses/.