Foro - Perl en Español

por **Damian** » 2009-10-26 05:06 @254

Hola,

soy nuevo en Perl y quería comentaros un problema que no consigo solucionar a ver si me podéis echar una mano. Quiero hacer un CGI que sea capaz de recibir un mensaje XML que le llegue a través de un HTTP POST, y responda con un HTTP RESPONSE con otro mensaje XML diferente. Al intentarlo me he encontrado con 2 dificultades: por un lado no soy capaz de recibir bien el mensaje XML que me llega con el HTTP POST. Por otro lado, no he conseguido averiguar la forma de generar un HTTP RESPONSE.

El script de Perl con el que genero el HTTP POST es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

  # Create a user agent object
  use LWP::UserAgent;
  use strict;
  use HTTP::Request::Common;
  
  my $ua = LWP::UserAgent->new;
  $ua->agent("MyApp/0.1 ");
 
        #xml message
        my $message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
        <TollChargeExchangeMessage CreateRef=\"Info24\" MsgVer=\"2.2\" RegionalUnits=\"Metric\" TimeZone=\"UTC\">
        <msgId>1bdf48c5</msgId>
        <msgSender>
                <informationSenderID>2bdf48c5</informationSenderID>
        </msgSender>
        <msgExpiryTime>2010-04</msgExpiryTime>
        </TollChargeExchangeMessage>";
 
  # Create a request
  my $req = HTTP::Request->new(POST => 'direccion_script_perl');
 # $req->content_type('application/x-www-form-urlencoded');
  $req->content_type('text/xml');
  $req->content($message);
 
  # Pass request to the user agent and get a response back
  my $res = $ua->request($req);
 
  #Check the outcome of the response
  if ($res->is_success) {
      print $res->content;
      
  }
  else {
        print $res->as_string;
        print $res->status_line, "\n";
  }
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Y el script con el que intento recibir el mensaje XML (del HTTP POST) y contestar con otro mensaje XML (en el HTTP RESPONSE) es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI       qw(:standard  -debug);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use XML::TreePP;
use Data::Dumper;
 
print
   header,
   start_html('PRUEBA'),
   h1('PRUEBA'),
   hr,
   p('Welcome'),
   hr;
 
 
#######################################################################
###Comprobación del código y la contraseña############################
 
#!/usr/local/bin/perl -w
use CGI;             # load CGI routines
   
my $query = CGI->new;
my $senderID = $query->param('SenderID'); 
my $login = $query->param('Login'); 
 
if($senderID != 0000 ){
print p('senderID not correct');
#exit(0);
} 
 
if($login != 1111 ){
print p('Login not correct');
#exit(0);
} 
 
#print p($senderID);
#print p($login );
print end_html;
 
 
 
 
#########################################################################
## read XMl content######################################################
 
my $buffer; #inicializa contenedor
my %Variables; #inicializa el hash
 
#Lee el Standard input
my $tpp = XML::TreePP->new();
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
my $tree = $tpp->parse($buffer);
print p($tree->{msgId}); 
 
 
 
##########################################################################
#########Http response####################################################
 
# Create a User Agent object
 
my $ua = new LWP::UserAgent;
$ua->agent("arena/1.0");
 
my $response = HTTP::Response->new(200);
 
my $mes= "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<TollChargeExchangeMessage CreateRef=\"Info24\" MsgVer=\"2.2\" RegionalUnits=\"Metric\" TimeZone=\"UTC\">
<msgId>1bdf48c5</msgId>
<msgTimeStamp>2009-10</msgTimeStamp>
<msgSender>
        <informationSenderID>2bdf48c5</informationSenderID>
        <informationSenderName>Name of TSP</informationSenderName>      
</msgSender>
<msgExpiryTime>2010-04</msgExpiryTime>
</TollChargeExchangeMessage>";
 
$response->content($mes);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Lo que a mí me gustaría es poder imprimir por pantalla el dato <msgId> del mensaje XML del HTTP POST para comprobar que soy capaz de leer bien el mensaje XML. También me gustaría poder responder con un HTTP RESPONSE. Sé que no lo hago bien con las líneas que he puesto, pero no he encontrado la forma de hacerlo.

Si pudierais echarme una mano con ese par de cosas os lo agradecería mucho. Muchas gracias, y perdón por el rollo.

Un saludo.

Bienvenido a los foros de Perl en Español, Damian.

Parece que estás usando el protocolo CGI para hacer el intercambio de información.

Quizás en realidad lo que quieras es usar el protocolo SOAP. Para ello, hay varios módulos al respecto, como el SOAP::Lite. En estos foros hemos hablado alguna vez sobre este tema.

Se puede simplificar un poco el trabajo para realizar el intercambio de información mediante CGI.

Con este programa creamos la petición:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
 
my $mensaje = q'<?xml version="1.0" encoding="UTF-8"?>
<TollChargeExchangeMessage CreateRef="Info24" MsgVer="2.2" RegionalUnits="Metric" TimeZone="UTC">
    <msgId>1bdf48c5</msgId>
    <msgSender>
        <informationSenderID>2bdf48c5</informationSenderID>
    </msgSender>
    <msgExpiryTime>2010-04</msgExpiryTime>
</TollChargeExchangeMessage>';
 
my $ua = LWP::UserAgent->new;
 
my $req = POST 'http://correo.joaquinferrero.com/~explorer/cgi-bin/code_18887.pl',
            [ mensaje => $mensaje ];
 
print $ua->request($req)->as_string;
 
__END__
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

No hay que destacar mucho. Se ha sacado de la página de manual de lwpcook. Simplemente creamos el mensaje y hacemos la petición POST.

Y este es el programa que lee el mensaje, extrae y muestra la información.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use CGI       ':standard';
use CGI::Carp 'fatalsToBrowser';
 
if (my $mensaje = param('mensaje')) {
 
    (my $msgId) = $mensaje =~ m/<msgId>(.*?)</s;
 
    print
        header,
        start_html,
        p($msgId),
        end_html
        ;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Solo leemos el valor almacenado en el parámetro 'mensaje', extraemos el valor del msgId por medio de una expresión regular, y lo mostramos en un HTML sencillo.

por **Damian** » 2009-10-27 03:05 @170

Hola.

Muchas gracias por la ayuda. Sólo una pregunta: ¿es posible devolver con el módulo CGI un HTTP RESPONSE con un mensaje XML asociado? ¿O eso sólo puedo hacerlo con el módulo SOAP?

Gracias de nuevo.

Damián

por **explorer** » 2009-10-27 03:32 @189

Por defecto, head() devuelve una cabecera text/html, pero si quieres que sea un XML, basta con cambiarlo a

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    header('text/xml'),
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

para que se genere esa cabecera HTTP. Y luego, inmediatamente, sacas el contenido XML.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    "<msgid>$msgId</msgid>\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Damian** » 2009-10-27 04:28 @227

Hola de nuevo,

O sea, que podría valer sólo con esta línea de código para devolver el mensaje XML:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print header('text/xml'),"<msgid>$msgId</msgid>\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Lo he entendido bien?

Muchísimas gracias.

Foro - Perl en Español

Recibir un XML con HTTP POST y generar un HTTP RESPONSE

Recibir un XML con HTTP POST y generar un HTTP RESPONSE

Publicidad

Re: Recibir un XML con HTTP POST y generar un HTTP RESPONSE

Re: Recibir un XML con HTTP POST y generar un HTTP RESPONSE

Re: Recibir un XML con HTTP POST y generar un HTTP RESPONSE

Re: Recibir un XML con HTTP POST y generar un HTTP RESPONSE

¿Quién está conectado?