Hacer pregunta Sugerir contenido Busqueda avanzada
Inicio Mostrar todas las categorías Mapa del sitio

RSS
9803 vistas:
Correo - No puedo enviar mensajes pero sí recibirlo. ...
4682 vistas:
Configurar casillas de correo en Outlook
4551 vistas:
Correo electrónico - Los mensajes que envío son marcados ...
4336 vistas:
FormMail - ¿Cómo se envía información desde formularios?
3783 vistas:
Panel de control (Helm) - ¿Como ingreso a mi ...

 

RSS
(2008-11-21 15:44)
Activar / Eliminar cuentas de e-mail.
(2008-11-21 11:18)
Acceso sin dominio - Cómo accedo a mi servicio ...
(2008-11-12 12:24)
Panel dominio - Como recuperar la contraseña

Manual del servicio CPanel » Base de Datos MySQL

ID #1088

Usando Perl para acceder a su Base MySQL

El lenguaje de programación Perl puede ser usado para acceder a Bases de datos MySQL. Este será el lenguaje que utilizaremos para nuestros ejemplos. Acceder a Bases de Datos MySQL a través de Perl requiere del Modulo Perl DBI, tanto el Perl como el modulo DBI están disponibles en la cuenta de su sitio.

Los siguientes ejemplos de código setean una conexión entre su sitio www.bob.com y su Base de Datos, preparan y ejecutan una sentencia SQL, guardan los resultados en una variable local, y luego limpian la conexión.

# Uso del Modulo DBI
use DBI qw(:sql_types);

# Declarar variables locales
my ($databaseName, $databaseUser, $databasePw, $dbh);
my ($stmt, sth, @newRow);
my ($telephone);

# Setear los valores de parámetros para la conexión
$databaseName = "DBI:mysql:dominio_com";
$databaseUser = "usuario";
$databasePw = "password";

# Conectar a la Base
# Nota: esta conexión puede ser utilizada para
# ejecutar mas de una sentencia
# en varias tablas o Bases de Datos

$dbh = DBI->connect($databaseName, $databaseUser,
$databasePw) || die "Connect failed: $DBI::errstr\n";

# Crear sentencia
$stmt = "SELECT Nombre FROM Telefonos
WHERE (Telefono LIKE '518%')";

# Preparar y ejecutar una consulta SQL
$sth = $$dbh->prepare($$stmt)
|| die "prepare: $$stmt: $DBI::errstr";
$sth->execute || die "execute: $$stmt: $DBI::errstr";

# Obtener el primer registro
@record = $sth->fetchrow()

# Obtener el valor del primer campo
$telefono = $record[0];

# Borrar el registro y desconectar de la Base
$sth->finish();
$dbh->disconnect();

Todas las consultas se componen de la misma forma básica. Simplemente reemplace la sentencia SELECT con las sentencias INSERT, UPDATE, DELETE, etc. según la consulta que desee utilizar. Note que este tipo de consultas no traen registros, por lo que el fetchrow() no deberá ser utilizado en estos casos.

El sistema soporta otras múltiples operaciones como juntar, subconsultas, agrupar, y ordenar simplemente modificando la sentencia SQL en lugar de las expuestas en los ejemplos.

Última actualización: 2006-09-29 14:10
Autor: Centro de asistencia técnica
Revisión: 1.0

Imprimir este registro Imprimir este registro
Enviar a un amigo Enviar a un amigo
Mostrar como fichero PDF Mostrar como fichero PDF
exportar como Fichero-XML exportar como Fichero-XML

Por favor valore este registro:

Valoración media: 0 desde 5 (0 Votos)

nada útil 1 2 3 4 5 muy útil

No puedes comentar este registro

Cesto de compras
0 Productos en su cesto de compras
Selección de Moneda

Indique la moneda de su país
Busqueda y reg de dominio


Live Help
Webmail Acceso a WebMail
Backup Política de Backup
Anti Spam® Anti-Virus y Anti-Spam Gratis
Formas de pago Formas de pago disponibles
Formas de pago disponibles
VIAFACIL.COM® - Tte. Gral. Perón 1615 piso 6 Of. "63" CF - Buenos Aires Argentina -Tel: (54 11) 5031-3915 - 5239-3089
ALQUILER DE SERVIDORES