Perl e MySQL

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:


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