¿Puede ser por el cambio de versión? ¿Alguna otra idea?
Gracias de antemano
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use LWP::UserAgent;
use HTTP::Request;
//leer el parametro recibido
my $query=param(-name=>"peticion_xml");
my $url = 'url de destino';//ejemplo
my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(10);
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
my $response = $ua->request($req);
my $content = $response->content(); #contenido de la respuesta
print "Content-type: text/html\n\n";
print $content;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use LWP::UserAgent;
use HTTP::Request;
//leer el parametro recibido
my $query=param(-name=>"peticion_xml");
my $url = 'url de destino';//ejemplo
my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(10);
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
my $response = $ua->request($req);
my $content = $response->content(); #contenido de la respuesta
print "Content-type: text/html\n\n";
print $content;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4