La consulta es la siguiente:
Using perl Syntax Highlighting
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI;
my $identif = " ";
my $nombre = " ";
my $pruser = "GJR";
my $dbuser = "maest_gonzalo";
my $dbpass = "gjr";
my $dbhost = "localhost";
my $dbname = "maest_ME3REGIS";
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass)|| die('No se puede conectar a la base de datos...');
my $query = $dbh->prepare( "SELECT nombre,identif FROM ME3REG WHERE identif = '$pruser'" );
$query->bind_columns(\$nombre, \$identif);
$query->execute();
while( $query->fetch() ) {
print "$nombre $identif\n";
}
$query->finish();
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI;
my $identif = " ";
my $nombre = " ";
my $pruser = "GJR";
my $dbuser = "maest_gonzalo";
my $dbpass = "gjr";
my $dbhost = "localhost";
my $dbname = "maest_ME3REGIS";
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass)|| die('No se puede conectar a la base de datos...');
my $query = $dbh->prepare( "SELECT nombre,identif FROM ME3REG WHERE identif = '$pruser'" );
$query->bind_columns(\$nombre, \$identif);
$query->execute();
while( $query->fetch() ) {
print "$nombre $identif\n";
}
$query->finish();
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
De antemano agradezco su ayuda.
Cordial Saludo,
Gonzalo.