DBIx::Custom para acesso ao Banco de Dados
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
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
Um simples script para teste de acesso ao banco de dados MySQL.
Por: Daniel Lara Souza
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Organizando seus PDF com o Zotero
Erro no realm join [Resolvido]
Um programa para baixar vídeos: Parabolic
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
Driver de rede realtek 8821ce bugado (3)
Como propositadame... colocar bordas pretas na tela? (1)
Atalhos duplicados (sobras de instalações anteriores) (3)
Como fazer para mudar a frequência da GPU ou pelo menos da CPU no term... (7)