Discussion :

[bougnbie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Lolo78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my @liste = glob (shift);

en appelant ton programme ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bougnbie]

Merci beaucoup pour tes réponses.

[bougnbie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Lolo78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ou, plus simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Remarque: bien sûr, le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philou67430]

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