Anfang des Inhaltsbereichs

 Perl: Beispiel Nr. 3 

Beispiel für Aufruf des Loader mit Perl-Skript

Aufbau einer Datenbanksitzung
Anmelden an die Datenbankinstanz
Abfragen, ob Tabelle existiert, durch Abfragen des Fehlercodes
Anlegen einer Tabelle ohne Abfragen des Fehlercodes
Abmelden

 

# Verweis auf Perl-Library
# -------------------------------

use SAP::DBTECH::loader;

# Parsen der Aufrufargumente
# --------------------------

$user_name = $ARGV[0];
$password = $ARGV[1];
$database_name = $ARGV[2];
$data_path = $ARGV[3];
$server_node = "localhost";

# Aufbau einer Datenbanksitzung zum Loader  
# -------------------------------------------

$session = loader::Loader ($server_node, $database_name);

# Anmelden an die Datenbankinstanz
# --------------------------------

$session->cmd("use user $user_name $password;");

# Abfrage, ob Tabelle existiert durch Abrage des Fehlercodes
# hierzu wird die Methode sql verwendet
# -------------------------------------

$rc = $session->sql('EXISTS TABLE CUSTOMER')

If $rc!=0

# Anlegen der Tabelle CUSTOMER
# -------------------------

$session->cmd ( 'CREATE TABLE customer ( '.
                    'cno             FIXED(4), '.
                    'name            CHAR(10) ASCII, '.
                    'zip             CHAR(5)  ASCII, '.
                    'city            CHAR(12) ASCII, '.
                    'PRIMARY KEY (cno) ')   

# Beenden der Datenbanksitzung
# ----------------------------

undef $session

Ende des Inhaltsbereichs