Como acessar o banco de dados PostgreSQL do meu domínio usando Perl (DBI)?

De Wiki
Ir para: navegação, pesquisa

Para utilizar o banco de dados PostgreSQL (gratuito), solicite-o através do link Fale Conosco no Painel de Controle da CentralServer.

A seguir, apresentamos um exemplo de script para conexão à base PostgreSQL, usando Perl (DBI):


#!/usr/bin/perl

# Declarar o múdulo DBI
use DBI;

# Criar a variável de conexão passando para ela o nome de usuário
# (usuario), a senha (senha), o nome do banco de dados (nomebd)
# e pgsql.seudominio (host)
$dbh = DBI->connect("dbi:Pg:dbname=<banco_de_dados>;host=pgsql.<dominio>;port=5432",<usuario>,<senha>);

# Criar conjunto de registros (recordset). Primeiramente, vamos
# atribuir a string contendo a cláusula SQL para uma variável
my $instrucao_sql = "SELECT * FROM <tabela>";

# Preparar a instrução SQL criando uma variável para fazer
# referência ao conjunto de registros resultante da consulta
my $meu_recordset = $dbh->prepare($instrucao_sql);

# Executar o comando SQL
$meu_recordset->execute();

# Termina o recordset<br>
$meu_recordset->finish;


# Termina a conexão
$dbh->disconnect;