Using perl Syntax Highlighting
my @matches = fgrep { /$query/ } glob('C:\AppServ\www\pdf\txt\*.txt');
if (@matches =~ /^T/ ){
print qq (<a class="style1">HOJAS TÉCNICAS</a><br/>\n);
}
else {
print qq (<a class="style1" align="center">HOJAS DE SEGURIDAD</a><br/>\n);
}
for my $f (@matches) {
if ($f->{count}) {
.......
if (@matches =~ /^T/ ){
print qq (<a class="style1">HOJAS TÉCNICAS</a><br/>\n);
}
else {
print qq (<a class="style1" align="center">HOJAS DE SEGURIDAD</a><br/>\n);
}
for my $f (@matches) {
if ($f->{count}) {
.......
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¡¡Agradezco de antemano su ayuda!!
¡¡Buen día!!