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:
J'débute en Perl...dites moi si l'erreur est flagrante.. Merci
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; }![]()
Partager