====== Différences ====== Cette page vous donne les différences entre la révision choisie et la version actuelle de la page.
mc:ptab [2008/12/18 21:32] maxime |
mc:ptab [2010/06/29 06:15] (Version actuelle) newacct |
||
---|---|---|---|
Ligne 207: | Ligne 207: | ||
open(WTEX, ">$chemin/$nomw"); # ouverture en ecriture d'un fichier .w (de travail) | open(WTEX, ">$chemin/$nomw"); # ouverture en ecriture d'un fichier .w (de travail) | ||
while (<WORK>){ #pour chaque ligne du document original | while (<WORK>){ #pour chaque ligne du document original | ||
- | @ligne = split /\s+/; # on séparer chaque mots de chaque ligne | + | @ligne = split; # on séparer chaque mots de chaque ligne |
if($ligne[0] eq ".pt"){ # on lit le paramétrage | if($ligne[0] eq ".pt"){ # on lit le paramétrage | ||
if($ligne[1] eq "math"){ # si math | if($ligne[1] eq "math"){ # si math | ||
Ligne 236: | Ligne 236: | ||
open(DAT, "$ligne[1]") or die "Impossible d'ouvrir $ligne[1]"; #on ouvre ce fichier | open(DAT, "$ligne[1]") or die "Impossible d'ouvrir $ligne[1]"; #on ouvre ce fichier | ||
open(DATTEX, ">$chemin/$prefixe\.tex"); # on cree un fichier $prefixe.tex dans lequel il y aura le tableau en latex | open(DATTEX, ">$chemin/$prefixe\.tex"); # on cree un fichier $prefixe.tex dans lequel il y aura le tableau en latex | ||
- | $taille = split/\s+/, <DAT>; #on recupere le nombre de colonne | + | $taille = split ' ', <DAT>; #on recupere le nombre de colonne |
close(DAT); | close(DAT); | ||
open(DAT, "$ligne[1]"); | open(DAT, "$ligne[1]"); | ||
Ligne 242: | Ligne 242: | ||
print(DATTEX "$deliml\\begin\{$type\}\{$inter$c\}\n$separvert\n"); # on commence notre tableau (ca depend des options) | print(DATTEX "$deliml\\begin\{$type\}\{$inter$c\}\n$separvert\n"); # on commence notre tableau (ca depend des options) | ||
while(<DAT>){ | while(<DAT>){ | ||
- | @lignedat= split/\s+/; | + | @lignedat= split; |
$tail= @lignedat; | $tail= @lignedat; | ||
for($i=0;$i<$tail;$i++){ | for($i=0;$i<$tail;$i++){ |