Foro - Perl en Español

Publicado: **2014-11-05 12:30 @563**

Un cordial saludo.

Alguien que me pueda orientar sobre cómo desarrollar un servicio web en Perl, haciendo uso de Apache. Estuve indagando y lo más cercano que encontré a lo que quiero hacer es algo como esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use JSON;
use Data::Dumper;
 
$json = '{"nombre":"jero2528","ip":"200.1.223.58","interfaz":"GigabitEthernet1","serviceid":99998,"accion":"cancelar"}';
 
$text = decode_json($json);
print  Dumper($text);
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Básicamente quiero recibir como parámetro el JSON indicado anteriormente, pero no sé cómo hacer para guardar por ejemplo este .pl y que sea accesible desde la web. Mi idea es usar una función que reciba como parámetro el JSON, pero no logro entender cómo hacer que desde un cliente.pl le pueda enviar el JSON como parámetro y ese servicio web me lo reciba y haga ciertas tareas como cancelar, reactivar y suspender servicios. ¿Cómo lo publico en el servidor Apache? Estoy usando XAMPP, Strawberry en Windows 7 y trabajo desde mi máquina de forma local, pero no sé cómo hacer para simular lo indicado.

Perdón si me extendí mucho, espero me puedan ayudar

Saludos,

Jero2528

Publicado: **2014-11-05 14:38 @651**

La forma más sencilla es que coloques el programa en la carpeta cgi-bin/ del Apache. De esa manera, el diálogo entre Apache y este programa seguirá el protocolo CGI.

Usa el sistema de búsqueda de este foro, hay muchas referencias a lo que es un CGI y a cómo hacerlo desde Perl. Y varios CGI completos. Por ejemplo: la configuración CGI para el Apache (el XAMPP suele hacer estos pasos por ti, por lo que solo tienes que colocar el programa en la carpeta adecuada). Y luego lo ejecutas con http://localhost/cgi-bin/programa.pl

El servidor web debe estar preparado para entender que cuando el usuario solicita acceso al programa, lo debe ejecutar, y esperar una salida, que será lo que finalmente envíe al usuario.

Puedes hacer pruebas con mi CGI mínimo. En tu caso, lo que quieres entregar es un JSON, por lo que la cabecera HTTP deberá ser application/json en lugar de la tradicional text/html.

Publicado: **2014-11-05 15:11 @674**

Gracias, explorer.

Me sirvió bastante. Ahora tengo una duda: ¿cómo haces para pasar los parámetros?
En realidad ahora no sé cómo hacer para pasarle un parámetro al CGI mínimo.pl

¿Funciona capturarlo con shift()?

Basado en tu ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Aquí sacamos la lista de los parámetros
# en caso de que le haya sido pasado alguno
my @parametros = param();
foreach my $par ( @parametros ) {
        print p($par);
        print blockquote(param( $par ));
}
 
print end_html;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿De qué manera puede entender como parámetro un JSON completo?

Publicado: **2014-11-06 03:13 @176**

Los parámetros se pueden pasar en el URL:

http://localhost/cgi-bin/programa.pl?pa ... ar3=valor3

Esto es para cuando en el formulario que lanza esta petición tiene definido el método GET. Si el formulario tiene el método POST entonces el cliente HTML formatea los parámetros y los pasa en el cuerpo de la petición, que llega al programa por la entrada estándar.

De todas maneras, en el programa no hay que hacer ninguna modificación: tanto si llegan por GET o por POST, el módulo CGI se encarga de sacarlos para que luego sea fácil sacarlos con param().

Un JSON es un trozo de código en formato JavaScript, pero sigue siendo texto, así que lo recibiremos tal cual se envió.

Publicado: **2014-11-06 08:51 @410**

Gracias nuevamente, explorer.

Me ha funcionado perfectamente para lo que requería, muchísimas gracias por tu ayuda, ahora pido consejos donde pueda aprender más sobre la sintaxis que usan en el print con HTML:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print
    header,
    start_html('CGI MINIMO'),
    h1('CGI MINIMO'),
    hr,
    p('Si ves este texto es que S&Iacute; est&aacute; funcionando bien.'),
    hr;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Hasta ahora me entero que se puede trabajar de esa forma, agradezco la información al respecto

Publicado: **2014-11-06 16:33 @731**

Están descritas en el manual de módulo CGI. En tu propio ordenador, con perldoc CGI

Publicado: **2014-11-11 09:34 @440**

Muchas gracias, explorer.

Estuve revisando y realicé lo que quería en mi máquina local usando Strawberry y lo demás que indiqué antes. Ahora tengo problemas en el servidor, ya que por alguna extraña razón me genera un error que desde mi máquina no ocurre. El servidor es un Centos 6. Este es el error. Eso sí: inicializo la variable $text haciendo uso de

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $text=...
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Type of arg 1 to each must be hash (not private variable) at /var/www/cgi-bin/webService.pl line 68, near "$text)"

Execution of /var/www/cgi-bin/webService.pl aborted due to compilation errors.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y esto si no le pongo el my:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Type of arg 1 to each must be hash (not scalar dereference) at /var/www/cgi-bin/wsDactoolAdmin.pl line 68, near "$text)"

