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 @tabStopWords = <$fh1>;
my @tab_contexte;
 
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";
 
while(<$fh2> ){
 
#next if m/^$/;
next if /^$/;
my $context= $_;
@tab_contexte = split(/ /, $context);
}
 
 
 
#my @tab1=qw/ a b c /;tab_contexte
#my @tab2=qw/ a d c e /;tabStopWords
 
 
  my %temp;
  @temp{@tabStopWords} = 0..$#tabStopWords;
 
  for my $val (@tab_contexte) {
    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 $words (@tab_sans_SW) {print $FhResultat "$words\n";}