Using perl Syntax Highlighting
#!C:\perl\bin\perl.exe -X
use File::Find;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $q = new CGI;
my @thefiles = $q->param("thefiles");
my @files = $q->param("files");
my @lines = $q->param("lines");
my $f = $q->param("f");
my $query = $q->param("query");
my $consulta = $q->param("consulta");
require "divs.pl";
#my $Mostrar= "";
if($consulta == '1'){
&Resultados;
}else{
&Principal;
}
sub Principal{
print <<eof;
<html><head><title>prueba archivos cgi</title></head><body>
<form action='Nuevo3.cgi' method='post'>
<input type='text' name='query' size='50'>
<input type='submit' name='Mostrar' value='Mostrar' >
<input type='hidden' name='consulta' size='2' value='1'>
</form>
</body></html>
eof
}
sub Resultados{
print <<eof;
<a href='Nuevo3.cgi'>Otra búsqueda</a><br>\n
<p>Para la búsqueda $query, estos resultados se encontraron:</p>
eof
my $dir = 'C:\AppServ\www\pdf';
opendir(IMD, $dir) || die("No se puede abrir el directorio");
@thefiles= readdir(IMD);
closedir(IMD);
@lines = "cd $dir; grep '$query' *.txt" ;
foreach $f (@thefiles)
{
unless ( ($f eq ".") || ($f eq "..") )
{
print "$f<br />";
}
}
}
use File::Find;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $q = new CGI;
my @thefiles = $q->param("thefiles");
my @files = $q->param("files");
my @lines = $q->param("lines");
my $f = $q->param("f");
my $query = $q->param("query");
my $consulta = $q->param("consulta");
require "divs.pl";
#my $Mostrar= "";
if($consulta == '1'){
&Resultados;
}else{
&Principal;
}
sub Principal{
print <<eof;
<html><head><title>prueba archivos cgi</title></head><body>
<form action='Nuevo3.cgi' method='post'>
<input type='text' name='query' size='50'>
<input type='submit' name='Mostrar' value='Mostrar' >
<input type='hidden' name='consulta' size='2' value='1'>
</form>
</body></html>
eof
}
sub Resultados{
print <<eof;
<a href='Nuevo3.cgi'>Otra búsqueda</a><br>\n
<p>Para la búsqueda $query, estos resultados se encontraron:</p>
eof
my $dir = 'C:\AppServ\www\pdf';
opendir(IMD, $dir) || die("No se puede abrir el directorio");
@thefiles= readdir(IMD);
closedir(IMD);
@lines = "cd $dir; grep '$query' *.txt" ;
foreach $f (@thefiles)
{
unless ( ($f eq ".") || ($f eq "..") )
{
print "$f<br />";
}
}
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Aquí en la parte de resultados sí me manda el valor de $query, pero me está mostrando todos los archivos dentro de esa carpeta, no el que está en el valor de $query. No sé si la línea donde hace el grep está bien o no.
¡¡Gracias por el apoyo de antemano!!
Tania