Hola, buenas tardes. Bueno, el problema que estoy teniendo con mi programa es que no está haciendo las búsquedas bien. No habíamos tenido problemas, pero ahora ya no hace bien la búsqueda, no arroja los resultados que debería.
Ya busqué algo de información del
grep por la sintaxis, pero al parecer está bien la sintaxis
.
El código es el siguiente:
Using perl Syntax Highlighting
my @matches = fgrep
{ /$query/ } glob('/home/httpd/mexico/techserv/txt/*.txt');
for my $f (@matches) { (en esta sección si
le pongo un
print a
$f me muestra los resultados
, pero me manda todo lo que hay
, no lo que se puso en la variable
$query)
if ($f->{count
}) { (despué
s de esta sección ya
no muestra absolutamente nada
, y si hay información
) <img src
="http://perlenespanol.com/foro/images/smilies/icon_confused.gif" alt
=":?" title
="Confused" />
my $busfinal = $f->{filename
};
$busfinal =~ /([^\/\/]+)\.txt/;
$busfinal = "$1.pdf";
# print "<tr><td><img src='/mexico/imagenes/pdf_conv.gif'>\n";
print qq(<tr><td><img src
='/mexico/imagenes/pdf_conv.gif'><a href
="$url/$busfinal" class
="style2">$busfinal</a
></td
>\n);
my $primera_letra = substr ($busfinal, 0
, 1
);
if ($primera_letra eq 'S'){
print qq (<td><a class
="style2">Hojas de Seguridad
</a
></td
></tr
>\n);
}else {
print qq (<td><a class
="style2">Hojas Técnicas
</a
></td
></tr
>\n);
}
}
}Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
No sé qué pueda ser, porque ya le he intentado eso y no veo por dónde más buscarle, lo más raro es que funcionaba bien y no sé qué es lo que pudo estropearlo.
¡Gracias de antemano por la ayuda!
Saludos