Comparer le contenu de deux fichiers

Version imprimable

Bonjour à tous,

Je me suis mis en tête (aujourd'hui) de réaliser un bout de programme, mais ça fait des années que je n'ai pas programmé quoi que se soit et je n'ai jamais touché au perl :D

Après une bonne après midi de recherche, je suis très loin d'avoir même la base de mon programme donc ... :mouarf: (en + je débute sous Linux : la totale !!!)

Voilà ce que je veux faire : a. Ouvrir un fichier texte (Ta)
b. Prendre le 1er mot
c. Voir si ce mot est aussi présent dans un second fichier (Tb)
d. Stocker le résultat dans une variable
(1 = PRESENT : OUI / 0 = PRESENT : NON)
e. Passer au second mot du fichier Ta et recommencer à c

Bien sûr, c'est juste une base ... et encore je suis INCAPABLE d'y arriver pour le moment. Toute aide est donc sincèrement la bienvenue !
Code:

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 open (FICH1, '/home/debutperl/charte.txt') || die ("pas de fichier charte.txt\n"); open (FICH2, '/home/debutperl/dico.txt') || die ("pas de fichier dico.txt\n"); my $texte = <FICH1>; my $dico = <FICH2>; my $n = 0; #while ( $texte =~ /\pL+/g ) { # $n++; # print "Mot numéro ", $n, " : ", $&, "\n"; => le code trouvé #} # $n est le numéro du mot # $& le mot en lui même while ( $texte =~ /\pL+/g ) { $n++; #print "Mot numéro ", $n, " : ", $&, "\n"; #$test = $& if ($& eq $dico) { print "Mot numéro ", $n, " : ", $&, " OUI ", "\n"; } else { print "Mot numéro ", $n, " : ", $&, " NON ", "\n"; } }
Voilà ce que j'ai fait pour le moment : bien entendu ! Ca ne ressemble à rien & je me suis inspiré d'un code trouvé sur internet. Je le met juste pour prouver ma bonne volonté :aie:.

Encore merci beaucoup à tous ceux qui voudront bien m'aider.
Cordialement.
.N

Personne n'a encore eu le courage de m'aider, ce que je comprends très bien :mouarf:
En attendant, j'ai un peu progressé et j'ai réalisé ce bout de code, qui est une base de départ et qui marche :
Code:

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 #!/usr/local/bin/perl open (FICH1, '/home/debutperl/charte.txt') || die ("pas de fichier charte.txt\n"); open (FICH2, '/home/debutperl/dico.txt') || die ("pas de fichier dico.txt\n"); my $texte = <FICH1>; my $c = 0; # stoquer le texte CHARTE.TXT dans un tableau while ( $texte =~ /\pL+/g ) { $n++; push(@charte, $&); } close (FICH1); # stoquer le texte DICO.TXT dans un tableau my $texte = <FICH2>; while ( $texte =~ /\pL+/g ) { $n++; push(@dico, $&); } close (FICH1); foreach $mot (@charte) { #print "$mot\n"; foreach $lexique (@dico) { if ($lexique eq $mot) { print "$mot\n"; $c++; } } } print "---------> "; print "mots présents dans le dico ", "$c\n";
Maintenant le problème qui se pose à moi est les suivant :

Pour le moment je dois arranger mon fichier "dico.txt" pour que les mots soient listés en ligne : ça ne m'arrange pas du tout. Néanmoins, si j'exécute la procédure avec un fichier possédant 1 mot par colonne (type dictionnaire pour OpenOffice), je n'arrive pas à faire fonctionner mon "programme" ... quelqu'un a une idée pour qu'il fonctionne pour un fichier avec des entrées en colonnes ?
N.B : en gros passer de (bonjour salut coucou çava ...)
à
bonjour
salut
coucou
çava
=> et que ça fonctionne quand même.

Si quelqu'un veut bien m'aider, qu'il soit plus que remercié :king:
.N

Citation:

Envoyé par LongShadedEyes

Pour le moment je dois arranger mon fichier "dico.txt" pour que les mots soient listés en ligne : ça ne m'arrange pas du tout.

Ce n'est pas nécessaire. Quelles sont les structures de tes 2 fichiers? Plusieurs mots sur plusieurs lignes? Quel est le séparateur?

Pour ce qui est de ton programme, tu pourrais faire quelque chose de ce genre

Code:

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
#!/usr/local/bin/perl
 
use strict;
use warnings;
 
 
=h
 
a. Ouvrir un fichier texte (Ta)
b. Prendre le 1er mot
c. Voir si ce mot est aussi présent dans un second fichier (Tb)
d. Stocker le résultat dans une variable
(1 = PRESENT : OUI / 0 = PRESENT : NON)
e. Passer au second mot du fichier Ta et recommencer à c
 
=cut
 
 
open my $fich1, '<', '/home/debutperl/charte.txt' || die ("pas de fichier charte.txt\n");
open my $fich2, '<','/home/debutperl/dico.txt') || die ("pas de fichier dico.txt\n");
 
 
 
