Foro - Perl en Español

por **Carlos2012** » 2012-03-09 15:15 @677

Buenas tardes compañeros,

tengo una pequeña cuestión con la que no he podido localizar respuesta alguna.
Necesito poder leer una frase que se ha introducido en un cuestionario html, desglosar esa frase en cada una de las palabras que la forman, y luego asignarles una variable a cada una de dichas palabras.

Sintáxis: [ Descargar ] [ Ocultar ]

#!/usr/bin/perl
use CGI;
my $q=new CGI;
my $consulta;
print $q->header("text/html");
print $q->start_html(-title=>"Tu pregunta");
print"\n";
$consulta =$q->param('consulta');
# aquí desglosaría la pregunta (frase en las distintas palabras que la forman y se le asignaría una variable de
texto)
print" Tu consulta es: $palabra1 $palabra2 $palabra3 $palabra4, \n";
print $q->end_html();

El problema es que no puedo tomar la entrada $consulta como un array, y descomponerlo porque no sé a priori cuántas palabras forman la pregunta y no sé cuántas variables necesitaría crear para cada una de dichas palabras.

Bueno, creo que la duda está más o menos clara.

Agradecido vuestros comentarios, os mando un abrazo.

SalU2.

Tienes una primera solución en perlfaq6, en tu propio ordenador: perldoc perlfaq6 (busca por How do I process each word on each line?. Mira también la siguiente pregunta a esta, que quizás también te interese: How can I print out a word-frequency or line-frequency summary?).

Ahí verás cómo dividir una línea y usar cada palabra en un bucle for(), pero de la misma manera puedes guardar las palabras en un array, que es la respuesta a tu inquietud sobre desconocer a priori el número de variables que vas a necesitar. Mejor guardar toda la información en una estructura de tipo vector o matriz.

por **Carlos2012** » 2012-03-11 05:18 @263

Buenas..

Muchas gracias por tu respuesta explorer. El caso es que ya he podido conseguir desglosar la entrada en sus palabras correspondientes con el uso de

Sintáxis: [ Descargar ] [ Ocultar ]

#!/usr/bin/perl
use CGI;
use strict;
use warnings;
my $q=new CGI;
my $consulta;
print $q->header("text/html");
print $q->start_html(-title=>"Tu pregunta");
print"\n";
$consulta =$q->param('consulta');
my @frase = split(/ /,$consulta);
foreach my $palabras (@frase) {
print "$palabras\n";
}
print $q->end_html();
exit 0;

El caso es que puedo conseguir desglosar la frase en palabras pero no sé cómo asignar a cada una de esas palabras una variable tipo $palabra1, $palabra2, .. $palabraN. Una posible solución es contar cuántas palabras hay en la frase (creo que sé cómo se hace), pero no sabría seguir.
Por otro lado, ¿puedo realizar un split/PATTERN/,EXPR en donde el PATTERN sean varias condiciones (varios caracteres en el que se dan todos o solamente alguno de ellos) o sería en este caso utilizar varios if para cada uno de los split? (esto último lo probé pero al final sólo obtenía el resultado del último if).

Muchas gracias por vuestros comentarios. :wink:

SalU2.

por **Carlos2012** » 2012-03-11 16:36 @733

Buenas de nuevo,

he ido avanzando un poco en el proceso que quiero realizar, y aquí os dejo mi último código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
use DBI;
 
print "\nPregunta lo que deseas saber\n";
print "\n";
my $consulta = <STDIN>;
my $numpalabras;
my @palabras = split( / /, $consulta );
my $i = 0;
my @tupla;
my $sth;
 
$numpalabras = $#palabras + 1;
 
print "el número de palabras es $numpalabras \n";
 
for ( my $i = 0; $i <= $numpalabras - 1; $i++ ) {
    print "la palabra $i es $palabras[$i] \n";
}
 
#Usamos las librerias de acceso a BD
 
my $base_datos = "personajes";         #Nombre de las base de datos
my $usuario    = "root";               #Usuario de la BD
my $clave      = "xxxxx";              #Password de la BD
my $driver     = "mysql";              #Utilizamos el driver de mysql
my $tabla      = "ciencia";            #Nombre de la tabla de ejemplo
 
#Conectamos con la BD, si no podemos, ponemos un mensaje de error
my $dbh = DBI->connect( "dbi:$driver:$base_datos", $usuario, $clave )
    || die "\nError al abrir la base datos: $DBI::errstr\n";
 
for ( my $i = 0; $i <= $numpalabras - 1; $i++ ) {
 
    my $sth = $dbh->prepare("SELECT texto FROM ciencia WHERE nombre='$palabras[$i]';");
 
    #Realizamos la etapa de ejecución de la sentencia
    $sth->execute();
 
    #Realizamos la etapa de extracción de datos. Imprimimos tupla a tupla.
    while ( @tupla = $sth->fetchrow_array() ) {
        print "$tupla[0]\n";
    }
 
}
 
#Realizamos la etapa de liberación de recursos ocupados por la sentencia
$sth->finish();
 
#Nos desconectamos de la BD. Mostramos un mensaje si hay
#algun fallo
$dbh->disconnect || warn "\nFallo al desconectar.\nError: $DBI::errstr\n";
 
print " \n";
 
exit 0;
 
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Como veis realizo una búsqueda de cada una de las palabras que forman la entrada al programa y las comparo con un campo de la base de datos. El caso es que me sale un error de tipo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can't call method "finish" on an undefined value at consulta2.pl line 51, <STDIN> line 1.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Podríais indicarme qué es lo que está incorrecto en el código?

Muchas gracias por vuestra ayuda.

SalU2.

por **explorer** » 2012-03-12 10:01 @459

Al formatear el código con perltidy se ve claramente lo que pasa: la variable $sth está definida dentro del bucle for(), así que no es conocida fuera de él.

Debes meter la línea 51 en la 47.

por **Carlos2012** » 2012-03-12 11:58 @540

Debe de haber algo raro con $palabras[$i] porque ahora con el cambio que me has comentado no me da error, pero en cambio no muestra nada de la base de datos. Si en vez de $palabras[$i] pongo una palabra del campo nombre de la BBDD, no me da error, por lo que deduzco que el problema debe estar en la sentencia $palabras[$i] dentro de la línea de

Sintáxis: [ Descargar ] [ Ocultar ]

my $sth = $dbh->prepare("SELECT texto FROM ciencia WHERE nombre='$palabras[$i]';");

Estoy probando con variaciones, pero nada...

¿Algo que se escapa? ¿o quizás otra forma de hacerlo?

SalU2.

por **explorer** » 2012-03-12 12:44 @572

Queda mucho más simple así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $palabra (@palabras) {
    my $sth = $dbh->prepare("SELECT texto FROM ciencia WHERE nombre=?");
 
    $sth->execute($palabra);
 
    # (aquí extraemos el resultado...)
 
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Carlos2012** » 2012-03-13 14:51 @660

Buenas de nuevo...

Algo parece funcionar mal ya que al poner

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dbh = DBI->connect( "dbi:$driver:$base_datos", $usuario, $clave )
    || die "\nError al abrir la base datos: $DBI::errstr\n";
 
for my $palabra (@palabras) {
    my $sth = $dbh->prepare("SELECT texto FROM ciencia WHERE nombre=?");
 
    $sth->execute($palabra);
 
    while ( @tupla = $sth->fetchrow_array() ) {
        print "$tupla[0]\n";
    }
 
    $sth->finish();
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No da error de código, pero no muestra nada de la BBDD. He estado probando varias cosas, pero sigo sin tener el resultado deseado...

¿Se nos escapa algo? Gracias.

SalU2.

por **explorer** » 2012-03-13 16:30 @729

Yo no veo nada raro. El única cambio cosmético es el de cambiar '||' por el más correcto 'or'. Pero eso tampoco influye en el resto del código.

Voy a decir que
* el usuario no tiene permisos para hacer SELECT a la base de datos
* la tabla ciencia no existe
* el campo texto y/o nombre no existen

Esta otra variación también debería funcionar:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dbh = DBI->connect( "dbi:$driver:$base_datos", $usuario, $clave )
       or die "\nError al abrir la base datos: $DBI::errstr\n";
 
my $sth = $dbh->prepare("SELECT texto FROM ciencia WHERE nombre=?");
 
print "Número de palabras a buscar: [", scalar(@palabras), "]\n";
 
for my $palabra (@palabras) { 
    $sth->execute($palabra); 
    while ( @tupla = $sth->fetchrow_array() ) {
        print "$tupla[0]\n";
    }
}
 
$sth->finish;
$dbh->disconnect;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Carlos2012** » 2012-03-14 15:08 @672

Muchas gracias, explorer..

Finalmente he descubierto qué pasaba. Te cuento: si la consulta es "Dime quién fue Tesla", no produce ningún resultado. Si en vez de eso pongo "Tesla dime quién es" sí me da el resultado. Es decir, si la palabra que está en la BBDD (Tesla) se pone al principio de la frase o en cualquier otro menos justo la última, da el resultado, pero si se pone al final de la frase, ¡¡no sale nada!! :shock:

¿Cosa más rara, no?

Creo que la clave está en

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $palabra(@palabras) { 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

. ¿¿ Habría que ponerle un contador +1 ??

SalU2.

Foro - Perl en Español

Desglosar cadena de palabras y asignarle una variable

Desglosar cadena de palabras y asignarle una variable

Publicidad

Re: Desglosar cadena de palabras y asignarle una variable

Re: Desglosar cadena de palabras y asignarle una variable

Re: Desglosar cadena de palabras y asignarle una variable

Re: Desglosar cadena de palabras y asignarle una variable

Re: Desglosar cadena de palabras y asignarle una variable

Re: Desglosar cadena de palabras y asignarle una variable

Re: Desglosar cadena de palabras y asignarle una variable

Re: Desglosar cadena de palabras y asignarle una variable

Re: Desglosar cadena de palabras y asignarle una variable

¿Quién está conectado?