Re: wiki2latex

Pour l'instant j'en suis là. Grace à jag et un collègue.


#! /usr/bin/perl
#

$inItem1 = 0; # boolean pour la gestion de *
$inItem2 = 0; # boolean pour la gestion de #

print "Essai \n";
while (<>) {
s/__([^\_]*)__/\\textbf{1ドル}/g ;
s/\'\'([^\']*)\'\'/\\textit{1ドル}/g ;
s/!!!(.*)/\\section{1ドル}/g ;
s/!!(.*)/\\subsection{1ドル}/g ;
s/!(.*)/\\subsubsection{1ドル}/g;
#
# Les puces
#
# Il faut traiter séparément la première et la dernière
# j'utilise un boolean
if (/\*/) {
if(!$inItem1) {$inItem1=1; print "\\begin{itemize} \n";}
print " \\item ";
s/^\*//g;
}
else {
if ($inItem1) {
$inItem1=0;
print "\\end{itemize} \n";
}
}
# fin if
# Idem pour les puces numérotées
if (/\#/) {
if(!$inItem2) {$inItem2=1; print "\\begin{enumerate} \n";}
print " \\item ";
s/^\#//g;
}
else {
if ($inItem2) {
$inItem2=0;
print "\\end{enumerate} \n";
}
}
# fin if
print;
}