Bonjour a tous. J'apprends Perl pour mon boulot, et je bloque sur un exercice qu'on m'a donne:
Je travaille sur des fichiers de dictionnaire, et un exercice qu'on m'a donne consiste a extraire des mots d'une base de donnees qui n'existent pas dans le dictionnaire. J'ai donc un fichier dictionnaire, compose d'un mot par ligne, et de bases de donnees, egalement 1 mot par ligne.
L'exercice qu'on m'a donne consiste a extraire les mots n'existant pas dans le dictionnaire, et de les printer. Tout cela sans utiliser de tableaux de hachage ni grep, et en composant le programme le moins gourmand en ressources possibles.
Donc, je fais :
Apres ca, j'ouvre le fichier de base de donnees, et c'est la que je coince parce qu'en dehors de grep et des tables de hachage, je ne sais pas comment chercher si un mot lu existe dans un tableau. Qu'est-ce qu'il serait possible de faire ?
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 #!/usr/bin/perl use strict; use warnings; my $wordlist = shift; my @allwords; open WORDLIST, $wordlist; #J'ouvre d'abord le fichier dictionnaire. while (<WORDLIST>){ chomp; my $word = $_; push (@allwords,$word) #Je cree un tableau ou je mets chaque mot du fichier. } close WORDLIST; #je ferme le dico
Partager