[Perl] Buscador de sueños 0.1

  • 0 Respuestas
  • 1613 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Buscador de sueños 0.1

  • en: Abril 04, 2012, 01:36:55 pm
Un simple buscador de sueños en Perl.

Código: Perl
  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<ul class="bbc_list"><li type="square"> Palabra : ";[/li][/list]
  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</li><li type="square"> Significado : $si\n";[/li][/list]
  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.  
« Última modificación: Marzo 14, 2015, 10:18:30 am por Expermicid »

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 5330
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 3472
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 3014
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 2560
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 2598
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX