Typhon Software
Site Admin
Registrado: 24 Jul 2006
Mensajes: 248
Ubicación: Bs As Argentina
|
 Publicado: Sab Ene 16, 2010 6:28 pm Título del mensaje: Usando Mysql con PERL y Ubuntu Server |
 |
|
Hola, les dejo una forma de hacer querys con Perl, y ademas podemos leer los resultados y determinar que cosas hacer y que cosas no.
Les dejo un codigo y su explicacion en comentarios, creo que esta bastante claro.
| Código: | #!/usr/bin/perl
use strict;
#le indico con strict, que las variables deben ser declaradas
#definiciones para base de datos, declaro las variables que usare
my $dbh;
my $sql;
my $sth;
my $res;
my $row;
#DBI es el paquete que nos permite conectar con Mysql
#Generalmente ya esta instalado.
use DBI();
#realizo la conexion con la base de datos
$dbh = DBI->connect( "DBI:mysql:database=databasenamel;host=localhost",
"usuario",
"clavedeconexion",
{'RaiseError' => 1}
);
#escribo una query cualquiera
$sql = "select * from objeto";
#la ejecuto para luego obtener los datos
$sth = $dbh->prepare($sql);
$res = $sth->execute;
#por intermedio de un While recorro el resultado e imprimo los datos en pantalla.
while ($row = $sth->fetchrow_hashref)
{
# imprimo un campo por pantalla
print $row->{nombre}."\n";
} |
De esta manera podemos programar tareas automaticas y luego utilizando la herramienta Cron podemos colgarlas para que se disparen automaticamente.
Saludos.
_________________
http://www.typhon.com.ar - Soporte y Ayuda para la implementacion de Commit Soft ERP. info@typhon.com.ar |
|
F.A.Q.
Buscar
Lista de Miembros
Grupos de Usuarios
Regístrese
Perfil
Conéctese para revisar sus mensajes
Conectarse
