Comparer 2 fichiers txt [Fermé]

Signaler
Messages postés
1
Date d'inscription
jeudi 13 décembre 2012
Statut
Membre
Dernière intervention
13 décembre 2012
-
Bonjour,

je dois faire un script pour comparer (etudier la similarité) deux fichier et je ne sais pas vraiment comment mi prendre..

j'ai deux textes Txt l'un et le résumé de l'autre. je veux comparer les mots de chaque ligne de texte 1 avec les mots de chaque ligne de texte 2 afin de déterminer la phrase la plus similaire à l'autre. j'ai écrit ce script
open (RESU, "T1.txt");
open (RES, "T2.txt");
open(M,">resultat.txt")|| die "pb d'ouverture de fichier:$!";
open(Mot1,">Mot1.txt")|| die "pb d'ouverture de fichier:$!";
open(Mot2,">Mot2.txt")|| die "pb d'ouverture de fichier:$!";
my @contenu1;
my @contenu2;
my $m1;
my $m2;
my $i=0;
my $j=0;
@Fichier = <RESU>;
@Fich = <RES>;
foreach my $ligne1(@Fichier)
{
my $n=1;
@contenu1 = split(/\s/,$ligne1);
$i++;
foreach $m1 (@contenu1)
{
print Mot1 "$m1... $n ....... $i \n";
$n++;
}

foreach my $ligne2(@Fich)
{
my $nb=1;
@contenu2 = split(/\s/,$ligne2);
$j++;
foreach $m2 (@contenu2)
{
print Mot2 "$m2... $nb \n";
$nb++;
}
foreach $m1 (@contenu1)
{
foreach $m2 (@contenu2)
{
if ($m1 eq $m2)
{
print M "$m1 \n";
}
}
}
}
}
close (RESU);
close M;
close Mot1;
close Mot2;

il permet de déterminer les mots communs dans le deux fichiers mais je veux la position de chaque mot en commun dans la phrase qu'ella appartient et aussi le calcul de fréqunece de chaque mot en commun .