Como acessar o banco de dados MySQL do meu domínio usando Perl (DBI)?

De Wiki
Ir para: navegação, pesquisa

Para utilizar o banco de dados MySQL, solicite-o através do link Fale Conosco no Painel de Controle da CentralServer.

A seguir, apresentamos um exemplo de script para conexão à base MySQL, usando Perl (DBI):


#!/usr/bin/perl

# Declar o módulo DBI
use DBI;

# Criar a variável de conexão passando para ela o nome de usuário
# (usuario), a senha (senha), o nome do banco de dados (nomebd)
# e mysql.seudominio (host)
$dbh = DBI->connect("dbi:mysql:nomebd:host","usuario","senha");

# Criar conjunto de registros (recordset). Primeiramente, vamos
# atribuir a string contendo a cláusula SQL para uma variável
my $instrucao_sql = "SELECT * FROM tabela";

# Preparar a instrução SQL criando uma variável para fazer
# referência ao conjunto de registros resultante da consulta
my $meu_recordset = $dbh->prepare($instrucao_sql);

# Executar o comando SQL
$meu_recordset->execute();

# Termina o recordset
$meu_recordset->finish;

# Termina a conexão
$dbh->disconnect;