Pasar documentos de Sgml a Latex

Por Paco Aldarias Raya

Impreso: 3 de noviembre 2005

Email: pacolinux arroba inicia punto es

Web: http://www.iespana.es/pacolatex

Con Linux Debian. En Valencia (España)

Este documento es de libre reproducción siempre que se cite su fuente.

Realizado con: L^ATEX

Índice General

• Índice de Materias

#!/usr/bin/perl

# Permite pasar de sgml a latex
# Por Paco Aldarias
# 3.11.2005
# Cambiar el fichero bash.sgml por el q tu quieras que coga.
# Cambiar el fichero bash.tex por el q tu quieras que obtenga

$o = "bash.sgml";
$d = "bash.tex";


# Declaración de la subrutina.
sub remplaza
{
$linea =~ s/$_[0]/$_[1]/;
}



open (origen, "$o" );
open (destino, ">$d" ) ;

while($linea = <origen>) {
chop($linea);

&remplaza("<P>","\n");
&remplaza("<toc>"," ");
&remplaza("<p>","\n");

&remplaza("<tscreen>"," ");
&remplaza("<\/tscreen>"," ");

&remplaza("<pre>"," ");
&remplaza("<\/pre>"," ");


#url
&remplaza("<htmlurl url=","\/url{");


#Listas
&remplaza("<enum>","\\begin{enumerate}");
&remplaza("<\/enum>","\\end{enumerate}");

&remplaza("<itemize>","\\begin{itemize}");
&remplaza("<\/itemize>","\\end{itemize}");

&remplaza("<descrip>","\\begin{itemize}");
&remplaza("<\/descrip>","\\end{itemize}");

&remplaza("<item>","\\item ");
&remplaza("<tag>","\\item ");


#Secciones
&remplaza("<sect>","\\section{");
&remplaza("</\sect>","");

&remplaza("<sect1>","\\subsection{");
&remplaza("</\sect1>","");

&remplaza("<sect2>","\\subsubsection{");
&remplaza("</\sect2>","");

#comentarios
&remplaza("<!--","\\begin{comment}");
&remplaza("-->","\\end{comment}");

#Entornos
&remplaza("<verb>","\\begin{verbatim}");
&remplaza("<\/verb>","\\end{ verbatim}");

#Letras
&remplaza("<bf","");
&remplaza("<it","");

&remplaza("<bf>","\\textbf{");
&remplaza("<\/bf>","}");

&remplaza("<it>","\\textit{");
&remplaza("<\/it>","}");

&remplaza("<tt>","\\textit{");
&remplaza("<\/tt>","}");

&remplaza("<\/article>","");

print destino "$linea \n";
}

close origen;
close destino;

Índice de Materias

Sobre este documento...

Pasar documentos de Sgml a Latex

This document was generated using the LaTeX2HTML translator Version 2002-2-1 (1.71)

Copyright © 1993, 1994, 1995, 1996, Nikos Drakos, Computer Based Learning Unit, University of Leeds.
Copyright © 1997, 1998, 1999, Ross Moore, Mathematics Department, Macquarie University, Sydney.

The command line arguments were:
latex2html sgmllatex -split 0 -local_icons 1 -show_section_numbers -no_auto_link -no_navigation

The translation was initiated by on 2005-11-03