Hi,

ich habe Wartungs-Perl-Scripts in einer de_DE.UTF-8-Locale,
die sich mit einer PostgreSQL-Datenbank
(perl-DBD-Pg-3.16.3-1.fc38.x86_64/
postgresql-server-15.4-1.fc38.x86_64) verbinden und dort
„RAISE“-Benachrichtungen auslösen, die per PrintWarn => 1
automatisch ausgegeben werden. Beispiel:

| my $DB = DBI->connect ('dbi:Pg:dbname=[…]', undef, undef, { AutoCommit => 0, PrintWarn => 1 }) or die (DBI->errstr ());

| $DB->do (q!DO LANGUAGE plpgsql $$BEGIN RAISE NOTICE '%', TO_CHAR('2024-03-01'::DATE, 'TMMonth'); END;$$!) or die ($DB->errstr ());

Das gibt leider:

| HINWEIS: März

aus. Die Dokumentation erläutert etwas versteckt, dass man
die Warnungen mit dem Signal-Handler bearbeiten kann. Ein:

| $SIG{__WARN__} = sub {
| print STDERR decode ('UTF-8', $_ [0], Encode::FB_CROAK | Encode::LEAVE_SRC);
| };

führt dann auch zu der gewünschten Ausgabe:

| HINWEIS: März

Aber: Wenn jetzt DBD::Pg selbst Fehlermeldungen erzeugt:

| $DB->do (q!TUE ETWAS;!) or die ($DB->errstr ());

führt dies zu einem Dekodierungsfehler:

| UTF-8 "\xBB" does not map to Unicode at […] line 15.
| Issuing rollback() due to DESTROY without explicit disconnect() of DBD::Pg::db handle dbname=[…] at […] line 21.

In dem Signal-Handler enthält @_ ausschließlich ein Element
mit der „RAISE“-Benachrichtung oder der Fehlermeldung und
kann damit nicht zu der Unterscheidung, woher die Warnung
kommt, benutzt werden. caller ist auch in beiden Fällen
„main“.

Gibt es sonst eine Möglichkeit, zwischen den DBD::Pg-Fehler-
meldungen und den „RAISE“-Benachrichtungen zu unterscheiden?

(Man könnte (und vielleicht werde ich das auch tun) probie-
ren zu dekodieren und bei einem Fehler die ursprüngliche
Warnung ausgeben; aber das fühlt sich doch sehr nach Grobmo-
torik an.)

TIA,
Tim

On 2024-05-21 08:56, Tim Landscheidt <tim@tim-landscheidt.de> wrote:
> ich habe Wartungs-Perl-Scripts in einer de_DE.UTF-8-Locale,
> die sich mit einer PostgreSQL-Datenbank
> (perl-DBD-Pg-3.16.3-1.fc38.x86_64/
> postgresql-server-15.4-1.fc38.x86_64) verbinden und dort
> „RAISE“-Benachrichtungen auslösen, die per PrintWarn => 1
> automatisch ausgegeben werden. Beispiel:
>
>| my $DB = DBI->connect ('dbi:Pg:dbname=[…]', undef, undef, { AutoCommit => 0, PrintWarn => 1 }) or die (DBI->errstr ());
>
>| $DB->do (q!DO LANGUAGE plpgsql $$BEGIN RAISE NOTICE '%', TO_CHAR('2024-03-01'::DATE, 'TMMonth'); END;$$!) or die ($DB->errstr ());
>
> Das gibt leider:
>
>| HINWEIS: März
>
> aus.

Bei mir[1] gibt das

NOTICE: März
Issuing rollback() due to DESTROY without explicit disconnect() of DBD::Pg::db handle dbname=hjp.

aus.

Bitte poste ein vollständiges minimales Script, das das beschriebene
Verhalten zeigt. Ich vermute, dass in Deiner Beschreibung etwas
Wichtiges fehlt.

hp

[1] Ubuntu 22.04
||/ Name Version Architektur Beschreibung
+++-====================-=================-============-=====================================================
ii libdbd-pg-perl:amd64 3.15.1-1 amd64 Perl DBI driver for the PostgreSQL database server
ii perl 5.34.0-3ubuntu1.3 amd64 Larry Wall's Practical Extraction and Report Language

Tim Landscheidt <tim@tim-landscheidt.de> writes:
> Das gibt leider:
>
> | HINWEIS: März

Sowas sollte eigentlich mit neueren Perl Versionen nicht passieren, wenn
man denn UTF entsprechend eingestellt hat. Verwendest Du schon das
Dreigestirn
|use open ':encoding(utf8)';
|binmode(STDOUT, ':utf8');
|binmode(STDERR, ':utf8');
?

Viele Grüße, Thomas
--
Adresse gilt nur kurzzeitig!