Using perl Syntax Highlighting
my @matches = fgrep { /$query/ } glob('/home/httpd/mexico/techserv/txt/*.txt');
for my $f (@matches) {
if ($f->{count}) {
my $busfinal = $f->{filename};
$busfinal =~ /([^\/®\/]+)\.txt/;
$busfinal = "$1.pdf";
print "<img src='/mexico/imagenes/pdf_conv.gif'>\n";
print qq(<a href="$url/$busfinal" class="style2">$busfinal</a><br/>\n);
}
}
for my $f (@matches) {
if ($f->{count}) {
my $busfinal = $f->{filename};
$busfinal =~ /([^\/®\/]+)\.txt/;
$busfinal = "$1.pdf";
print "<img src='/mexico/imagenes/pdf_conv.gif'>\n";
print qq(<a href="$url/$busfinal" class="style2">$busfinal</a><br/>\n);
}
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Tratando de quitar el mayor número de caracteres especiales, pero no me hace caso, sigue haciendo lo mismo También me gustaría agregar que no aceptara &, $, #, % y el doble espacio.
¡¡Gracias de antemano!!