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

Graficos com barras em Perl

alexandre035

Script para gerar gráficos com barras a partir da inserção de um número inteiro.

Por: alexandre

Shadow Post It

dvinciguerra

Este é um pequeno e bem simples script que fiz para auxiliar o pessoal que se amarra nas notinhas amarelas. (Post It). Ele utiliza o modulo TK e manipulação de arquivos para gerar outro arquivo e salvar as informações que não estão escritas no Post It... Espero que gostem.... Obs: Requer o modulo Tk para que rode...

Por: Daniel Vinciguerra

Carregando automaticamente wireless via ndiswrapper

_m4n14c_

script em perl para carregar a rede wireless. Testado com placa broadcom.

Por: jean michael gandin

SiteCheckSMS - Monitore seu website e receba alertas por SMS

fabio

Script usado para testar a disponibilidade e velocidade de um site: - se o site estiver fora do ar, enviar um SMS para o administrador - se o site estiver lento (variável $tempoAceitavel), enviar um SMS para o administrador Utiliza o serviço do site www.fastsms.com.br para o envio de SMS. Configure a seção 2, de definição de variáveis. Melhorias no código são bem vindas!

Por: Fábio Berbert de Paula