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
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Como instalar o Tilix Terminal no Gnome e usá-lo como menu drop-down ao estilo Quake
Instalando Grub Customizer no Ubuntu 24.04
Preparando pendrive com GNU/Linux [Corretamente!]
Problemas chatos alguem se aventura na ajuda? (1)
Atualização pra versão 2.7.0 (2)
Navegadores com linhas na tela [RESOLVIDO] (11)
Som continua saindo no auto-falante mesmo com headphone, como conserto... (4)