# récupération des mots à tester dans un tableau
# fichier : 1 mot par ligne
my @charte = <$fich1>;
close $fich1;
 
my %chart_tab;
 
# suppression des enter en fin de ligne
map {chomp($_)} @charte;
 
# mise des mots dans un tableau associatif 
# clé = mot    valeur = 0
map {$chart_tab{$_} = 0;} @charte;
 
 
while (my $line = <$fich2>){
 
	chomp $line;
	if (exists $chart_tab{$line}){
		# on met à 1 la valeur des mots trouvés
		$chart_tab{$line} = 1;
	}	
}
 
close $fich2;
 
my $nbr_mots = () = grep {$_== 1}  values(%chart_tab); 
print "$nbr_mots mots trouvés\n";

EDIT : calcul du nombre de mots via la fonction grep()

Citation:

Envoyé par LongShadedEyes

Pour le moment je dois arranger mon fichier "dico.txt" pour que les mots soient listés en ligne : ça ne m'arrange pas du tout.

Si tu as plusieurs mots à récupérer par ligne :
Code:

1 2 3 4 5 6 7 8 9 10 11 my @charte; foreach my $line (@file1){ # récupération des différents mots présents par ligne # séparateur : des espaces my @liste_mots = split /\s+/, $line; # mise de l'ensemble des mots récupérés dans le tableau push @charte, @liste_mots; }

28/04/2009, 09h09
Sancti_Eyes

Eh :king:
Merci beaucoup ... je dois travailler ce matin, mais je regarde ça ce midi ou bien ce soir et je te dis. C'est vraiment très sympa.

.N
28/04/2009, 18h22
Sancti_Eyes
Bonsoir,

Alors, j'ai testé le programme que tu m'a donné : ça ne marche pas ici (normal tu n'a pas les fichiers pour le tester etc.). La méthode a pourtant l'air beaucoup plus "clean" que la mienne ... dommage. Je vais essayer de comprend pourquoi (ce n'est pas gagné).

Sinon, j'ai toujours mon problème pour charger différentes lignes ; du type :

pratum
aqua
sicut
terra
domini

Ca c'est mon fichier dico.txt (pour le moment j'ai du le mettre en "bout à bout", mais ça ne marchera pas pour la suite). J'aimerais garder le même programme que celui que j'ai donné seulement en changeant ce point.

Pour l'instant j'ai donc cette algo, mais qui ne charge que si les mots sont bout à bout :
Code:

1 2 3 4 5 6 7 # stoquer le texte DICO.TXT dans un tableau my $texte = <FICH2>; while ( $texte =~ /\pL+/g ) { $n2++; push(@dico, $&); } close (FICH1);
Je voudrais juste modifier cette partie (si possible :aie:)

Merci beaucoup pour ton aide en tout cas ... je sens que ça va avancer cette affaire ;)
ps : désolé je me rends compte que je n'avais pas été clair du tout plus haut.

Quel est le message d'erreur avec mon premier script? Il y a une parenthèse fermante qui se balade dans l'open() du second fichier.
Peut-être vaudrait-il mieux stocker tes valeurs dans un tableau associatif, ou alors utiliser un module tel que List::Compare ... c'est toujours mieux que des boucles telles que :
Code:

1 2 3 4 5 6 7 foreach $mot (@charte) { #print "$mot\n"; foreach $lexique (@dico) { if ($lexique eq $mot) {
Dois-tu également récupérer les mots du fichier 2 non présents dans le fichier 1?

Pour la partie qui te pose problème : stoquer le texte DICO.TXT dans un tableau
Code:

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 #!/usr/local/bin/perl use strict; use warnings; open my $fich2, '<','/home/debutperl/dico.txt' || die ("pas de fichier dico.txt\n"); # récupération des mots à tester dans un tableau # fichier : 1 mot par ligne my @dico = <$fich2>; close $fich2; # suppression des enter en fin de ligne map {chomp($_)} @dico; # mise des mots dans un tableau associatif # clé = mot valeur = 0 my %dico_tab; map {$dico_tab{$_} = 0;} @dico;
Donne moi un petit bout de ton second fichier que je puisse tester mon précédent script. merci.

03/05/2009, 10h54
Sancti_Eyes

Excuse moi, je n'avais pas encore eu le temps de revenir.
Je m'occupe de ça d'ici se soir, en te priant de m'excuser pour ma lenteur.

Merci beaucoup pour ton aide.
Cordialement.