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.004 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!!
