Conexão com o banco de dados MySQL a partir de um script Perl requer o Perl DBI e DBD : módulos do MySQL . Estes módulos podem ser obtidos a partir de CPAN ( Comprehensive Perl Archive Network ) . Se você estiver usando o ActivePerl da ActiveState , você pode fazer o download dos módulos com o Gerenciador de Pacote Perl . O módulo DBI é usada para acessar banco de dados geral, enquanto o DBD : módulo MySQL é usado para acessar o banco de dados MySQL . Ligar e Consultando

Para usar o DBI : módulo MySQL para acessar o banco de dados MySQL , você deve adicionar a linha " use DBI ; " para o script Perl que conta a usar as bibliotecas DBI . Esta linha deve ser colocada antes de qualquer acesso ao banco de dados é tentada. Você se conecta ao banco de dados com o " DBI- > connect (' dbi : mysql : banco de dados' , 'username' , 'password' ) " função. As instruções SQL podem , então, ser preparado para a execução com a "função preparar ()" e executado com a função "executar" . Os resultados são então alimentado de volta para uma matriz que pode ser impresso ou tratados posteriormente

Um script de exemplo ficaria assim : .

# ! /usr /bin /perl- w # Chame o libraryuse DBI DBI ; # Criar variáveis ​​para as informações do banco de dados $ dados = " exemplo "; $ username = "mysql" ; $ password = "pass" ; # Connect ao banco de dados $ conectar = DBI- > connect (' dbi : mysql : $ database " , $ username ', $ senha ' ) or die " Erro de conexão : $ DBI :: errstr \\ n "; # Fornecer a consulta $ statement = " SELECT * FROM endereço "; # executar a consulta $ executar = $ conecta -> prepare ( $ statement ); $ executar -> executeor morrer " Erro: $ DBI :: errstr \\ n "; # Retorna o resultswhile ( @ row = $ executar -> fetchrow_array ) {print "@ linha \\ n"; } $ conectar -> disconnect ( );

A linha "$ conectar = DBI- > connect (' dbi : mysql : $ database' , $ username ', $ senha' ) or die " erro de conexão : $ DBI :: errstr \\ n"; "é usado para se conectar ao banco de dados , mas também fornece verificação de erros para que o script não continuar a funcionar se não houver conexão é feita . A verificação de erros é também incluído na execução da consulta .

A função " fetchrow_array " retorna cada fila como uma matriz de valores . Os valores podem ser acessados ​​separadamente com as variáveis ​​$ linha [1], $ linha [2] , $ linha [3 ], etc Neste exemplo, a linha inteira será impressa para a última linha do script remove screen.The . . a conexão com o banco

Se você quiser criar uma tabela, ou inserir dados em uma tabela , você deve usar a função " fazer () para criar a tabela a sintaxe seria : $ conectar -> fazer ( "Criar texto Table (id INT , nome VARCHAR ( 20) )");

para inserir dados na tabela é necessário adicionar o quote () função, a fim de citar os valores de string $ conectar - . > fazer ( "Inserir em valores de texto (1, " $ conectar - > quote ( " James " )) ". . );
Administração do Sistema

o módulo DBI permite funções de administração do sistema , tais como criar, apagar e desligar o banco de dados

para criar um novo banco de dados , você pode emitir a seguinte linha: . $ novo_bd = $ conecta -> func ( " createdb ", $ banco de dados, 'admin' );

Para excluir um banco de dados , você pode emitir a linha: $ excluir = $ conecta -> func ( " dropdb ", $ banco de dados, 'admin' ); < br >

Para desligar o banco de dados você deve emitir a linha: $ excluir = $ conecta -> func ( "shutdown ", $ banco de dados, 'admin' );
< br >