Discussion :

[Invité]

Bonjour,

Voilà j'ai deux fichiers. L'un contenant des phrases qu'on appelera phrases.txt, l'autres comprenant des mots (voir aussi des phrases) qu'on appelera interdits.txt. En gros voilà ce que je cherche à faire:

Toute les chaines de caractères comprises dans mon fichiers interdits.txt ne doivent pas être dans mon phrases.txt. C'est à dire que dès qu'une ligne de phrases.txt contient un mot ou une phrases de interdits.txt, il faut que cette ligne soit supprimée.

Les deux fichiers sont ordonnées de en colonne, un mot ou une phrase par ligne.

Je cherche à le faire de la façon la plus simple possible notament par sed ou bash. Je saurai comment supprimer un mot dans un fichiers via sed, mais je n'arrive pas à supprimer un mot d'un fichier contenu dans un autre fichier.

Merci par avance pour votre aide.

[Woufeil]

Bonjour.

Tu es sur un forum Perl ici, nous ne pouvons (ou en tout cas je ne peux) pas te fournir de solution avec sed ou bash. Pour une soluion bash, les forums Linux seront certainement plus appropriés. Pour une solution sed, je ne vois pas vraiment où cela aurait sa place.

En revanche, on peux t'aider à trouver une solution Perl. Cela t'intérese-t-il ?

[Invité]

Une solution Perl me conviendrait totalement

Désolé pour le post en section Perl mais je n'ai pas trouvé de section bash sur les forums de developpez.com.

[GnuVince]

Voici quelque chose de très simple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use strict;
use warnings;
 
open(my $interdits_fd, '<', 'interdits.txt');
chomp(my @interdits = <$interdits_fd>);
close($interdits_fd);
 
open(my $phrases_fd, '<', 'phrases.txt');
 
while (my $line = <$phrases_fd>) {
  foreach my $interdit (@interdits) {
    $line =~ s/\b$interdit\b/[CENSURÉ]/gi;
  }
 
  print $line;
}

[Invité]

Merci pour ce script, mais (il faut bien un "mais"...)

Le script à l'air de tourner dans le vide....

Bon d'accord il y a 13 000 mots dans interdits.txt et 880 000 phrases dans phrases.txt mais je l'ai laissé tournée pendant 16h et le script est toujours en cours d'éxécution ....

Boucle infinie ?

[rcageot]

normallement le print $line; devrait t'afficher les lignes modifiées?

si tu n'as pas d'affichage, ça coince quelquepart