Using perl Syntax Highlighting
my $SQL = "select IdUsuario,Password from Usuarios";
if($connection->Sql($SQL))
{
print "NO Se puedo realizar la intrucción:\n $SQL\n";
print "A ocurrido un error:\n";
print $connection->Error() . "\n";
## Closing the database connection
$connection->Close();
## Exiting the program
die;
}
while ($connection->FetchRow())
{
##este resultado lo quiero enviar a seekU
my %dataRow = $connection->DataHash();
}
sub seekU() {
## aqui necesito buscar en el hash dataRow
}
if($connection->Sql($SQL))
{
print "NO Se puedo realizar la intrucción:\n $SQL\n";
print "A ocurrido un error:\n";
print $connection->Error() . "\n";
## Closing the database connection
$connection->Close();
## Exiting the program
die;
}
while ($connection->FetchRow())
{
##este resultado lo quiero enviar a seekU
my %dataRow = $connection->DataHash();
}
sub seekU() {
## aqui necesito buscar en el hash dataRow
}
Coloreado en 0.015 segundos, usando GeSHi 1.0.8.4
A ver si me dan una idea cómo hacerlo. Thax
