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
|
open(DICO1, "$fichier1")|| die "Problème d'ouverture : $!"; #fichier fr
open(DICO2, "$fichier2")|| die "Problème d'ouverture : $!";#fichier en
open(DICO4, ">$fichier4")|| die "Problème d'ouverture : $!";#fichier résultat
while (my $ligne=<DICO1>) #parcourir le fichier fr
{
my $ln=<DICO2>; # parcourir le fichier en
open(DICO3,"$fichier3")|| die "Problème d'ouverture : $!"; #ouvrir le fichier règle
my $val=0;
while (my $line=<DICO3>) #parcourir le fichier règle
{
my($prem,$conc) = split('->',$line);
my @pre=split(/ /, $prem);
my $con=split(/ /, $conc);
my @conclusion=split(':', $conc);
my @c=@conclusion[0];
foreach my $val(@c)
{
s/ \w+$//;#supprimer les blancs à la fin @c
my $val_t = substr ($val,1);#supprimer les blancs au debut de @c
if (($ln=~m/$val_t/) and ($ligne=~m/@pre/))
{
print DICO4 $line,"\n";
}
}
}
} |
Partager