Buscador de sueños en Perl.

Un simple buscador de sueños en Perl.

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

0 comentarios: sobre Buscador de sueños en Perl.

Publicar un comentario para Buscador de sueños en Perl.

:a   :b   :c   :d   :e   :f   :g   :h   :i   :j   :k   :l   :m   :n   :o   :p   :q   :r   :s   :t

Suscribirse a: Enviar comentarios
Calculando Tiempo
Alienspace Theme © Copyright 2017 By Proxor
Mi Ping en TotalPing.com FeedBurner FeedBurner FeedBurner FeedBurner FeedBurner