Conexão com Banco de Dados Postgres
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 9.677 ]
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.
#!/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();
GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl
Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (0)
Problema com alias usando locate (4)
Criar uma base de reconhecimento de HW no VOL (11)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba