elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  ayuda con primeros ejemplos de perl y msyql
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ayuda con primeros ejemplos de perl y msyql  (Leído 2,416 veces)
morenochico

Desconectado Desconectado

Mensajes: 171


Ver Perfil
ayuda con primeros ejemplos de perl y msyql
« en: 10 Marzo 2011, 23:43 pm »

Buscando en internet encontre el siguiente ejemplo de perl para hacer una conexion a mysql, que ya he personalizado con mis datos, pero me sale "500 internal error" 

tengo en mi directorio web un subdirectorio perl, con dos archivos: dos.pl y dosc.pl

dos.pl
Código:
#!/usr/bin/perl -w
package dos;

use strict;
use DBI;

# variables a editar
my $db_user = "root";
my $db_pass = "123";

my $host_name = "localhost";
my $db_name = "mibase";
# vars

my $q_string = "DBI:mysql:host=$host_name;database=$db_name";


sub connect{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}

1;

dosc.pl
Código:
#!/usr/bin/perl -w 
use dos;
my($dbh,$sth);
$dbh = dos->connect();
$sth = $dbh->prepare('SELECT pas,usuario FROM usuarios WHERE id_usuario = ? AND nombre = ?') or die("Couldn't " . $dbh->errstr);
$sth->execute(1,"alf") or die("Couldn't execute" . $sth->errstr);
my ($pas,$usuario) = $sth->fetchrow_array();
$sth->finish;
$dbh->disconnect;

sobre la consulta es valida aqui va lo que tengo en mi base
Código:
mysql> select usuario,id_usuario,pas,nombre from usuarios;
+---------+------------+------+--------+
| usuario | id_usuario | pas  | nombre |
+---------+------------+------+--------+
| beta    |          2 | atab | beta   |
| alf     |          1 | fla  | alf    |
| cobo    |          3 | oboc | cobo   |
| dedo    |          4 | oded | dedo   |
| eco     |          5 | oce  | eco    |
+---------+------------+------+--------+

cuando lo llamo lo llamo asi:
Código:
localhost/perl/dosc.pl


que le falta para que funcione?
el directorio sí es accesible por web y per funciona, tambien el root de mysql accede desde fuera. Trabajo en puppy gnu/linux 4 con mysql, hiawatha, y perl 5.8.8


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
manual de perl con ejemplos
Scripting
ice 2 7,365 Último mensaje 13 Mayo 2004, 14:28 pm
por ice
ayuda a novato con linux debian y sus primeros pasos
GNU/Linux
kortito 3 2,714 Último mensaje 3 Julio 2010, 23:07 pm
por kortito
Ayuda (mis primeros pasos con ollydb para intentar registrar un programa)
Ingeniería Inversa
chuky666 4 3,297 Último mensaje 30 Septiembre 2010, 23:23 pm
por LSL
estoy aprendiendo asm y necesito opinion y/o ayuda para mejor mis ejemplos
ASM
Belial & Grimoire 1 3,518 Último mensaje 28 Febrero 2011, 16:27 pm
por Garfield07
Ayuda para unos ejemplos en C
Programación C/C++
_Ari_ 2 2,089 Último mensaje 2 Diciembre 2013, 21:15 pm
por _Ari_
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines