Foro - Perl en Español

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

Hola:

Se me ocurre la solución, cambia la parte que dice:

Código: Seleccionar todo

return unless($_ =~ /\.html/i);

por

Código: Seleccionar todo

return unless($_ =~ /\.htm(l)?/i);

Lo que suecede es que en la manera en la que está ahorita, solamente busca archivos .html, con este cambio va a buscar tanto archivos .html como los que son .htm.


SALUDOS

Hola:

Ya ví cual es el problema. Corregí el código, y así es como queda:

Código: Seleccionar todo

#!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);


Lo que tienes que cambiar son las dos variables de configuración.

$root_dir - Aquí debes de poner la ruta al directorio que quieres buscar. Debes de checar que no pongas el / final.

$url_dir - El URL al directorio que vas a buscar. De igual manera no debes de poner el / final.



SALUDOS

En base al problema expuesto aquí, he actualizado el tutorial con las correcciones necesarias:

http://perlenespanol.com/archives-tut/000138.html


SALUDOS

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

Intente probarlo pero parece que el CGI no existe, estás seguro es que la ruta correcta?

También checa que hayas hecho el upload del archivo como tipo ASCII y que los permisos estén en 755.


SALUDOS

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

Para cambiar el formato todo lo que tienes que hacer es poner un CSS y en el puedes cambiar el estilo de los list items li, por ejemplo:

Código: Seleccionar todo

LI{
color:blue;
font-size:9pt;
}


Para lo otro busca la línea que dice:

Código: Seleccionar todo

print "<li><a href="$url">$page_title</a></li>\n";

Y cambiala por:

Código: Seleccionar todo

print "<li><a href="$url" target="_blank">$page_title</a></li>\n";

SALUDOS

¿Quiéres que el CGI ejecute en una nueva página o qué los links abran en una nueva página?


SALUDOS