Enlever certaines lignes d'un fichier Résolu/Fermé

Question

Bonjour,

  Je veux extraire, d'une liste de mots présents dans un fichier (entree.txt), ceux qui se terminent par une certaine chaîne de caractères que j'aurai choisie préalablement. Le programme va enlever les mots du fichier initial entree.txt qui remplissent le critère et les insérer dans un autre fichier (sortie.txt).

  Par exemple, si j'ai le fichier entree.txt suivant :

automne
bateau
brise
chameau
cheval
gâteau


et que ma chaîne est "eau" et que j'exécute mon programme, mon fichier sortie.txt doit contenir les mots suivants :

bateau
chameau
gâteau


et mon fichier initial entree.txt devient :

automne
brise
cheval


 Le programme suivant :

#!/usr/bin/perl

open(INFILE, "entree.txt") or die "Le fichier ne s'ouvre pas: $!";
open(OUTFILE, ">sortie.txt") or die "Le fichier ne s'ouvre pas: $!";

while(<INFILE>)
{
  if (/eau
/) {print OUTFILE "$_"};
}

close INFILE;
close OUTFILE;

génère le fichier de sortie désiré. Cependant, ce programme n'enlève pas les mots dans le fichier entree.txt.

  Je voudrais savoir quelles lignes de commandes je dois ajouter pour obtenir le fichier d'entrée modifié.

Merci

jee pee · Accepted Answer

Bonjour,

ce programme n'enlève pas les mots dans le fichier entree.txt : oui normal, le programme lit le fichier entree.txt et réécrit les termes non supprimés dans le fichier sortie.txt.

Tu n'as qu'à créer un nouveau fichier sortie2.txt qui reprend les termes non repris dans sortie.txt

[Dal] · Answer

Salut  artagon7,

Le code tel que tu l'as corrigé devrait "fonctionner", cependant voilà quelques remarques.

Une regexp qui matche à partir de la fin de ligne devrait utiliser le point d'ancrage $, donc quelque chose comme if (/eau$/) au lieu de if (/eau
/), à moins que tu veuilles tester quelque chose de particulier.

Sur les fichiers, la syntaxe que tu utilises, qui utilise des descripteurs qui sont des identifiants globaux était celle préconisée par le langage Perl avant la sortie de Perl 5.6 en 2000, avec la syntaxe à 2 paramètres de open.

Pour l'ouverture et l'écriture de fichiers en Perl moderne, tu devrais lire cet article, qui est bien fait : https://perlmaven.com/open-files-in-the-old-way ces pratiques, toujours supportées par Perl, pouvant poser différents types de problèmes expliqués par l'auteur.

Malheureusement, il y a beaucoup de code qui traîne des copier-coller de pratiques obsolètes, et même de tutoriels en ligne (y compris celui sur  tutorialspoint.com), ou de cours, qui enseignent du code de ce type.

https://perldoc.perl.org/functions/open est la documentation officielle

Tu devrais prendre l'habitude de faire tes programmes Perl avec les directives use strict; et use warnings; :

#!/usr/bin/perl

use strict;
use warnings;  
et terminer toutes tes lignes avec un point-virgule, même celles précédant immédiatement une accolade, afin d'éviter, qu'en ajoutant du code au contenu de l'accolade, tu te retrouves avec une erreur de syntaxe sur une ligne qui avant fonctionnait parfaitement.

Dal

artagon7 · Answer

Bonjour,

Comme tu l'as mentionné dans le message précédent, le caractère $ seul, permet d'ancrer l'expression à la fin de la chaîne. Il devient inutile d'ajouter les caractères symbolisant le retour de ligne à la fin.

Voici le code complet pour ce petit programme :

#!/usr/bin/perluse strict;use warnings;open(FICHIER_ENTREE, "entree.txt") or die "Le fichier ne s'ouvre pas: $!";open(FICHIER_SORTIE, ">>sortie.txt") or die "Le fichier ne s'ouvre pas: $!";open(FICHIER_ENTREE_MODIFIEE, ">>entree_modifiee.txt") or die "Le fichier ne s'ouvre pas: $!";while(<FICHIER_ENTREE>){  if (/eau$/) {print FICHIER_SORTIE "$_"}  else {print FICHIER_ENTREE_MODIFIEE "$_"};}close FICHIER_ENTREE;close FICHIER_SORTIE;close FICHIER_ENTREE_MODIFIEE;

Enlever certaines lignes d'un fichier

3 réponses

Discussions similaires