Tengo el sitio alojado en linux, y les agradecería que me ayudaran y si sirve para ustedes biencvenido sea, ya que me he cansado de leer post con las mismas dudas que yo. y lo peor sin encontrar soluciones.
Este sería el formulario.
Código:
Ahora bien 1º, el tutorial dice que: "Nuestra primera línea como siempre es la ruta de nuestro perl. Si nos sabes cual es la ruta de tu perl, te recomiendo que contactes con tu administrador para que te diga cual es."<form action="/cgi-bin/buscador.cgi" method="post"> <input type="text" name="query" size="50"> <input type="submit"> </form>
Que realmente debemos pedirle a nuestro proveedor?
2º "Después, necesitamos cargar los módulos y pragmas que vamos a usar. En este caso vamos a habilitar los "warnings" en perl y usar el pragma strict. De esta manera nos forzamos a crear código limpio y seguro. Y finalmente cargamos el módulo CGI. Entonces por el momento tenemos algo así:"
#!perl -w
use strict;
use CGI qw(:standard);
¿Donde hacemos esto?
y este sería el script final:
Código:
a esto lo guardamos como buscador.cgi? en un archivo sin etiquetas html?#!perl -w
use strict;
use File::Find;
use CGI qw(:standard);
my $query = param("query");
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($_ =~ /\.html/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;
}
print "<li><a href=\"$File::Find::name\">$page_title</a></li>\n";
},
'/home/username/public_html');
print "</ol>\n";
print end_html();
y lo subo a que carpeta? a la public_html?
y las BD como deberían ser? si es que necesito base de datos claro.
en fin como veran el uso de dw trae estas malas costumbres, uno se acustumbra más a dibujar páginas que a programarlas.
