DBIx::Custom para acesso ao Banco de Dados

dvinciguerra

IMPORTANTE: este script pretende apenas mostrar de forma introdutória como acessar dados do banco utilizando o DBIx::Custom. Caso necessário verifique as referencias para mais informações. INTRODUÇÃO O DBIx::Custom é um wrapper para DBI que tenta trazer benefícios e novas features a forma como nós manipulamos dados de bancos em Perl. Este módulo, além de fazer com que o trabalho com o banco fique mais simples, também permite que utilizemos algumas features bacanas como: utilizar estrutura de dados Perl no lugar do SQL, placeholders nomeados, suporte a Models, suporte a gerenciamento de conexões e algumas coisinhas a mais. QUERY USANDO DBI my $dbh = DBI->connect(...); my $sth = $dbh->prepare('SELECT * FROM usuario WHERE email = ?'); $sth->execute('usuario@teste.com'); while(my $row = $sth->fetchrow_hashref){ say "Usuário encontrado #$row->{id} - $row->{nome}"; } QUERY USANDO DBIx::Custom my $dbi = DBIx::Custom->connect(...); my $result = $dbi->select(table => 'usuario', where => {email => 'usuario@teste.com'}); while(my $row = $result->fetch_hash){ say "Usuário encontrado #$row->{id} - $row->{nome}"; } Como puderam ver o código é muito mais limpo, "moderno" e legível que o código usando apenas DBI. PRÉ-REQUISITOS - perl 5.10 ou superior - Módulo DBIx::Custom instalado - Driver do banco de dados (DBD::mysql, DBD::pg, etc... neste caso DBD::SQLite) REFERÊNCIAS https://metacpan.org/pod/DBIx::Custom https://metacpan.org/pod/DBIx::Custom::Result https://github.com/yuki-kimoto/DBIx-Custom/wiki EXECUTANDO $ perl dbix-custom.pl

Por: Daniel Vinciguerra

DBI Básico - Banco de Dados Perl

dvinciguerra

Quando estamos aprendendo linguagens de programação, sempre chegamos a um ponto onde armazenar e trabalhar com dados se torna importante. O Perl tem um meio muito interessante de fazer isso através do modulo DBI (Perl Database Interface) que inspirou algumas linguagens, como Ruby e Python. Baixe o código deste script e leia com atenção os comentários para conhecer o básico de como trabalhar com o banco de dados em Perl. PRÉ-REQUISITOS: - Perl 5.10 ou superior - Banco MySQL instalado - Driver dbi DBD::mysql instalado REFERÊNCIAS: http://dbi.perl.org https://metacpan.org/pod/DBI EXECUTANDO: Para executar o script: $ perl dbi-basico.pl Para ver mais mensagens de debug execute com a flag debug: $ DEBUG=1 perl dbi-basico.pl Obs.: altere a string de conexão dentro do script.

Por: Daniel Vinciguerra

Teste de conexão com MySQL

danniel-lara

Um simples script para teste de acesso ao banco de dados MySQL.

Por: Daniel Lara Souza