(Courriels de diversion: <creche@intimions-liquidais.com> <encriers@peseras-vertebrales.com> <etraves@desengageons-figure.com> <happions@angoisserions-ensoleilles.com> <concretement@veilliez-reimplanta.com> <immiscerait@decroissait-compagnie.com> <tourelle@bougonnes-percevrait.com> <bilans@rembarquera-recompterais.com> <fraisage@refugierai-repondirent.com> <gothiques@enchantera-cariant.com> )
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Maxime Edrei wrote:
> 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
> #################################################"
> sub wanted {
> print "\n".$File::Find::name.':'.$_ ;
> my $name = $_;
> my $newname = &replace_chars ($name);
> if ($change > 0){
> if ($^O eq 'MSWin32'){
> system("ren \"".$name."\" ".$newname); # for Windows
> print OUTPUTFILE "\n$name=>$newname";
> }
> else {
> system('cp -v -f \"'.$name.'\" '.$newname); # for Linux
juste une remarque : pas la peine de forker un appel systeme pour renommer ton
fichier : la commande "rename" existe de base en perl et marche quel que soit
l'os : perldoc -f rename
du coup pas la peine de tester l'os ...
- --
Eric Gerbier
cnrm/cti
les points de vue exprimés ici n'engagent
pas la responsabilité de METEO-FRANCE.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.0 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org
iD8DBQFDxgW6Nzh6q8tvpCoRAtAvAJ0WhQyWv9GwUwJzuotzNkZvoIKooACfb+u1
vwt5korDNmNk3luB/pgh6jY=
=XWAi
-----END PGP SIGNATURE-----
--------------------------------------------------------------------
Les listes de diffusion occultes: <URL:http://www.CULTe.org/listes/>