Re: Perl: Datenbankencoding feststellen

[Ralf Burger <ralf(at)Burger-AG(dot)de>]

hi udo,

udono schrieb:
> Hallo,
>
> weiß jemand von euch, wie man mit Perl DBI, DBD::Pg das Encoding
> bzw. den charset von Datenbanken feststellen kann?
>
> Besten Dank!
>
> Viele Grüße
> Udo Spallek
z.b. so:

SELECT d.datname as "Name",
              u.usename as "Owner",
              pg_catalog.pg_encoding_to_char(d.encoding) as "Encoding"
       FROM pg_catalog.pg_database d
         LEFT JOIN pg_catalog.pg_user u ON d.datdba = u.usesysid
       ORDER BY 1;

gruss
ralf