(Courriels de diversion: <avoisinerai@meteorites-contrerez.com> <demarquez@rajeuniront-surmenais.com> <portail@barbet-charriee.com> <balisera@humilier-saussaies.com> <urbaniserez@creche-intimions.com> <liquidais@encriers-peseras.com> <vertebrales@etraves-desengageons.com> <figure@happions-angoisserions.com> <ensoleilles@concretement-veilliez.com> <reimplanta@immiscerait-decroissait.com> )
Phil'sFree a écrit :
Maxime Edrei a écrit :
Salut,
pour bouger mes fichiers en évitant ces problèmes d'accents et de caractères bizarres, j'ai fais un script perl qui remplace tous les accents par leur lettre noin accentuée ("é" par "e"), et les espaces par un tiret.
Mon script fonctionne correctement, sauf qu'il faut le lancer plusieurs fois pour qu'il soit vraiment récursif.
N'ayant pas pris le temps de m'occuper de ce dernier point, ça me va :) Le résultat est OK quand le fichier texte de résultat est vide.
Je vous le livre, soyez indulgent avec moi, je ne passe plus ma vie à programmer, même si c'est parfois plaisant.
Ca m'a beaucoup servi, je l'ai bien fait bosser le script!
A+ Maxime
#!c:\perl\bin -w
# Version du 10/10/2005, ajout d'un fichier journal.
# remplace les accents des voyelles accentuées sans différenciation majuscule/minuscule
# remplace ç par c, un espace par _ et gère le tilda.
# fonctionne sous DOS
# sous Linux, Unix, remplacer system ("ren $name $newname"); par system ("cp -v -f $name $newname");
if(@ARGV<1){print "Usage: $0 <path> <outputfile>\n";exit;}
Sous Linux/Unix, remplacer aussi la 1ère ligne (qui désigne le chemin d'accès à l'interpréteur du langage) ;-)
Merci pour cette contribution publique.
Merci à tous. Fred
-------------------------------------------------------------------- Les listes de diffusion occultes: <URL:http://www.CULTe.org/listes/>