Quiq::SqlPlus - Erzeuge Code für SQL*Plus
Quiq::Object
Der Aufruf
my $script = Quiq::SqlPlus->script('test.sql',q| SELECT * FROM all_users ORDER BY username ; |, -before => q| SELECT SYSDATE AS t0 FROM dual ; |, -after => q| SELECT SYSDATE AS t1 FROM dual ; |, -author => 'Frank Seitz', -description => q| Dies ist ein Test-Skript. |, );
erzeugt
-- NAME -- test.sql -- -- DESCRIPTION -- Dies ist ein Test-Skript. -- -- AUTHOR -- Frank Seitz COLUMN tempdatum NEW_VALUE startdatum NOPRINT SELECT TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS') AS tempdatum FROM dual; SPOOL test.sql.&&startdatum..log SET ECHO ON SET FEEDBACK ON SET VERIFY OFF SET HEADING ON SET TAB OFF SET PAGESIZE 0 SET TRIMSPOOL ON SET LINESIZE 10000 SET SERVEROUTPUT ON SIZE 10000 SET SQLBLANKLINES ON SET NULL '~' SET TIMING ON WHENEVER OSERROR EXIT FAILURE ROLLBACK WHENEVER SQLERROR EXIT FAILURE ROLLBACK ALTER SESSION SET NLS_NUMERIC_CHARACTERS=",."; ALTER SESSION set NLS_DATE_FORMAT = 'YYYY-MM-DD HH24:MI:SS'; -- ZUSTAND ZUVOR SELECT SYSDATE AS t0 FROM dual ; -- OPERATION SELECT * FROM all_users ORDER BY username ; -- ZUSTAND DANACH SELECT SYSDATE AS t1 FROM dual ; ROLLBACK; EXIT -- eof
$script = $class->script($name,$sql,@opt);
Name des Skripts. Der Name wird in einen Kommentar an den Anfang des Skripts gesetzt und für die Benennung der Logdatei genutzt
NAME-YYYYMMDDHHMMSS.log
wobei der Zeitanteil beim Aufruf des Skripts gesetzt wird.
Der SQL*Plus-Code, der in den Rumpf des Skripts eingesetzt wird.
Name des Skript-Autors, z.B. "Frank Seitz".
Beschreibung des Skripts. Darf mehrzeilig sein.
Wenn diese Option gesetzt ist, wird COMMIT ans Ende des Skripots gesetzt, sonst ROLLBACK.
SQL*Plus-Code, der vor $sql ausgeführt wird.
SQL*Plus-Code, der vor und nach $sql ausgeführt wird.
SQL*Plus-Code, der nach $sql ausgeführt wird.
1.204
Frank Seitz, http://fseitz.de/
Copyright (C) 2022 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Quiq, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Quiq
CPAN shell
perl -MCPAN -e shell install Quiq
For more information on module installation, please visit the detailed CPAN module installation guide.