Foro - Perl en Español

por **PkoHimself** » 2012-05-13 14:04 @628

Hola, perleros. Soy Paco y soy algo nuevo en esto de la programación en Perl. He andado vuelto loco en la red buscando una solución a este problema. Ojalá alguien me pudiera ayudar...

Yo utilizo una base de datos creada en localhost y tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use DBI;
use DBD::mysql;
 
print "Ingresa el query: ";
$query = <STDIN>;
my $roux;
my $t = 0;
my $dbh = DBI->connect( 'DBI:mysql:Database;host=127.0.0.1', 'root', '' )
    || die "Unable to connect to database Baseball @ localhost";
print "Everything looks fine..\n";
$sql = "Select * from Regulations WHERE Regulate='$query'";
$sth = $dbh->prepare($sql);
$sth->execute or die "SQL Error: $DBI::errstr\n";
 
while ( @row = $sth->fetchrow_array ) {
    print "@row\n";
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Mas, sin embargo, lo que no logro realizar, (o comprender cómo realizarlo) es cómo ingresar un parámetro al select $sql = "Select * from Regulations WHERE Regulate='$query'"; ya que si le quito la variable funciona perfectamente. Les agradecería su ayuda (:

#!/usr/bin/perl
use DBI;
 
print "Ingresa el query: ";
chomp(my $query = <STDIN>);
 
my $dbh = DBI->connect( 'DBI:mysql:Database;host=127.0.0.1', 'root', '' )
        or die 'Unable to connect to database Baseball @ localhost';
print "Everything looks fine..\n";
 
my $sql = 'Select * from Regulations WHERE Regulate=?';
$sth = $dbh->prepare($sql);
$sth->execute($query)
        or die "SQL Error: $DBI::errstr\n";
 
while ( my @row = $sth->fetchrow_array ) {
    print "@row\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Observa que trasladamos la $query al execute(). MySQL se encargará de "escapar" los caracteres peligrosos que el usuario ingresara en la entrada.

por **PkoHimself** » 2012-05-13 14:29 @645

En efecto: era la línea de escape la que hacía que mi código no funcionara.

¡ Muchas gracias por responder tan pronto !

Hacía horas que buscaba una solución y no la encontraba :lol:

Foro - Perl en Español

Perl Mysql

Perl Mysql

Publicidad

Re: Perl Mysql

Re: Perl Mysql

¿Quién está conectado?