Foro - Perl en Español

por **situ** » 2010-08-01 21:48 @950

Estimados,
Los molesto porque quiero tratar de obtener los métodos soportados por un servidor web, pero no sé cómo hacerlo con Perl.

Desde una línea de comandos hago:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

telnet perlenespanol.com 80

Trying 67.222.152.26...

Connected to perlenespanol.com.

Escape character is '^]'.

OPTIONS / HTTP/1.1

Host: perlenespanol.comColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Obtengo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

HTTP/1.1 200 OK

Date: Mon, 02 Aug 2010 02:45:58 GMT

Server: Apache/2.0.63 (Unix) mod_ssl/2.0.63 OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4 FrontPage/5.0.2.2635

Allow: GET,HEAD,POST,OPTIONS,TRACE

Content-Length: 0

Content-Type: text/htmlColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Como verán me muestra los métodos soportados: GET,HEAD,POST,OPTIONS,TRACE
¿Cómo puedo hacer esto con Perl, sin usar "IO::Socket::INET"?

Muchas Gracias.

use LWP::UserAgent;
 
my $url = (@ARGV ? shift @ARGV : 'http://www.perlenespanol.com');
 
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(OPTIONS => $url);
my $res = $ua->request($req);
 
if ($res->is_success) {
    print "Methods: ", $res->header('Allow'), "\n";
}
else {
    print $res->status_line, "\n";
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **situ** » 2010-08-02 07:36 @358

Muchísimas Gracias.

Foro - Perl en Español

Obtener métodos HTTP

Obtener métodos HTTP

Publicidad

Re: Obtener metodos HTTP

Re: Obtener métodos HTTP

¿Quién está conectado?