Conexão com Banco de Dados Postgres

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

[ Hits: 9.665 ]

Download post.pl




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

Busca Binária

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

Validador de cartão de débido e crédito em Perl

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

Gerador de CPF válido em Perl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts