No se nada de Perl, el recorrido del fichero se hace carácter a carácter y se utilizan if para evaluar el carácter tipo
Using perl Syntax Highlighting
if ($fich[$x] =~ EXPRESIÓN REGULAR) {
print B "ERROR TIPO /\*/:\t $fich[$x]\n";
$fich[$x] =~ s/\*/\/g;
}
print B "ERROR TIPO /\*/:\t $fich[$x]\n";
$fich[$x] =~ s/\*/\/g;
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Se supone que donde he puesto va el carácter a buscar, me ayudaríais mucho si me dijeseis como puedo escribir este if para que busque * y los reemplace por nada.
¡Gracias!