elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] Buscador de sueños 0.1
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] Buscador de sueños 0.1  (Leído 1,813 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] Buscador de sueños 0.1
« en: 4 Abril 2012, 18:25 pm »

Un simple buscador de sueños en Perl.

Código
  1. #!usr/bin/perl
  2. #Buscador de sueños 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6.  
  7. my $nave = LWP::UserAgent->new;
  8. $nave->agent(
  9. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  10. );
  11. $nave->timeout(5);
  12.  
  13. header();
  14.  
  15. print "\n[+] Palabra : ";
  16. chomp( my $string = <stdin> );
  17.  
  18. my $code =
  19.  toma( "http://www.mis-suenos.org/interpretaciones/buscar?text=" . $string );
  20.  
  21. if ( $code =~ /<li>(.*)<\/li>/ ) {
  22.    my $si = $1;
  23.    if ( $si eq " " ) {
  24.        print "\n\n[-] No se encontro\n";
  25.    }
  26.    else {
  27.        print "\n\n[+] Significado : $si\n";
  28.    }
  29. }
  30.  
  31. copyright();
  32.  
  33. sub header {
  34.    print "\n\n-- == Buscador de sueños == --\n\n";
  35. }
  36.  
  37. sub copyright {
  38.    print "\n\n(C) Doddy Hackman 2012\n\n";
  39.    <stdin>;
  40.    exit(1);
  41. }
  42.  
  43. sub toma {
  44.    return $nave->get( $_[0] )->content;
  45. }
  46.  
  47. #The End ?
  48.  


En línea

explorer

Desconectado Desconectado

Mensajes: 102


Analista/Programador Perl


Ver Perfil
Re: [Perl] Buscador de sueños 0.1
« Respuesta #1 en: 4 Abril 2012, 22:13 pm »

¡Buen aporte!

Esta es otra versión, un poco más corta...

Código
  1. #!/usr/bin/perl
  2. use Mojo::UserAgent;         # Nuestro agente
  3. use utf8::all;               # Las salidas y entradas serán en utf-8
  4.  
  5. $ua = Mojo::UserAgent->new(name => 'Mozilla/5.0', request_timeout => 5);
  6.  
  7. print "\n\n-- == Buscador de sueños == --\n\n";
  8. print '[+] Palabra : '; $_ = <>; chomp;
  9.  
  10. print $ua->get("http://www.mis-suenos.org/interpretaciones/buscar?text=$_")->res->dom("li")->first->text;
  11.  
  12. print "\n\n(C) Doddy Hackman 2012\n\n"; <>;
  13.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
La tarjeta de mis sueños :P
Materiales y equipos
Debci 9 4,339 Último mensaje 30 Diciembre 2009, 18:16 pm
por ebola_30
[Ruby] Buscador de sueños 0.1
Scripting
BigBear 2 2,215 Último mensaje 4 Abril 2012, 19:15 pm
por BigBear
[Python] Buscador de sueños 0.1
Scripting
BigBear 0 1,696 Último mensaje 4 Abril 2012, 18:24 pm
por BigBear
Sueños lúcidos.
Foro Libre
JonaLamper 2 1,978 Último mensaje 8 Junio 2014, 00:48 am
por Embusterillo de bolsillo
Los sueños húmedos del DNI electrónico
Noticias
wolfbcn 0 1,055 Último mensaje 21 Julio 2014, 21:35 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines