Ver Tema

zeit009 · 2011-03-30 12:20 @556

¡Buenas!

He empezado a trabajar hace poco con Perl, CGI, etc... y ando un poco perdido.

Mi problema es el siguiente: he creado un pequeño formulario para que la gente introduzca un texto, y dicho texto lo quiero traducir llamando a un programa de Perl que lo tengo guardado en /lib/cgi-bin/ que se conecta a Google y utilizando las API de Google Translate me devuelva el resultado.

El formulario es el siguiente (sencillito) y lo tengo guardado en var/www:

Syntax: [ Download ] [ Hide ]

Using html4strict Syntax Highlighting

<FORM method=post action="cgi-bin/ApiPerl.pl">
Traductor WEB
<TABLE BORDER=0>
<TR>
        <TD>Introduzca texto a traducir</TD>
        <TD>
        <TEXTAREA rows="3" input name="textointroducido">
        </TEXTAREA>
 
        </TD>
</TR>
 
<TR>
        <TD COLSPAN=2>
        <INPUT name="traducir" type="submit" value="traducir">
        </TD>
</TR>
</TABLE>
</FORM>

El programa Perl al que se llama es el siguiente:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use REST::Client;
use JSON;
use HTML::Entities qw(decode_entities);
 
 
while (1)
{
    print "Please enter English word: ";
    chop ( $_ = <STDIN>);
   
    my $client = REST::Client->new();
    $client->GET("https://www.googleapis.com/language/translate/v2?key=AIzaSyACJybEm6lyelnYHZzXfydtk-V6-Uz48bQ&en&target=fr&q=$_");
    $response = $client->responseContent();
 
    $json_text = from_json( $response );
 
    foreach my $french(@{$json_text->{data}->{translations}})
    {
        my %ep_hash = ();
        $ep_hash{translatedText} = "Translated to French: $french->{translatedText}";
 
        # print french
        while (my($key, $value) = each (%ep_hash))
        {
            print decode_entities($value);
        }
    }
    print "\n";
}

Pero este programa está diseñado para que el texto se introduzca por la entrada estándar y yo lo quiero es que coja el texto introducido por el usuario, es decir, utilizando algo parecido a esto:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use strict;
use CGI;
 
my $form = new CGI;
my $txt = $form ->param('textointroducido');

en donde se guarda el texto introducido por el usuario en el Formulario en $txt.

Por lo tanto, el texto lo obtengo bien con el método POST, pero ¿alguien sabe cómo puedo integrar lo que quiero hacer en el código Perl para que haga la llamada a Google con el texto obtenido? ¿O si hay una manera más fácil de hacer lo que quiero hacer?

Bueno, a ver si alguien me puede echar una mano.
¡Muchas gracias!
Un saludo.

explorer · 2011-03-30 12:34 @565

Bienvenido a los foros de Perl en español, zeit009.

Debes convertir tu programa a un CGI. Si usas el módulo CGI tendrás la mayor parte del trabajo realizado.

Los pasos que hay que dar, dentro de un CGI, en Perl, son:

* Crear el objeto CGI
* Leer los argumentos pasados por el formulario, usando param()
* Procesos esos argumentos
* Crear la salida, en formato texto o HTML, de respuesta, hacia el usuario.

La primera parte ya las mostrado tu, creando el objeto y leyendo el argumento textointroducido. Ahora solo te queda pasar el $txt a la llamada a Google Translate. Por lo que se ve en el código, se trataría de meterlo en la línea 14, pero no es tan sencillo como eso.

Primero tienes que codificar el $txt para que se pueda integrar dentro del URL. Eso lo puedes hacer con las funciones del módulo URI::Encode.

Luego, haces la llamada a Google Translate, obtienes la respuesta, y usando las funciones de creación de etiquetas HTML de CGI, puedes crear la respuesta hacia el usuario.

En estos foros, en la sección Tutoriales tienes las bases de creación de los CGI. En el mensaje CGI mínimo tienes un ejemplo de respuesta con marcas HTML.

Esta no es, desde luego, la única manera de responder al usuario. Sí una de las más simples.

zeit009 · 2011-03-31 05:24 @266

¡Buenas explorer!
Muchas gracias por tu respuesta y la rapidez. Pero ahora me ha surgido otras dudas

He estado mirando lo de codificar mi variable $txt pero no me queda claro...

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

  $uri->encode("http://perl.com/foo bar");      # http://perl.com/foo%20bar

  $uri->encode("http://perl.com/foo bar", 1);   # http%3A%2F%2Fperl.com%2Ffoo%20bar

Viendo esto no me queda muy claro... ¿cómo tengo que hacer la llamada? Y si la respuesta a esa llamada me la guarda en una variable, por ejemplo, $uritxt ¿cómo introduzco esto en la llamada a la API de Google? ¿Se pone el $uritxt en la URL?

El formato de la respuesta que he hecho es este (sencillito):

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print $form ->header;

print "<b> $respuesta </b>\n";

Bueno, a ver si me podéis echar una mano.

¡Gracias!
¡Un saludo!

explorer · 2011-03-31 07:11 @341

La llamada es igual a como lo tienes en el programa a partir de la línea 13, pero cambiando $_ por la variable que contiene el texto codificado.

explorer · 2011-03-31 15:12 @675

Sería algo así (no probado):

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use CGI ':standard';
use REST::Client;
use JSON;
use HTML::Entities qw(decode_entities);
use URI::Encode;
 
my $form = new CGI;
my $uri = URI::Encode->new();
my $txt = $form->param('textointroducido');
$txt    = $uri->encode( $txt, 1);
 
my $client = REST::Client->new();
$client->GET("https://www.googleapis.com/language/translate/v2?key=AIzaSyACJybEm6lyelnYHZzXfydtk-V6-Uz48bQ&en&target=fr&q=$txt");
$response = $client->responseContent();
$json_text = from_json( $response );
 
print $form->header;
print $form->start_html;
 
for my $french(@{$json_text->{data}->{translations}}) {
    my %ep_hash = ();
    $ep_hash{translatedText} = "Translated to French: $french->{translatedText}";
 
    # print french
    while (my($key, $value) = each (%ep_hash)) {
        print $form->p(decode_entities($value));
    }
}
 
print $form->end_html;

Creo que se ve la intención:
* Lees el parámetro pasado por el usuario en el formulario
* Hacemos la codificación tipo uri
* Luego lo mandas a Google Translate
* Comienzas a crear la respuesta hacia el usuario, enviando el header() y el start_html
* Mandas la traducción en forma de párrafos
* Fin del html con end_html.

zeit009 · 2011-04-02 13:54 @621

Ya he conseguido que funcione el programa.

El código que has puesto es correcto, lo único que he tenido que quitar es "use strict". También me he tenido que bajar varios paquetes para que me funcionara (URI,...)

Muchas gracias explorer, me ha sido de gran utilidad tu ayuda.

¡Hasta la próxima!

Publicidad

Socializa