Foro - Perl en Español

por **Unix_Sendin** » 2006-02-19 17:23 @766

Hola, ¿qué tal? Tengo un simple problema. Aquí se lo pongo. Uso Win32 :wink:

Lo tengo en mi PC: http://localhost/buscador/index.html

Esto lo que tengo en el index.html.

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<HTML>
<HEAD>
<TITLE> Buscador CGI </TITLE>
</HEAD>
 
<BODY>
 
<form action="http://localhost/cgi-bin/buscador.cgi" method="post">
<input type="text" name="query" size="50">
<input type="submit">
</form>
 
</BODY>
</HTML>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El buscador lo tengo aquí.

http://localhost/cgi-bin/buscador.cgi

Aquí tengo el código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\perl\bin\perl.exe -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 = '/buscador/index_html';
 
#URL DEL DIRECTORIO QUE VAS A BUSCAR. SIN EL / FINAL
my $url_dir = 'http://localhost';
 
 
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);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Bueno el error es este:

Can't stat /buscador/index_html: No such file or directory\n

Ni tengo idea qué error es ese :?:

Saludos a todos.

$root_dir es el CAMINO, dentro del DocumentRoot de tu sitio web, en que se encuentran los ficheros que quieres que el buscador busque.

Has puesto que busque en /buscador/index.html, que es un fichero. Y además, no existe, por eso te da el fallo.

Debes colocar todos los ficheros en los que quiere que busque allí, bajo el subdirectorio buscador/, y además, este directorio debe colgar del raíz del directorio del servidor web.

por **Unix_Sendin** » 2006-02-20 08:56 @413

Gracias

Foro - Perl en Español

Problema con el buscador

Problema con el buscador

Publicidad

Re: Problema con el buscador

¿Quién está conectado?