Código
#!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(); my $code = toma( "http://www.mis-suenos.org/interpretaciones/buscar?text=" . $string ); if ( $code =~ /<li>(.*)<\/li>/ ) { my $si = $1; if ( $si eq " " ) { } else { } } copyright(); sub header { } sub copyright { <stdin>; } sub toma { } #The End ?