Discussion :

[Ftina]

Bonjour à tous,

Depuis 3 jours que je cherche une solution à mon problème malheureusement je n'arrive pas à y sortir peut être car je débute encore en perl ,
en fait, j'ai deux fichiers comme entrée, un fich1 contenant une liste des mots et l'autre fich2 un texte, je veux supprimer de de fich2 les mots qui se trouvent dans fich1, voilà le code que j'ai fait, mais le résultat n'est pas juste

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
#Original Lesk Algorithm
 
use strict;
use warnings;
use utf8;
use Data::Dumper; 
 
 
 
 
my @tab_sans_SW;
 
my $FichierResulat = '/home/lenovo/Bureau/MesTravaux/LeskAlgo/OriginalLeskResult';
open( my $FhResultat, '>:utf8', $FichierResulat );
 
open(my $fh1, "<:utf8", '/home/lenovo/Bureau/MesTravaux/LeskAlgo/DemoLesk/StopWordsList.txt') or die "Failed to open file: $!\n";
#Parser la liste des mots vides
 
my $n=3; #taille de la fenetre contextuelle cad on va prendre juste n mot avant et après le mot ambigu
#pour un mot ambigu se trouvant dans un contexte donné
 
open(my $fh2, "<:utf8", '/home/lenovo/Bureau/MesTravaux/LeskAlgo/text1.txt') or die "Failed to open file: $!\n";
my @tabStopWords = <$fh1>;
 
my @tab_contexte ;
 
 
my @words;
while(<$fh2>){
chomp;
next if m/^$/;
#next if /^$/;
 
my $context= $_;
@words = split(/ /, $_);
 
}
 my %temp;
  @temp{@tabStopWords} = 0..$#tabStopWords;
 
  for my $val (@words) {
    if( exists $temp{$val} ) {
      print "$val est présent dans tab1 à la position $temp{$val}.\n";
    } else {
      print "$val n'est pas dans tab1.\n"; push @tab_sans_SW, $val;
    }
  }
 
foreach my $value(@tab_sans_SW) {print $FhResultat "$value\n";}

[Philou67430]

Une manière de faire serait la suivante :
- lire fich2 dans un hash %fich2 (chaque mot étant une clé, la valeur étant quelconque).
- lire mot à mot fich1 et supprimer la clé de fich2 s'il elle existe (delete $fich2{$mot_fich1} if exists $fich2{$mot_fich1})
- la liste des mots de fich2 qui ne sont pas dans fich1 est la liste des clés restantes dans %fich2 (print join ", ", keys %fich2)

Le plus important pour les détails d'implémentation, c'est de connaitre comment les mots sont rangés dans les fichiers (un par ligne, séparés par des espaces, fichier DOS/Windows ou Unix ?)