Execution of /var/www/cgi-bin/wsDactoolAdmin.pl aborted due to compilation errors.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El código que estoy usando en el servicio web:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
#####################################################################################
# Noviembre 2014
# Descripcion: Web Service para realizar Cancelacion, Suspension y Reactivación de
# Servicios.
#####################################################################################
 
print "Content-type: application/json\n\n";
use CGI qw(:standard      );
use CGI::Carp qw( fatalsToBrowser );
use JSON;
use Data::Dumper;
use Digest::MD5 qw(md5 md5_hex md5_base64);
 
########################################################################
## Se puede recibir tanto parámetros enviados a través del método GET,
## como parámetros a través del método POST.
########################################################################
 
my $json         = "";
my $securityCode = "xxx123456721";
 
#$json = '{"nombre":"Server1","ip":"190.168.11.22","interfaz":"GigabitEthernet1/0.1","serviceid":95198,"accion":"cancelar"}';
 
## Valido desde cual IP quieren Consumir el Servicio. Si no esta dentro de las aceptadas se retorna mensaje de error. ##
$remote_host = remote_addr();
&manInTheMiddle($remote_host);
 
####################################################################################################
sub requestParameters {
 
    # Aquí sacamos la lista de los parámetros
    # en caso de que le haya sido pasado alguno
    my @params = param();
    foreach my $par (@params) {
 
        #print p($par);
        #print blockquote(param( $par ));
        $json .= param($par);
    }
    &JsonParser($json);
 
    #print "my Parameter: $json\n\n";
}
 
sub JsonParser {
    my $jsonr = shift;
    my $hash  = "";
    my ( $hashDos, $serviceID, $interfaz, $ip, $name, $action ) = "";
    my $encrpass = "";
    $hash .= $securityCode;
 
    $text = decode_json($jsonr);
 
    #print "\n\nDecodificado:\n\n";
    #print  Dumper($text);
    while ( ( $key, $value ) = each($text) ) {
 
        #print $key."-".$value."\n";
        unless ( $key =~ /(hash)/is ) {
            $hash .= $value;
        }
        if ( $key eq 'serviceID' ) {
            $serviceID = $value;
        }
        elsif ( $key eq 'interfaz' ) {
            $interfaz = $value;
        }
        elsif ( $key eq 'ip' ) {
            $ip = $value;
        }
        elsif ( $key eq 'name' ) {
            $name = $value;
        }
        elsif ( $key eq 'action' ) {
            $action = $value;
        }
        elsif ( $key eq 'hash' ) {
            $hashDos = $value;
        }
    }
 
    #print "Hash Decoded-->$hash\n\n";
    $encrpass = md5_hex($hash);
    print "HashQ -->$hashDos - $encrpass <--- HashWs\n\n";
    if ( $hashDos != $encrpass ) {
        print "Man in the Middle\n\n";
    }
    else {
        print "action= $action\n\n";
        if ( $action eq 'cancel' ) {
            &CancelService( $serviceID, $name, $ip, $interfaz );
        }
        elsif ( $action eq 'reactivate' ) {
            &ReactivateService( $serviceID, $name, $ip, $interfaz );
        }
        elsif ( $action eq 'suspend' ) {
            &SuspendService( $serviceID, $name, $ip, $interfaz );
        }
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Ese código funciona sin problema en mi máquina, pero no en el servidor. Por favor, ¿me indican cómo puedo hacer para resolverlo? ¿O de qué manera podría hacerlo? Quise usar el switch pero no me funcionaba en mi máquina, ya en el servidor está con (use Switch) para el manejo de los valores del JSON. Agradezco de antemano la ayuda que me puedan prestar

Publicado: **2014-11-11 10:14 @468**

En la línea 53 tienes esto:

while (($key, $value) = each($text)) {

La función each() solo se aplica a un hash (y a un array, en las últimas versiones de Perl). Y lo que tienes es un escalar.

Eso es justo lo que dice el mensaje de error: "El tipo del argumento 1 a each() debe ser un hash (no una variable privada)".

Edito: solo en las versiones de Perl a partir de 5.14 se puede pasar a each() una referencia a un hash, que es justo lo que $text contiene al recibir la decodificación del JSON. Así que lo que te pasa es que tienes distintas versiones de Perl en la máquina local y en el servidor.

Puedes solventarlo desreferenciando el hash:

while (($key, $value) = each %$text) {

Edito: La línea

print "Content-type: application/json\n\n";

queda mejor si en el primer print del programa lo pones así:

print header('application/json');

(Curiosamente, esta línea sale al principio del manual de CGI)

Publicado: **2014-11-11 10:56 @497**

¡¡¡Perfecto!!! Muchas gracias, explorer, por toda la ayuda que me has brindado

Publicado: **2020-05-26 11:49 @534**

Hola, explorer. ¿Se puede agregar algún tipo de seguridad, como un token, cuando se haga el llamado al servicio?

Foro - Perl en Español

Creación de un servicio web usando JSON

Creación de un servicio web usando JSON

Re: Creación de un servicio web usando JSON

Re: Creación de un servicio web usando JSON

Re: Creación de un servicio web usando JSON

Re: Creación de un servicio web usando JSON

Re: Creación de un servicio web usando JSON

Re: Creación de un servicio web usando JSON

Re: Creación de un servicio web usando JSON

Re: Creación de un servicio web usando JSON

Re: Creación de un servicio web usando JSON