Discussion :

[africanwinners]

Bonjour tout le monde

Je dois faire un programme qui permet d'extraire deux lignes successives selon deux conditions la première ligne contient le mot NOM et la deuxième contient le mot ADJ

par exemple:

président NOM président
général ADJ général
force|forces ADJ force|forces
gouvernement NOM gouvernement
chef NOM chef
politique ADJ politique
océan NOM océan
et KON et
relever VER:infi relever
du PRP:det du
phénomène NOM phénomène
el VER:futu el

ca doit donner

président
général
chef
politique

donc on doit extraire le NOM+ADJECTIF

j'ai trouvé un code sur le net et avec des modifications il a marché mais le problème il y a des instructions que j'ai pas comprise:

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
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
#!/usr/bin/perl -w
 
 
my $fileName = "text.txt";
open (LOGFILE,"<",$fileName) or die "Ouverture de $fileName
impossible !Erreur : $!";
print "choisis un nom de fichier pour contenir les termes extraits\n";
my $fic=<STDIN>;
open(FIC1, ">$fic");
 
my $currentLine="";
my $previousline="";
my $nextline="";
 
my @liste=();
my @liste1=();
my $i=0;
 
while (lecture()) {
 
if ($currentLine =~/NOM/ and $nextline=~/ADJ/) {
my $ligne=$currentLine;
    my @liste=split(/\t/,$ligne);
my $ligne1=$nextline;
    my @liste1=split(/\t/,$ligne1);	
 
print FIC1 "$liste[0] ";
print FIC1 "$liste1[0]\n";
 
 
 
}
}
 
close LOGFILE;
 
 
 
 
 
sub lecture {
$previousline = $currentLine;
$currentLine = $nextline;
if (defined($nextline = <LOGFILE>)) { chomp($nextline) }
return defined($currentLine);
}

ce que j'ai pas compris l'utilité des instructions suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$previousline = $currentLine;
$currentLine = $nextline;

merci pour votre aide

[africanwinners]

Le programme n'est pas très difficile
mais mon problème
c'est comment il arrive à garder en mémoire la ligne courante et la ligne suivante pour faire les test à chaque itération
qui se traduit avec cette procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
sub lecture {
$previousline = $currentLine;
$currentLine = $nextline;
if (defined($nextline = <LOGFILE>)) { chomp($nextline) }
return defined($currentLine);
}

Merci

[Dimitry.e]

Tu stockes en mémoire trois lignes : la ligne précédente, celle que tu analyses et la suivante ($nextLine).
Lorsque tu veux avancer, tu stockes une nouvelle lue dans le fichier dans $nextLine et tu décales les deux autres ($previousLine devient $currentLine et $currentLine devient $nextLine).

Le mieux pour toi serait de dérouler l'algorithme sur papier.
Un exemple simple : on lit la ième ligne dans le fichier.
$previousLine = i-2
$CurrentLine = i-1
$nextLine = i

On lit la ligne suivante : i+1ème ligne, donc. On va l'appeler j.
$previousLine = $currentLine = i-1 = ( (i+1) - 1 ) -1 = j - 2
$currentLine = i = (i+1) - 1 = j - 1
$nextLine = i+1 = j

[africanwinners]

Prenons l'exemple du fichier

président NOM président
général ADJ général
force|forces ADJ force|forces
gouvernement NOM gouvernement
chef NOM chef
politique ADJ politique
océan NOM océan
et KON et
relever VER:infi relever
du PRP:det du
phénomène NOM phénomène
el VER:futu el

d'après ce que j'ai compris
la première itération
$previousline=$currentline=" ";
$currentline=nextline=" ";

la focntion lecture retourne currentline qui est " "

2ème itération
$previousline=$currentline=" ";
$currentline=nextline=président NOM président;

la focntion lecture retourne currentline qui est président NOM président

et ainsi de suite