Escribir un bloque de texto basado en una opción
Publicado: 2015-04-19 20:18 @888
Hola a todos en el foro, tengo un script (que funciona) con opciones que paso por la línea de comando --xetex, --latex, --luatex y el archivo que paso como entrada guardado en $archivo, deseo agregar texto al principio dependiendo de la opción de entrada y luego guardar en un nuevo archivo. El código es el siguiente:
Como varias partes del texto que deseo escribir son las mismas me gustaría escribirlo algo así (para ahorrar líneas y mantenerlo de forma más cómoda):
Es decir, deseo escribir un string que dependa de las opciones de entrada del script, lo he intentado un par de veces y no doy con la respuesta.
Agradecido,
Pablo
Cualquier ayuda se agradece.
Using perl Syntax Highlighting
- else {
- if ($xetex) {
- my $preview = <<"EXTRA";
- \\AtBeginDocument\{
- \\RequirePackage\[xetex,active,tightpage\]\{preview\}
- \\renewcommand\\PreviewBbAdjust\{-60pt -60pt 60pt 60pt\}%
- \\newenvironment\{postscript\}\{\}\{\}
- \\PreviewEnvironment\{postscript\}\}
- EXTRA
- # write
- open my $SALIDA, '>', "$tempDir/$name-fig$ext";
- print $SALIDA $preview . $archivo;
- close $SALIDA;
- }
- elsif ($latex) {
- my $preview = <<"EXTRA";
- \\AtBeginDocument\{
- \\RequirePackage\[active,tightpage\]\{preview\}
- \\renewcommand\\PreviewBbAdjust\{-60pt -60pt 60pt 60pt\}%
- \\newenvironment\{postscript\}\{\}\{\}
- \\PreviewEnvironment\{postscript\}\}
- EXTRA
- # write
- open my $SALIDA, '>', "$tempDir/$name-fig$ext";
- print $SALIDA $preview . $archivo;
- close $SALIDA;
- }
- else {
- my $preview = <<"EXTRA";
- \\AtBeginDocument\{
- \\RequirePackage\[pdftex,active,tightpage\]\{preview\}
- \\renewcommand\\PreviewBbAdjust\{-60pt -60pt 60pt 60pt\}%
- \\newenvironment\{postscript\}\{\}\{\}
- \\PreviewEnvironment\{postscript\}\}
- EXTRA
- # write
- open my $SALIDA, '>', "$tempDir/$name-fig$ext";
- print $SALIDA $preview . $archivo;
- close $SALIDA;
- }
- } # close no preview
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
- else {
- if ($xetex) {
- my $opcion = 'xetex,';
- }
- elsif ($latex) {
- my $opcion = '';
- }
- else {
- my $opcion = 'pdftex,';
- }
- my $preview = <<"EXTRA";
- \\AtBeginDocument\{
- \\RequirePackage\[$opcion active,tightpage\]\{preview\}
- \\renewcommand\\PreviewBbAdjust\{-60pt -60pt 60pt 60pt\}%
- \\newenvironment\{postscript\}\{\}\{\}
- \\PreviewEnvironment\{postscript\}\}
- EXTRA
- # write
- open my $SALIDA, '>', "$tempDir/$name-fig$ext";
- print $SALIDA $preview . $archivo;
- close $SALIDA;
- }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Agradecido,
Pablo
Cualquier ayuda se agradece.