Perl e MySQL

Nesse artigo, eu explico como podemos integrar Perl com MySQL, um dos SGBDs mais populares do mundo.

[ Hits: 11.009 ]

Por: Matheus em 05/03/2014 | Blog: http://hc0der.blogspot.com


Introdução



Nesse tutorial, vou explicar como usar MySQL na linguagem Perl.

Para começar, o módulo responsável por isso, é o DBI, você pode checar se ele está instalado usando a seguinte linha de comando:

perl -e 'use DBI;'

Caso não retorne erros, como por exemplo: "Can't locate DBI.pm in @INC", é porque o módulo já está instalado. Caso ocorra algum erro, basta instalar o módulo executando o seguinte comando:

# cpan 'DBI'

Agora que você já verificou se o módulo necessário estava instalado (ou instalou, caso não estivesse), iremos prosseguir. Nesse primeiro exemplo de código, irei listar os drivers de conexão que estão instalados com o módulo DBI, como usaremos somente o MySQL, os outros não serão usados (pelo menos não nesse tutorial).

Código:

use DBI;

  @drivers = DBI->available_drivers;
  print $_."\n" foreach(@drivers);

A saída da execução do código foi:

  DBM
  ExampleP
  File
  Gofer
  Proxy
  SQLite
  Sponge
  mysql


Você também pode listar os drivers instalados usando a seguinte linha de comando:

perl -MDBI -e 'DBI->installed_versions'

Como podem ver, existem diversos drivers e um deles é o mysql. Para incluirmos esses drivers no código, usamos a seguinte linha de código:

  use DBD::<driver>

Caso não exiba mysql, é porque o driver, possivelmente, não está instalado. Para resolver esse problema é só usar o mesmo esquema apresentando no início do artigo (cpan 'DBD::mysql').

Em minha experiência com acrônimos, DBD deve significar DataBase Driver, ou algo como Delicious Blonde Deepthroat (a segunda opção seria mais interessante).

Como iremos trabalhar com nosso amigo do bairro MySQL, o código para inclui-lo, ficaria:

  use DBD::mysql

    Próxima página

Páginas do artigo
   1. Introdução
   2. Conectando-se ao Database / Identificando os erros
   3. Executando querys / Exibindo o resultado de uma query
   4. Affected Rows
Outros artigos deste autor

Shell Script para WEB

Leitura recomendada

Programando uma Intranet com Apache, MySQL e Perl (parte 2)

Executando os principais frameworks Perl no cPanel com CGI

Catalyst Framework Perl - (parte 2)

Autenticação mútua SSL em servidores de NF-e e CT-e

Configurando OTRS com PSGI/Plack e executando com Starman

  
Comentários
[1] Comentário enviado por leo4b em 05/03/2014 - 05:43h

Muito bom!
Você tem alguma dica de material para quem está começando em perl ? Eu so meio fraquinho em programação mas tenho como base shell script que foi aonde me aprofundei mais :/

[2] Comentário enviado por danniel-lara em 05/03/2014 - 10:54h

Parabéns , muito bom mesmo
bem explicado mesmo
estou estudando perl e esse artigo vai me ajudar muito

[3] Comentário enviado por Mmxm_bd em 05/03/2014 - 12:06h


[1] Comentário enviado por leo4b em 05/03/2014 - 05:43h:

Muito bom!
Você tem alguma dica de material para quem está começando em perl ? Eu so meio fraquinho em programação mas tenho como base shell script que foi aonde me aprofundei mais :/


Cara tem um livro muito bom que se chama Programando com Perl , ele é em português e foi escrito pelo Thiago Glauco Sanchez , o livro é muito bom pra quem ta começando :D

[4] Comentário enviado por danniel-lara em 05/03/2014 - 14:13h


[3] Comentário enviado por Mmxm_bd em 05/03/2014 - 12:06h:

Cara tem um livro muito bom que se chama Programando com Perl , ele é em português e foi escrito pelo Thiago Glauco Sanchez , o livro é muito bom pra quem ta começando :D


Esse Livro é muito bom mesmo eu recomento ele , estou lendo esse livre e é muito bom mesmo


[5] Comentário enviado por gamjacoby em 03/07/2014 - 14:08h

Não entendi aonde eu coloco o código:

use DBI;

@drivers = DBI->available_drivers;
print $_."\n" foreach(@drivers);

[6] Comentário enviado por Mmxm_bd em 03/07/2014 - 20:12h


[5] Comentário enviado por gamjacoby em 03/07/2014 - 14:08h:

Não entendi aonde eu coloco o código:

use DBI;

@drivers = DBI-&gt;available_drivers;
print $_."\n" foreach(@drivers);


Esse codigo é só um exemplo , serve para identificar os drivers instalados.

[7] Comentário enviado por eddye00 em 05/09/2014 - 09:06h

Excelente artigo. Parabéns!


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts