Conexão com Banco de Dados Postgres [Perl]

Conexão com Banco de Dados Postgres

Publicado por Carcarah do Sertão Agreste 07/07/2004

[ Hits: 10.131 ]

Download post.pl

0 0

Denuncie Favoritos Indicar

Esse script, escrito em PERL, mostra de forma simples como conectar a um banco de dados Postgres, utilizando a biblioteca DBI.
Demonstra como conectar, preparar, executar e imprimir os resultados obtidos.

Esconder código-fonte

#!/usr/bin/perl

### Autor: Carcarah
### Email: thenazgul@terra.com.br
### NÃO REMOVA O NOME DO AUTOR

###------------ INFO -------------
### Este script tem como finalidade mostrar a utilização primária das bibliotecas
### do DBI/Postgres
### 
### A seguir, explicações


# Requer biblioteca DBI. Caso não possua, vá para http://www.perl.org
use DBI;

# Handle para a conexão com o banco.
# Os parâmetros são case-sensitive
my $db = DBI->connect("dbi:Pg:dbname=database","usuario","senha");

# Handle para a consulta.
my $sql = $db->prepare(q{SELECT campo1, campo2 FROM tabela ORDER BY campo1 LIMIT 5});

# Executa a consulta preparada por $db
$sql->execute();

# Declara campos
my ($campo1, $campo2);


# Enquanto existirem valores, receba e imprima
while ( ($campo1, $campo2) = $sql->fetchrow_array() ) {
  print $campo1;
  print $campo2;
}

# $sql->rows mostra a quantidade de linhas retornadas
printf("Foram encontrados %d resultados", $sql->rows);

# Finaliza a query
$sql->finish();

# Fecha a conexao
$db->disconnect();

# sai...
exit();

Scripts recomendados

Orientação a Objetos - Criando e usando uma classe em Perl

GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl

Gerador de CPF válido em Perl

Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)

Busca Binária

Comentários

Nenhum comentário foi encontrado.