• Publicidad

HTTP::Request

Aquí encontrarás todo lo que sea específicamente acerca de módulos de Perl. Ya sea que estás compartiendo tu módulo, un manual o simplemente tienes una duda acerca de alguno.

HTTP::Request

Notapor situ » 2010-02-07 20:04 @878

Tengo el siguiente script el cual verifica si encuentra en una web una palabra y si ésta se encuentra corta la búsqueda.

Mi idea ahora es que si la encuentra pare de buscarla y salte a una nueva función.

Para cortar uso "last". Mi idea es sacarlo y poner ahí el corte de la búsqueda y el salto a la nueva función.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. BEGIN {
  2.  
  3.     eval "use HTTP::Request";
  4.  
  5.     if ( $@ ) {
  6.  
  7.         warn  "Error to load module: HTTP::Request\n"
  8.  
  9.         . "Install Module:\n"      
  10.  
  11.         . "\t\tcpan\n"
  12.  
  13.         . "\t\tcpan> install HTTP::Request\n";
  14.  
  15. exit ();
  16.  
  17.  }
  18.  
  19. }
  20. use HTTP::Request;
  21. use LWP::UserAgent;
  22.  
  23. $host= "dominio.com";
  24. chomp $host;
  25.  
  26. open  $FILE, '<', "acceso.txt" or die $!;
  27. @archivos = <$FILE>;
  28. close $FILE;
  29.  
  30. $string= 'adm';
  31. chomp $string;
  32.  
  33. $ua = LWP::UserAgent->new();
  34. $ua->timeout(30);
  35.  
  36. for  $archivo(@archivos) {
  37.     chomp $archivo;
  38.  
  39.     $url = $host.$archivo;
  40.  
  41.     $req = HTTP::Request->new(GET=>$url);
  42.  
  43.     $response = $ua->request($req);
  44.  
  45.     if ($response->is_success) {
  46.         if ( $response->content =~ /$string/ ) {
  47.             print "$url\n";
  48.         }
  49.     }
  50. }
  51.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Última edición por explorer el 2010-02-08 05:03 @252, editado 2 veces en total
Razón: Ortografía, formateo del código
situ
Perlero nuevo
Perlero nuevo
 
Mensajes: 358
Registrado: 2007-04-09 01:44 @114

Publicidad

Volver a Módulos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado