Regex, caractères spéciaux.

Bonjour à tous,
J'ai deux petites questions.
J'ai des fichiers écrits en Français que je voudrais un peu uniformiser, dans la mesure ou je ne voudrais garder que les 26 lettres de l'alphabet en minuscule, sans accent.
Pas de ponctuation non plus.

J'ai déjà fait ça pour tout écrire en minuscule:

Code:

---

perl -i -lape's/(\w)/\L$1/g' file

---

(l'option -i pour faire la modification directement dans le fichier).

Par contre, pour les accents et autres symboles bizarre, je crains que ce soit un peu rébarbatif de tout prendre en compte, et je risque fort d’oublier des cas de figures et des symboles, donc je me demandais si quelqu'un savait ou trouver un code traitant tous les cas possibles. Voir peut être qu'on peut faire ça autrement.

DEUXIEME QUESTION:

J'ai un répertoire "Rep" qui contient des sous répertoire qui contiennent des fichiers, mais il y en a beaucoup (énormément).
Lorsque j'execute un script perl de type:

Code:

---

perl script.pl rep/*/*.txt

---

J'ai le message "liste d'argument trop longue".

Je sais que c'est une façon de faire dégueulasse, et je me demandais comment pallier ce problème, idéalement comment exécuter un script prenant en entrée tous les fichiers dans l'arborescence du répertoire.

Merci.

Pour les lettres accentuées et autres, tu peux utiliser ceci:

Code:

---

tr/àéèùçâêîôû/aeeucaeiou/;

---

Je ne sais pas si c'est ce dont tu as besoin, mais c'est bien plus rapide à écrire (et certainement à exécuter) qu'une série de s///g.


Pour la seconde question, tu peux mettre commande suivante au début de ton script:

Code:

---

my @liste = glob ("rep/*/*.txt");

---

Ou, si tu veux passer le chemin en paramètre:

Code:

---

my @liste = glob (shift);

---

en appelant ton programme ainsi:

Code:

---

perl script.pl "rep/*/*.txt"

---

Merci beaucoup pour tes réponses.

En fait pour la deuxième question, ça ne résout pas tout à fait mon probleme. En effet, je veux appeller un script sur tous les fichiers en mode slurp c'est à dire par exemple si je veux compter le nombre de ligne de l'ensemble des fichiers:

Code:

---

while(<>){$nb++;}

---

Si je fais

Code:

---

perl script.pl rep/*/*.txt

---

J'ai toujours liste d'arguments trop longues.

Et je ne vois pas comment faire avec une liste obtenue avec un glob.

Voici une commande qui affiche le nombre de lignes des fichiers *.pl de mon répertoire courant:

Code:

---

1 2	$ perl -e '@liste = glob (shift); for (@liste) { push @ARGV, $_; $count++ while <>;}; print $count, " lignes \n";' "*.pl" 2719 lignes

---

Ou, plus simple:

Code:

---

1 2	$ perl -e '@ARGV = glob (shift); $count++ while <>; print $count, " lignes.\n";' "*.pl" 2719 lignes.

---

Remarque: bien sûr, le code suivant

Code:

---

1 2	$ perl -ne '$count++; END{print $count, "\n"}' *.pl 2719

---

est encore plus simple, mais là, j'aurais sans doute la même erreur que toi ("liste d'arguments trop longue") si le nombre de fichiers présents est trop élevé, alors que tu ne devrais en principe pas l'avoir avec les deux premiers scripts unilignes.

Pour supprimer les accents, il y a aussi le module CPAN Text::Unaccent::PurePerl (il traite tous les diacritiques, il compris sur les majuscules).

Merci beaucoup, je me doutais que quelque chose existait du coté du CPAN!