Ver Mensaje Individual
  #18 (permalink)  
Antiguo 12/03/2011, 18:29
marcoamoncada
 
Fecha de Ingreso: octubre-2008
Ubicación: Estado de Mexico
Mensajes: 25
Antigüedad: 9 años, 10 meses
Puntos: 0
De acuerdo Respuesta: hay forma de ver el codigo fuente en batch

#!/usr/bin/perl
require 5.005;

use LWP::UserAgent;#Con este modulo indicamos nuestro user agent
use HTTP::Response;#Con este obtenemos la respuesta de la pagina
use LWP::Simple;
use URI::Escape;

my $ua = new LWP::UserAgent;#Le agregamos el objecto User Agent a la variable
$ua->agent('Mozilla/5.0 (X11; U; Linux i686; es-ES; rv:1.9.2.2pre) '.
'Gecko/20100308 Ubuntu/9.10 (karmic) Namoroka/3.6.2pre');#Indicamos el user agent

my $url = "http://www.elhacker.net";
my $peticion = new HTTP::Request GET => $url;#Hacemos la peticion GET
my $response = $ua->request($peticion);
my $respuesta = get( $url );

if($response->is_success){#Si la web esta On devuelve true, y con el if indicamos si
#existe $response->is_success y como true es igual a 1
#El if se cumple y se ejecuta lo que esta dentro
#Si la web esta Off el if no se ejecuta porque devuelve false
print "La web esta online\n";
print $respuesta, "\n";#la pagina
print $response->status_line, "\n";#El estatu de la web...
exit;#Finalizamos el script
}else{print "La web esta off\n";exit;}
+

esto es similar a la que yo buscaba

gracias por sus respuestas