La consulta es la siguiente:
Using perl Syntax Highlighting
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI;
my $dbuser = "maest_gonzalo";
my $dbpass = "gjr";
my $dbhost = "localhost";
my $dbname = "maest_ME3REGIS";
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass);
my $query = $dbh->prepare( "SELECT identif FROM ME3REG" );
$query->execute();
while( my @data = $query->fetchrow_array() ) {
print " DATA= @data \n ";
}
$query->finish();
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI;
my $dbuser = "maest_gonzalo";
my $dbpass = "gjr";
my $dbhost = "localhost";
my $dbname = "maest_ME3REGIS";
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass);
my $query = $dbh->prepare( "SELECT identif FROM ME3REG" );
$query->execute();
while( my @data = $query->fetchrow_array() ) {
print " DATA= @data \n ";
}
$query->finish();
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4