Discussion :

[lavm01]

Bonjour,

Comment faire en Perl sous windows pour lire un répertoire et modifier une chaine de caractère à l'intérieur des fichiers.

Exemple: J'ai un répertoire qui contient 12 fichiers .txt et je voudrais changer une chaine de caractère dans les 12 fichiers. Exemple: remplacer toto (ici faire attention car il y a un espace à la fin de toto) par toto_

J'ai fouiller un peu partout mais je ne trouve pas exactement ce que je veux faire.

Merci de me venir en aide.

[Lolo78]

Bonjour,

une esquisse de solution.

Dans ton programme Perl, tu crées un tableau contenant le nom des fichiers de ton répertoire:

Code :

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

my @liste_fichiers = glob ("*.txt");

Ensuite, tu ouvres et lis chaque fichier individuellement:

Code :

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

1
2
3
4
5
6
7
8
foreach my $fichier (@liste_fichiers) {
     open FILE_IN, "<", $fichier or die "impossible d'ouvrir le fichier $fichier $! \n";
     while (<FILE_IN>) {
          s/toto /toto_/g;
          print;
     }
     close FILE_IN;
}

Ici, je me suis contenté d'afficher les lignes modifiées à l'écran, ça te donne un début de solution.

On ne peut d'une façon générale pas modifier un fichier. Il faut créer une copie avec un autre nom, puis renommer.

Si tu veux mettre le résultat dans des fichiers, il te faudra ouvrir des fichiers en sortie (avec un nom différent du fichier en entrée), puis s'occuper du renommage.

Sinon, on peut aussi faire un uniligne qui gère tout plus facilement, mais là, je n'ai pas trop le temps.

[Lolo78]

La solution uniligne, fichier par fichier:

Code :

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

perl -pi -e 's/toto /toto_/g;' toto.txt

Sous Unix, Linux ou VMS, on peut même traiter l'ensemble des fichiers d'un répertoire d'un seul coup, par exemple:

Code :

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

perl -pi -e 's/toto /toto_/g;' *.txt

va modifier tous les fichiers *.txt selon le besoin.

Cet exemple modifie les fichiers "en place", c'est-à-dire que les fichiers sont effectivement modifiés. Pas besoin de créer des fichiers temporaires.

Cela ne marche pas sous Windows (qui n’interprète pas "*.txt" sous la forme d'une liste de fichier à modifier), mais Alek-C a fourni récemment une solution simple et efficace à ce genre de problème sous Windows:

Code :

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

FOR %A IN (*.txt) DO perl -pi.bak -e "s/toto /toto_/g;"

[Philou67430]

Sous Unix, Linux ou VMS, on peut même traiter l'ensemble des fichiers d'un répertoire d'un seul coup, par exemple:

Code :

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

perl -pi -e 's/toto /toto_/g;' *.txt

Également fonctionnel sous Windows

[Lolo78]

Je suis surpris. J'ai essayé à la ligne de commande dans une fenêtre Dos il y a quelque temps, comme Dos n'interprête pas le "*.txt", pour moi ça ne marche pas (d'où la boucle script Dos proposée). Cela dit, je n'ai pas une installation normale de Perl sous Windows, juste l'exécutable et la DLL, installés en bonus lors de l'installation d'un clienty Oracle.

Si ça marche chez toi, j'aimerais savoir comment tu t'y prends. Je suis sûr que ça intéressera d'autres gens car il y a déjà eu des discussions ici sur cette question.

[Philou67430]

Il me semble qu'on en avait discuté récemment dans un autre fil. J'avais alors testé deux solutions sur mon ancien PC de bureau sous XP. A présent sous 7, je vais retester avec l'invité de commande de ce nouveau système et Strawberry perl (sous XP, j'avais également testé ActivePerl).
En tout cas, ceci fonctionne comme sous Unix en utilisant Cygwin (c'est ce que j'utilise principalement, vu qu'en plus de perl, j'hérite d'un vrai shell (bash), et de tous les outils Unix bien utiles, y compris sous Windows.