bartoldo escribiste:Sin embargo, el contenido de otras variables si puedo ponerlo entre " ", son detalles, pero para quienes comenzamos no están en ningun tutorial, sino en la experiencia por las macanas.
Lo he entendido. Lo que quieres es meter expresiones regulares en variables.
Una forma de hacerlo es con el operador
qrUsing perl Syntax Highlighting
$patron = qr{(\s*[a-z]\w*\s*)((,\s*[a-z]\w*\s*|)*)};
if ( $linea =~ /$patron/ ) { ... }
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
pero tal como lo haces también es válido.
bartoldo escribiste:Ahora por ejemplo tengo que buscar algo del tipo \cite{ cita cualquiera}
Si lo que va entre corchetes no tiene corchetes, se podría seleccionar la cita de esa manera:
Using perl Syntax Highlighting
$linea =~ /\\cite\{(.+?)\}/;
print $1;
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
bartoldo escribiste:Por otra parte debo reconocer cosas del tipo
\begin{figure}
............
label\{nombreFigura}
.................
\end{figure} y sustituirlo.
¡Anda!. ¡Si parece rtf! ¿O es Latex?
bartoldo escribiste:s/\\begin\{figure\}.*\\label\{(\s*\w+\s*)\}\\end\{figure\}/Figura: $1/gsm; no me está funcionando, ni esto:
s/\\begin\{figure\}(\s*\w+\s*)\\end\{figure\}/Figura: $1/gsm;
Supongamos que el fichero kk.rtf sea
Using text Syntax Highlighting
\begin{figure}
............
\label{ nombreFigura1}
.................
\end{figure}
\begin{figure}
............
\label{nombreFigura3 }
.................
\end{figure}
\begin{figure}
............
\label{ nombreFigura2 }
.................
\end{figure}
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Luego tenemos el programa Perl
Using perl Syntax Highlighting
#!/usr/bin/perl
open FILE, "<kk.rtf";
while ( <FILE> ) { # Leemos todo el fichero a una variable
$fichero = $fichero . $_;
}
close FILE;
$fichero =~ s/\\begin\{figure\}.*?\\label\{\s*(\w+)\s*\}.*?\\end\{figure\}/Figura: $1/gsm; # ¡Transmutación!
print $fichero;
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Entonces la salida es
Using text Syntax Highlighting
Figura: nombreFigura1
Figura: nombreFigura3
Figura: nombreFigura2
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Explicación: El conjunto '
.*' es algo 'peligroso' porque significa 'cualquier secuencia de caracteres' y 'cualquiera' es eso: por defecto, el '
*' se 'come' TODOS los caracteres que pueda encontrar. Si no pusiéramos el '
?', el '
.*' que hay detrás del primer
\begin reconocería todos los caracteres hasta el ÚLTIMO
\label del fichero. Mientras que, con el '
*' le decimos que coja TODOS los posibles, con el '
*?' le decimos que coja los MENOS POSIBLES, porque no queremos que vaya 'más allá' de lo razonable.
A tu expresión regular le faltaba un '
.*' y poner los '
?' para evitar la glotonería. Además, fíjate que he sacado los '
\s*' fuera de la captura, para aprovechar y quitar los espacios en blanco de las etiquetas.
