Hola:
Lo que se me ocurre es que tengas una problema en la ruta y no encuentre ningún archivo. Intenta con palabras que sepa existen dentro del algún archivo e intenta de nuevo.
SALUDOS
return unless($_ =~ /\.html/i);
return unless($_ =~ /\.htm(l)?/i);
#!perl -w
use strict;
use File::Find;
use CGI qw(:standard);
my $query = param("query");
#VARS DE CONFIGURACIÓN
#LUGAR DONDE QUIERES BUSCAR. NO USES EL / FINAL
my $root_dir = '/home/user/public_html';
#URL DEL DIRECTORIO QUE VAS A BUSCAR. SIN EL / FINAL
my $url_dir = 'http://misitio.com';
print header();
print start_html();
print "\n<p>Para la búsqueda $query, estos resultados se encontraron:</p>\n<ol>\n";
undef $/;
find( sub {
return if($_ =~ /^\./);
return unless($_ =~ /\.htm(l)?/i);
stat $File::Find::name;
return if -d;
return unless -r;
open(FILE, "< $File::Find::name") or return;
my $string = <FILE>;
close (FILE);
return unless ($string =~ /\Q$query\E/i);
my $page_title = $_;
if ($string =~ /<title>(.*?)<\/title>/is){
$page_title = $1;
}
my $int_dir = $File::Find::dir;
$int_dir =~ s/$root_dir//i;
my $url = $url_dir . $int_dir . "/" . $_;
print "<li><a href=\"$url\">$page_title</a></li>\n";
}, $root_dir);
print "</ol>\n";
print end_html();
exit(1);
Juniors escribiste:amigos tengo un problema el buscador no busca nada no se que pasa pero lo hize todo y sale estos son la busdas y nada mas mi URL es http://www.ashton.yuukis.com ayudaneme ps lo necesito sy gracias por el Scripts
Pepe escribiste:Hola:
Ya pude hacerlo funcionar, ahora tengo dos dudas:
1.- Cómo cambio el formato del texto, digamos que ponerle tamaño y fuente.
2.- Cómo hago para que los resultados los muestre en una ventana nueva o en algún otro frame
LI{
color:blue;
font-size:9pt;
}
print "<li><a href="$url">$page_title</a></li>\n";
print "<li><a href="$url" target="_blank">$page_title</a></li>\n";
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados