En cuanto a la lectura de la base de datos, me parece que es un poco de gasto de recursos construir un estructura de datos en la que la mitad de la información son '1'.
Casi mejor devolver la lista de palabras, y que sea el resto del programa el que se encargue de manipularlas.
Using perl Syntax Highlighting
- sub datosBaseDatos {
- my ($conexion, $tabla) = @_;
- my @palabras_en_base_de_datos;
- my $sth = $conexion->prepare("SELECT * FROM $tabla")
- or die("Couldn't prepare statement: " . $conexion->errstr)
- ;
- $sth->execute()
- or die("Couldn't execute statement: " . $sth->errstr)
- ;
- while (my $ref = $sth->fetchrow_hashref()) {
- push @palabras_en_base_de_datos, $ref->{'palabra'}; # Apuntamos la palabra en nuestro diccionario
- }
- $sth->finish();
- return @palabras_en_base_de_datos;
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4