#!/usr/bin/perl

use DBI;
use strict;
my $dbh = DBI->connect("dbi:Pg:dbname=imdata","postgres","", {PrintError => 0});

if ($DBI::err != 0) {
   print $DBI::errstr . "\n";
   exit($DBI::err);
}

# запрос всех таблиц и их полей в базе imdata
my $query=qq~select t.table_name, c.column_name, c.data_type FROM information_schema.TABLES t JOIN information_schema.COLUMNS c ON t.table_name::text = c.table_name::text WHERE t.table_schema::text = 'public'::text AND t.table_catalog::name = current_database() AND t.table_type::text = 'BASE TABLE'::text AND NOT "substring"(t.table_name::text, 1, 1) = '_'::text ORDER BY t.table_name, c.ordinal_position;~;

my $sth = $dbh->prepare($query);
my $rv = $sth->execute();
if (!defined $rv) {
  print "При выполнении запроса '$query' возникла ошибка: " . $dbh->errstr . "\n";
  exit(0);
}

while (my @array = $sth->fetchrow_array()) {
  foreach my $i (@array) {
    print "$i\t";
  }
  print "\n";
}

$sth->finish();
$dbh->disconnect();