Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Bienvenido al foro, ahora, acerca de tu pregunta, es sumamente sencillo conectarse a un database por medio de Perl, y usando el módulo DBI la cosa es realmente fácil, por ejemplo:
- Código: Seleccionar todo
#!/usr/bin/perl -w
use strict;
use DBI;
my $dbh = db_connect();
my $sth = $dbh->prepare('SELECT dato FROM tabla LIMIT 1') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute() or die("Couldn't execute statement: " . $sth->errstr);
my $dato = $sth->fetchrow_array();
$sth->finish;
$sth = $dbh->prepare('INSERT INTO otra_tabla SET dato=?') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute($dato) or die("Couldn't execute statement: " . $sth->errstr);
$sth->finish;
$dbh->disconnect;
sub db_connect{
my $db_user = "username";
my $db_pass = "pass";
my $host_name = "localhost";
my $db_name = "DATABASE";
my $q_string = "DBI:mysql:host=$host_name;database=$db_name";
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 1, RaiseError => 1})) ;
}
Este script lo que hace es conectarse al database, leer una primera tabla en donde recibe un dato que guardamos en la variable $dato, después usando el valor que acabamos de tomar lo vamos a insertar en una segunda tabla.
Como ves es realmente sencillo, solamente falta tomarle la onda al módulo DBI. Aquí en el sitio hay un tutorial que habla acerca de esto:
http://perlenespanol.com/archives-tut/000045.html
Y claro que también puedes ver la documentación del módulo DBI:
http://search.cpan.org/search?query=DBI&mode=all
Saludos
