El código es el siguiente
Using perl Syntax Highlighting
#!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[+] Palabra : ";
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 encontró\n";
} else {
print "\n\n[+] Significado : $si\n";
}}
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 ?
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
El ejemplo es este
Using text Syntax Highlighting
-- == Buscador de sue±os == --
[+] Palabra : ayuda
[+] Significado : So├▒ar que presta ayuda a alguien, significa que los esfuerzo
que haga en la vida le llevar├ín a alcanzar una alta posici├│n social y ec├│n├
mica.
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
¿Qué son y cómo puedo borrar estos caracteres raros en el resultado ?
pd: Ya intenté con HTML::Entities, y nada.
