PL/SQL: mehr als 407 Zeichen mit "$x->func('dbms_output_get');" lesen (Datenbanken und Verzeichnisdienste)

[thread]16201[/thread]

PL/SQL: mehr als 407 Zeichen mit "$x->func('dbms_output_get');" lesen

Tags: perl5 Oracle PL/SQL DBMS_OUTPUT Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+4 replies

Gast Ronny Riedel

2011-04-16 00:23

Hallo zusammen,

gegeben sei folgendes PERL-Skript:

Code: (dl )

#!/usr/bin/perl

use strict;
use DBI;

# die Umgebungsvariable "ORACLE_HOME" muss gesetzt werden
$ENV{ORACLE_HOME} = '/path/to/oracle/10.2.0';

# DB-Verbindung oeffnen und initialisieren
my $dbh = DBI->connect("dbi:Oracle:[db]", '[user]', '[pw]');
$dbh->{RaiseError} = 1;
$dbh->func(1000000, 'dbms_output_enable');

# PL/SQL-Prozedur der DB aufrufen
my $csr = $dbh->prepare(q{
             BEGIN
                FOR i IN 1 .. 407 LOOP
                   dbms_output.put('a');
                END LOOP;
                --
                dbms_output.new_line;
             END;
          });
$csr->execute;

# alle Daten aus dem Puffer von "dbms_output" holen
my @ausgaben = $dbh->func( 'dbms_output_get' );

# diese Daten in eine Datei schreiben
foreach my $ausgabe (@ausgaben) {
   print $ausgabe;
   print "\n";
}

# DB-Verbindung schliessen
$dbh->disconnect;

Wenn ich das Skript aufrufe, dann erhalte ich 407 mal "a" als ein langer String. Wenn ich jetzt allerdings aus der 407 eine 408 mache, dann erhalte ich gar nichts.

Kann mir bitte jemand erklären, warum das so ist?

Danke & Gruß
Ronny R.

PS: getestet unter:

>
> user@host1> perl -v
>
> This is perl, v5.10.0 built for x86_64-linux-thread-multi
>
> Copyright 1987-2007, Larry Wall
>

und unter

>
> user@host2{~} perl -v
>
> This is perl, v5.8.8 built for x86_64-linux-thread-multi
>
> Copyright 1987-2006, Larry Wall
>
Last edited: 2011-04-16 00:26:26 +0200 (CEST)

Gast Ronny Riedel

2011-04-16 01:21

kleine Anmerkung:

Code (perl): (dl )

my $csr = $dbh->prepare(q{
             BEGIN
                FOR i IN 1 .. 407 LOOP
                   dbms_output.put('a');
                END LOOP;
                --
                dbms_output.new_line;
                dbms_output.put_line('Hello World');
             END;
          });

> aaaaa[...]aaaa
> Hello World

Jedoch

Code (perl): (dl )

my $csr = $dbh->prepare(q{
             BEGIN
                FOR i IN 1 .. 408 LOOP
                   dbms_output.put('a');
                END LOOP;
                --
                dbms_output.new_line;
                dbms_output.put_line('Hello World');
             END;
          });

produziert gar keinen Output. Ich würde ja zumindest erwarten, das "Hello World" ausgegeben wird.
Last edited: 2011-04-16 02:28:29 +0200 (CEST)

rosti

2011-04-16 10:45

User since
2011-03-19
3194 Artikel
BenutzerIn

Hallo,

Deine Fehlerbehandlung ist baufällig.

Code (perl): (dl )

1
2

my $dbh = DBI->connect("dbi:Oracle:[db]", '[user]', '[pw]');
$dbh->{RaiseError} = 1;

Vom Syntax her richtig, aber nimm RaiseError besser schon in connect() mit rein:

Code (perl): (dl )

        eval{
                $dbh = DBI->connect_cached(
                        $dsn, $cfg->{mysql}->{user}, $cfg->{mysql}->{pass}, 
                        {RaiseError => 1, PrintError => 0}
                );
        };
        if($@){
                # Der Layer verweigert die Verbindung
        }

Weitere Fehlerbehandlungen, die Abfrage von ReturnValues usw. erleichtern die Suche, wenn das Script mal nicht so tut, wie erwartet.

Viele Grüße,
rosti

GwenDragon

2011-04-16 10:53

User since
2005-01-17
14533 Artikel
Admin1

Und was passiert, wenn du das PL/SQL, also die Loop im Oracle Client testest?
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2011-04-16 00:23.