Discussion :

[Fastshadow]

Bonjour,

j'ai un petit problème apparament simple, mais j'vois pas où ça cloche: j'ai une liste de mot dans un fichier, un par ligne, et je cherche à comparer une chaîne de caractères donnée à chacun de ses mots, et qu'ill m'affiche un signal si une correspondance a lieu. J'ai fait de multiples tests avec ce code, mais aucun mot n'est reconnu:

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
 
sub compare {
    my $wrd=$_[0];
    my $line;
    open(FDD,"<dico") || die "opening failure";
    print("testing $wrd:\n");
    foreach $line (<FDD>){
	chomp($line);
 
	if ( $line eq $wrd){
	    print ("-> $wrd OK !\n");
	}
 
    }
    close FDD;
}

J'débute en Perl...dites moi si l'erreur est flagrante.. Merci

[GLDavid]

Essaies avec ce code :

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
 
sub compare { 
    my $wrd=@_[0]; 
    my $line; 
    open(FDD,"<dico") || die "opening failure"; 
    print("testing $wrd:\n"); 
    foreach $line (<FDD>){ 
   chomp($line); 
 
   if ( $line eq $wrd){ 
       print ("-> $wrd OK !\n"); 
   } 
 
    } 
    close FDD; 
}

J'ai pas testé mais c'est une mauvaise initialisation à mon avis

@++

[Fastshadow]

ça change rien, j'avais initialisé l'argument comme ça au début, et j'ai un avertissement:
Scalar value @_[0] better written as $_[0] at code.pl line 142.
j'ai donc préféré le $_ à @_...

et le problème semble pas venir de l'initialisation de la variable à tester, mais plutôt du format de la ligne lue, car si je remplace $wrd par une chaîne dans le test du if, l'égalité des chaînes n'est pas reconnue...

Merci quand même

[Fastshadow]

ça marche! il suffisait de rajouter un chop()

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
 
sub compare {
    my $wrd=$_[0];
    my $line;
    open(FDD,"<dico") || die "opening failure";
    print("testing $wrd:\n");
    foreach $line (<FDD>){
   chomp($line);
 
   if ( $line eq $wrd){
       print ("-> $wrd OK !\n");
   }
 
    }
    close FDD;
}

[Choupi]

Moi je te conseille l'utilisation d'un hash à la place du tableau:

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
my %dico;
my $refdico = \%dico;
my $file = "dico";
 
creationDico($refdico,$file);
trouverMot($refdico,"chat");
 
sub trouverMot(){
	my($refdico,$mot) = @_;
	if(exists ${$refdico}{$mot}){
		print "le mot $mot est bien dans le dico";
	}
}
 
sub creationDico(){
	my($refdico,$file) = @_;
	open(DICO,$file) || die "opening failure";
	while(<DICO>){
		chomp $_;
		${$refdico}{$_} = 0;
	}
}

Euh c'est pas propre car je passe des references (un entrainement ) mais au moins tu utilises exists et c'est plus performant si le dico est grand...

[Fastshadow]

et c'est plus performant si le dico est grand...

$ wc dico
22740 23068 228244 dico

23068 mots donc!

c'est vrai que c'est un peu plus intelligent d'utiliser une table de hash, l'habitude du C... merci du conseil

[Choupi]

Oui alors la n'hesite meme pas ! ... l'habitude du C en perturbe plus d'un au debut (je ne cite aucun gldavid en particulier )

[GLDavid]

Qui ça ? Moi ???