Meus artigos anteriores:

• Programando uma intranet com Apache, MySQL e Perl (parte 1)
• Gerenciando redes com Perl e SNMP

Acidentalmente eu apaguei meu usuário anterior. Este artigo é continuação do programando uma intranet com Apache, MySQL e Perl.

Bibliografia para pesquisa:

• http://w.perl.org
• http://www.ticursos.net/perl.html
• http://search.cpan.org/~timb/DBI-1.611/DBI.pm
• Perl Database Programming, by Brent Michalski. ISBN:0764549561 | John Wiley & Sons © 2003 (552 pages)

Justificativa:

Muita coisa pode ser feita na web sem um banco de dados. Porém, em algum momento, você pode se deparar com a necessidade de armazenar certos dados dos seus clientes e usuários em um local seguro e altamente disponível. Este local será, com certeza, um banco de dados. Vamos ver neste artigo as artimanhas que o Perl nos oferece para manusearmos os bancos de dados, em especial, o MySQL.

Apresentando:

No artigo anterior falamos um pouco sobre o CGI. Agora vamos falar um pouco sobre o MySQL com o Perl e o DBI. O MySQL é um dos Bancos de Dados Relacionais mais utilizados no mundo. Mas, para alguém que acessa este site isto é uma informação redundante. Apesar de ser impossível não elogiar o MySQL, vamos passar direto para a comunicação do MySQL com o Perl. Caso tenha interesse em mais detalhes sobre o MySQL acesse http://dev.mysql.com/.

Para acessar o MySQL com Perl é necessário que você instale alguns módulos do CPAN. Estes módulos vão administrar a conversa entre o seu programa e o banco de dados. No nosso caso, eu recomendo o Perl DBI. Para isso digite na sua console os comandos a seguir:

cpan install DBI

E deixe a instalação rolar. Caso o cpan solicite alguma informação, responda conforme a instalação no seu sistema. Em dúvida, deixe um poste aqui e eu responderei. No meu caso o DBI já estava instalado:

cpan install DBI
CPAN: CPAN::SQLite loaded ok (v0.199)
Database was generated on Sun, 16 May 2010 20:31:26 GMT
CPAN: Module::CoreList loaded ok (v2.31)
DBI is up to date (1.611).

Uma vez que o módulo DBI está instalado temos que nos certificar que temos os drivers necessários. No CPAN temos drivers para diverso bancos de dados, sendo possível utilizar bancos MySQL, MS-SQL, Oracle entre outros.

Para verificarmos os drivers possíveis digite:

perl -MDBI -e '@drivers = DBI->available_drivers; print qw/@drivers/;'

ADO DBM ExampleP File Gofer ODBC Pg Proxy SQLite Sponge mysql

No nosso caso o driver do MySQL aparece como último da nossa lista, então ele está instalado. Porém, caso não apareça o driver do MySQL na sua instalação, utilize o comando:

cpan install DBD::mysql
CPAN: CPAN::SQLite loaded ok (v0.199)
Database was generated on Sun, 16 May 2010 20:31:26 GMT
CPAN: Module::CoreList loaded ok (v2.31)
DBD::mysql is up to date (4.014).

Rode novamente o comando:

perl -MDBI -e '@drivers = DBI->available_drivers; print qw/@drivers/;'

Para verificar os drivers de banco de dados do DBI e certifique-se de que você tem o driver correto. Para instalar o driver de outro banco de dados, verifique o driver em http://search.cpan.org/.

Agora que temos tudo que precisamos, vamos conectar o Perl ao banco.