Perl e DBI: o primeiro script com MySQL

Neste artigo, vamos tentar entender juntos como usar mysql db com Perl.
É que deve preceder imediatamente para esta tarefa precisa de Perl motorista DBI (Database Interface), ou uma biblioteca que permite que o liguaggio a interface para o nosso banco de dados.
Não só isso, também precisamos do módulo DBD do MySQL interface, ou a comunicação em nosso db.
Antes peranto você deve verificar no nosso servidor, DBI e DBD.
Se ambos os pilotos estão presentes, podemos continuar. Caso contrário, antes que você faça, você precisará instalar os dois.

Aqui está uma pequena perl que usa scriptin (precisamente) esses drivers para inserir dados em nosso db MySQL.
Código:

 #! / Usr / bin / perl-w

 


 



 use DBI;

 

 



 # Acesso de dados para mysql db

 






 $ Dados = "dbname";







 $ User = "root";







 $ Pass = "segredo";







 $ Driver = "DBI: mysql";

 

 



 # Conectar-se a db

 






 my $ dbh = "DBI -> connect ($ driver: banco de dados = $ pass banco de dados, $ user, $)

 






 ou morrer "Não é possível conectar!"

 

 



 # Inserir alguns dados em DB

 






 $ Dbh-> do ("INSERT INTO Tabela (Campo1, Campo2) VALUES ('foo', 'bar')");

 

 



 # Desligar da db

 






 $ Dbh-> desligado;

 

 



 saída;