Utilisateur:Moughamir/outils

# script de mise entre crochets des lignes d'un fichier (appel : perl <fichier) while (<STDIN>) { chomp($_); print "[[$_]]\n"; } print $., " lignes";

Manipulation de contenu d'un tableau modifier

Transformer un tableau au format wiki en tableau .CSV modifier

Installer Perl (par exemple ActivePerl v5.8 ou ultérieur)
taper la commande sous invite de commande DOS; ne pas double-cliquer sur le fichier .pl !!!
Il faut se positionner dans le dossier dans lequel sont stockés les fichiers, par exemple C:\Perl et taper la ligne de commande à ce niveau. Les caractères "<" et ">" indiquent respectivement le fichier en entrée et le fichier en sortie, ils font partie de la ligne de commande. Cela donne:

C:\Perl> perl wiki2csv.pl <fichier.txt >fichier.csv

Transformer un tableau .CSV en tableau wiki modifier

C:\Perl> perl csv2wiki.pl <fichier.csv >resultat.txt

Manipuler le format de cellules d'un tableau modifier

C:\Perl> perl wiki2wiki.pl <fichier.txt >resultat.txt

Exemple de script modifier

use strict; my $line; while(my $line=<STDIN>) { chomp($line); # retrait CRLF $line =~ s/\|\|/\|\| "align="center" \|/g; # ajoute le type d'alignement if ($line =~ /{\|/) # debut tableau { next; } if ($line =~ /\|}/) # fin de tableau { print "\n"; last; } if ($line =~ /\|\-/) # saut de ligne { print "\n\|-\n"; } else { $line =~ s/^\|//g; # cas général print "\|".$line; } }



 # csv2wiki.pl

 # But : mise au format wiki d'un tableau csv

 # A utiliser en complément du script inverse: wiki2csv.pl

 # Remarque : ne traite pas l'entete du tableau

 # Syntaxe : perl csv2wiki.pl <ficentree.csv >ficsortie.txt

use strict;



print "{| <entete du tableau>\n"; # entete à renseigner

while(my $line=<STDIN>)

{

  chomp($line);

  $line =~ s/;/\|\|/g;   # remplace separateur ";" par ||

  print "|$line \n|-\n"; 

}

print "|}";  # fin tableau



 # wiki2csv.pl

 # Remarques:

 # - ne traite pas l'entete du tableau

 # - ajoute un compteur de ligne pour permettre les tris

 # - attention, si il y a des ";" dans les cellules,

 #   il faut utiliser un autre séparateur (tab par exemple)

 # - ne récupère pas le format au niveau ligne |-...

 #

 # Syntaxe : perl wiki2csv.pl <fichier.txt >fichier.csv

use strict;

my $sep;

$sep =";"; 		# séparateur 

 # $sep ="\t";		  # séparateur tab si nécessaire

my $cpt;		# compteur en debut de ligne              

$cpt=0;     

while(my $line=<STDIN>)

{

  chomp($line);          # retrait CRLF

  $line =~ s/\|\|/$sep/g;   # remplace || par le séparateur

  $line =~ s/!!/$sep/g;     # remplace !! par le séparateur 

  if ($line =~ /{\|/)    # debut tableau

         { print $cpt++.";"; next; }

  if ($line =~ /\|}/)    #  fin de tableau

  	 { print "\n"; last; }

  if ($line =~ /\|\-/)   #  saut de ligne

         { print "\n".$cpt++.$sep; }  # avec compteur en début de ligne

 #        { print "\n"; }               # sans compteur en début de ligne

   else

         { $line =~ s/^\|//g;  # cas général

           print $line; }

}

Autres modifier

http://toolserver.org/~vvv/yaec.php?user=speculos&wiki=frwiki_p

Outils en ligne modifier

On peut aussi utiliser les outils suivants:

Réflexions modifier

Facultés du cerveau humain

(sic)

Le povuoir phoémanénal du cerveeau huamin: Soeln une recheerche fiate à l'Unievristé de Cmabridge, il n'y a pas d'improtpance sur l'odrre dans luqeel snot les lerttes. la suele cohse imotprante est que la priremère et la derènire letrte du mot siot à la bnone palce. La raoisn est que le ceverau hmauin ne lit pas les mtos par letrte mias ptuôlt cmome un tuot. Étonannt n'est-ce pas? Ceci exlplique le grnad nombbre de fauttes de frape qui passsent inaperçes dans les tetxes, et en patriculier les letres oubliées ou ajouutées au millieu des mots.

Référence: (en) http://www.inf.ed.ac.uk/undergraduate/reading.html D'où l'intérêt d'utliser un corecteur orthogaphique...