Perl e MySQL

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

[ Hits: 11.746 ]

Por: Perfil removido em 05/03/2014


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

Passos essenciais para configurar seu modem 3G no Linux

Básico sobre tratamento de exceções em Python 3.4

Quem disse que micro velho não presta?

Block Hosts: Bloqueando ataques de força-bruta (brute force) em FTP, SSH e outros

Uso de terminologia imprópria com software livre

Leitura recomendada

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

Executando os principais frameworks Perl no cPanel com CGI

Módulos de Web no Perl

Módulos CPAN no Debian e distros GNU/Linux em geral

Impressão remota via WEB

  
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 removido 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 removido 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

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts