Foro - Perl en Español

por **thegame** » 2011-11-21 15:12 @675

Aquí está el código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use DBD::Pg;
print error;
 
print "Content-type: text/html\n\n";
 
my @pote;
my @log;
local ( $buffer, @pairs, $pair, $name, $value, %FORM );
 
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
    read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
else {
    $buffer = $ENV{'QUERY_STRING'};
}
 
# Split information into name/value pairs
@pairs = split( /&/, $buffer );
foreach $pair (@pairs) {
    ( $name, $value ) = split( /=/, $pair );
    $value =~ tr/+/ /;
    $value =~ s/%(..)/pack("C", hex($1))/eg;
    push( @pote, $value );
}
$login = @pote[0];
$pass  = @pote[1];
 
my $dbh = DBI->connect( "DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432" . "directorio", "directorio",
    "directorio" );
my $sth = $dbh->prepare("SELECT login, clave, nombre FROM admin WHERE login=? AND clave=?");
$dbh->{PrintError} = 1;
 
#$sth->bind_param(1,$login);
#$sth->bind_param(2,$pass);
$sth->execute( $login, $pass );
while ( @log = $sth->fetchrow_array() ) {
    print @log;
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

En el código me traigo un usuario y login del formulario que las metí en $login y $pass.
Ahora quiero comparar ese usuario y login con la BD... lo hago pero no me muestra resultado... no sé si estoy haciendo el execute bien o qué problema tengo... Una vez más requiero de su ayuda.

Gracias.

La 4. Con la 3 es suficiente.
La 5.
La 14, ya que es mejor usar la función uc() en la línea siguiente:
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
1. if ( 'POST' eq uc $ENV{'REQUEST_METHOD'} ) {
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
De la 13 a la 29. Si usases el módulo CGI, te ahorrarías todo eso.

Líneas con errores:

La 11. Ese no es el uso correcto de la función local().
La 30 y 31. El acceso a los elementos de un array es con '$', no con '@'.
La 33. Unir la palabra 'directorio' al número de puerto, con el operador '.'. Lo más seguro es que querías poner una ',', en lugar de un '.' (aquí creo que está el error principal).
La 33 (otra vez). connect() requiere de exactamente 4 argumentos: el DSN, el nombre de usuario, la contraseña, y una referencia a un hash con las opciones que queremos (des)activar en el motor.

Líneas que se pueden abreviar.

La 7. Con el módulo CGI queda reducida a print header(); .
La 22 a 29. Con el módulo CGI se puede escribir así: $login = param('login'); , $pass = param('pass');.
La 36 se puede meter en la 33.

por **thegame** » 2011-11-21 17:26 @768

¡Gracias de nuevo!

Foro - Perl en Español

Comparar usuario y login con BD en PostgreSQL

Comparar usuario y login con BD en PostgreSQL

Publicidad

Re: Comparar usuario y login con BD en PostgreSQL

Re: Comparar usuario y login con BD en PostgreSQL

¿Quién está conectado?