Difference between revisions of "API:EPrints/Database/Oracle"
(7 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
<!-- Pod2Wiki=_preamble_ | <!-- Pod2Wiki=_preamble_ | ||
− | This page has been automatically generated from the EPrints 3. | + | 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 | + | -->{{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 --> |
Line 15: | Line 15: | ||
<!-- Pod2Wiki= --> | <!-- Pod2Wiki= --> | ||
</div> | </div> | ||
− | <!-- Pod2Wiki= | + | <!-- 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%; '> | <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> | <span style='display:none'>User Comments</span> | ||
Line 33: | Line 26: | ||
<!-- Pod2Wiki= --> | <!-- Pod2Wiki= --> | ||
</div> | </div> | ||
− | <!-- Pod2Wiki= | + | <!-- 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%; '> | <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> | <span style='display:none'>User Comments</span> | ||
Line 48: | Line 48: | ||
Enable the HR user in Oracle XE. | 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): | + | 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_HOME="/usr/lib/oracle/xe/app/oracle/product/10.2.0/server" | ||
Line 64: | Line 64: | ||
<!-- Pod2Wiki=head_oracle_specific_annoyances --> | <!-- Pod2Wiki=head_oracle_specific_annoyances --> | ||
===Oracle-specific Annoyances=== | ===Oracle-specific Annoyances=== | ||
− | Use the GQLPlus wrapper from http://gqlplus.sourceforge.net/ instead of sqlplus. | + | 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. | |
− | Oracle | + | {{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%; '> | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
Line 87: | Line 111: | ||
<!-- Pod2Wiki= --> | <!-- Pod2Wiki= --> | ||
</div> | </div> | ||
− | <!-- Pod2Wiki= | + | <!-- 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%; '> | <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> | <span style='display:none'>User Comments</span> | ||
Line 96: | Line 120: | ||
<!-- Pod2Wiki= --> | <!-- Pod2Wiki= --> | ||
</div> | </div> | ||
− | <!-- Pod2Wiki= | + | <!-- 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%; '> | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
Line 106: | Line 133: | ||
<!-- Pod2Wiki= --> | <!-- Pod2Wiki= --> | ||
</div> | </div> | ||
− | <!-- Pod2Wiki= | + | <!-- 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%; '> | <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> | <span style='display:none'>User Comments</span> | ||
Line 116: | Line 155: | ||
<!-- Pod2Wiki= --> | <!-- Pod2Wiki= --> | ||
</div> | </div> | ||
− | <!-- Pod2Wiki= | + | <!-- 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%; '> | <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> | <span style='display:none'>User Comments</span> | ||
Line 129: | Line 172: | ||
$version = $db->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%; '> | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
Line 141: | Line 184: | ||
===get_column_type=== | ===get_column_type=== | ||
− | $real_type = $db->get_column_type( | + | $real_type = $db->get_column_type( $name, $type, $not_null, [ $length ] ) |
− | Returns a column definition for | + | 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 ); | use EPrints::Database qw( :sql_types ); | ||
Line 150: | Line 193: | ||
Supported types (n = requires LENGTH argument): | Supported types (n = requires LENGTH argument): | ||
− | Character data: SQL_VARCHAR(n), SQL_LONGVARCHAR. | + | Character data: <tt>SQL_VARCHAR(n)</tt>, <tt>SQL_LONGVARCHAR</tt>. |
− | Binary data: SQL_VARBINARY(n), SQL_LONGVARBINARY. | + | Binary data: <tt>SQL_VARBINARY(n)</tt>, <tt>SQL_LONGVARBINARY</tt>. |
− | Integer data: SQL_TINYINT, SQL_SMALLINT, SQL_INTEGER | + | Integer data: <tt>SQL_TINYINT</tt>, <tt>SQL_SMALLINT</tt>, <tt>SQL_INTEGER</tt>, |
− | Floating-point data: SQL_REAL, SQL_DOUBLE. | + | Floating-point data: <tt>SQL_REAL</tt>, <tt>SQL_DOUBLE</tt>. |
− | Time data: SQL_DATE, SQL_TIME. | + | 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%; '> | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
Line 184: | Line 227: | ||
$boolean = $db->has_sequence( $name ) | $boolean = $db->has_sequence( $name ) | ||
− | Return true if a sequence of the given name exists in the database. | + | 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%; '> | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
Line 196: | Line 239: | ||
===has_column=== | ===has_column=== | ||
− | $boolean = $db->has_column( $ | + | $boolean = $db->has_column( $table, $column ) |
− | Return true if the | + | 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%; '> | <div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '> | ||
Line 209: | Line 282: | ||
===quote_identifier=== | ===quote_identifier=== | ||
− | $id = $db->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 | + | 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: | Oracle restricts identifiers to: | ||
Line 220: | Line 293: | ||
not a reserved word (unless quoted?) | not a reserved word (unless quoted?) | ||
− | Identifiers longer than 30 | + | 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%; '> | <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> | <span style='display:none'>User Comments</span> |
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/.