Discussion :

[africanwinners]

Bonjour

On sait que pour voir si un élément existe dans un hash perl on utilise le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 if(exists $stops{ "$line" } ) {
 
						 print   FIC2  "$line $j " ;
						 print   FIC2  $stops{ "$line" } ;
						;
						 print   FIC2 "\n" ;
else
{
}
 
            }

le problème ici même si l'élément n'est pas présent dans le hahs, le programme va exécuter le if est affiché dans mon cas 16178 qui le nombre d'élement du hash
comment faire pour n'afficher que les éléments présent

Merci

[Lolo78]

Bonjour,

ce n'est pas possible. Le code du if (les trois print ...) ne peut s'exécuter que s'il existe dans le hash %stops une entrée ayant la clef $line.

Si ton code s'exécute alors que tu penses qu'il n'y a pas d'entrée pour $line, alors vérifie le contenu du hash et le contenu de la variable $line.

Par ailleurs, le branch else ne servant à rien, il est inutile de la mettre:

Code :

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

1
2
3
4
5
6
 
if (exists $stops{ "$line" }) {
    print   FIC2  "$line $j " ;
    print   FIC2  $stops{ "$line" } ;
    print   FIC2 "\n" ;
}

et je me demande à quoi sert la variable $j et ce qu'elle contient.

Le problème est sans doute ailleurs dans le code.

[Philou67430]

Je pense aussi qu'il faudrait que tu montres le code autour de cet extrait...

[africanwinners]

Bonjour

je vous montre le code complet, il lit deux fichier ligne par ligne et il les compare

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
51
52
53
54
55
56
57
58
#!/usr/bin/perl
use strict;
use warnings;
 
open( FIC,  $ARGV[0] );
open( FICC, $ARGV[1] );
 
print "choose the name of the file\n";
 
chomp( my $fic2 = <STDIN> );
open( FIC2, ">$fic2" );
my $i=0;
my $j=0;
my $h=0;
my @b=();
my %stops;
while (<FIC>)    #read each line into $_
{
    # Remove newline from $_
    chomp;
    $_ =~ s/\s+$//;
    $stops{$_} = $i;    # add the line to
    $i++;
}
 
close FIC;
 
while (<FICC>) {
    my $ligne = $_;
    $ligne =~ s/\s+$//;
    $b[$j] = lc($ligne);
 
    # $b contain the data
 
    $j++;
}
 
foreach my $che (@b) {
 
    chomp($che);
 
	       if( $stops{ $che }  ) {
 
 
						 print   FIC2  $stops{ $che } ;
						 print   FIC2  " : " ;
						 print   FIC2 $che ;
						 print   FIC2 "\n" ;
 
            }
			 else{ 
			 }
 
 
 
 
 
}

Ici le else n'est jamais exécuté!
Les deux fichiers en entrée contennent chacun un mot par ligne, ensuite une ligne composé par des espaces ensuite un mot ainsi de suite

result

much

london

only

top

early

fichier n°2:

passenger

saving

shareholder

london

glass

early

peut être ces lignes qui contiennent des esapaces affectent le résultats

[Philou67430]

Une différence entre tes deux lectures de fichier : la lecture du fichier qui sert à charger @b converti les chaines de texte en minuscule (fonction lc) alors que celle qui sert à charger %stops ne converti pas les chaines en minuscule. Je ne connais pas l'impact que cela peut avoir.

Après, je ne comprends pas non plus pourquoi le texte du fichier qui sert à charger @b n'est pas chompé au moment où tu le lis et le met dans @b, mais plus tard au moment de tester $stops{ $che } (mais à priori, le problème de devrait pas venir de là).

Pour bien faire et comprendre ce qui ne va pas, il faudrait aussi fournir un "jeu de test" (fichiers en entrée) histoire de pouvoir tester (ou debugger).

[djibril]

Bonsoir,

Le code mis ci-dessus ne me plait vraiment pas .
La manière d'ouvrir les fichiers n'est pas bonne, la manière de récupérer les fichiers est pas top. Du peu de jeu de données que je vois, je suppose que chaque fichier contient une liste de mots. Si c'est le cas, l'algorithme peut être amélioré en utilisant un petit module Perl pour comparer deux tableaux.

Merci de nous montrer un jeu de données afin que l'on te propose un code.