Atacar una base de datos MySQL usando Perl

MySQL es la base de datos Open Source más popular y extendida y además se puede utilizar con muchos lenguajes, no solo con PHP, veremos que con Perl también es posible.

Para conectar a MySQL desde perl utilizaremos el módulo DBI. Primero conectaremos a la base de datos con el método connect, ejecutaremos una consulta con los métodos prepare y execute y por último leeremos los datos con los métodos bind_colums y fetch.

Este es el ejemplo:

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/htmlnn";

use DBI;

#Datos de la conexión
$db="nombrebd";
$host="localhost";
$port="3306";
$userid="usuariobd";
$passwd="passbd";
$connectionInfo="DBI:mysql:database=$db;$host:$port";

# Realizamos la conexión a la base de datos
$dbh = DBI->connect($connectionInfo,$userid,$passwd);

/* Suponiendo que en nuestra base de datos "nombrebd" existe una tabla con nombre "ejemplos" y los campos "nombre"
y "descripción" ejecutaremos esta sentencia SQL */

#Sentencia SQL
$query = "SELECT nombre,descripcion FROM ejemplos";

# Primero hay que "preparar" el query.
$sth = $dbh->prepare($query);

# Ejecutamos el query
$sth->execute();

/* El primer parámetro lo dejaremos como undef. En los demás parámetros debemos pasar por referencia las variables que corresponden a cada campo, en el orden en el que aparecen en el query */
$sth->bind_columns(undef, $nombre, $descripcion);

print "Resultados<p>";

# Recorremos los resultados obtenidos de la base de datos
while($sth->fetch()) {

print "$nombre - $descripcion<br>";

}

# Indicamos que hemos acabado y desconectamos
$sth->finish();
$dbh->disconnect;

Redactado por Nenillo