problème avec concatenation
Bonjour,
J'ai deux fichiers dont je voudrais concatener les résultats, le premier est sous la forme suivante :
w lm yHtsb Al Hkm
le deuxième est sous la forme:
w/CC lm/RP yHtsb/VBP Al/DT Hkm/NN
je voudrais avoir un troisième fichier ou je concatene les deux fichiers sous la forme suivante:
w/CC w lm/RP lm yHtsb/VBP yHtsb Al/DT Al Hkm/NN Hkm
j'ai essayé ce bout de code mais g un pb :
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
|
#!/usr/bin/perl -w
my @mot;
my @mot_etiq;
open(fid,"Sample.buck.TOK") || die ("couldn't open file.txt!");
open(fid_lem,"Sample.buck.TOK.LEM.POS") || die ("couldn't open file.txt!");
open(fid_g,">result.txt") || die ("couldn't open graphe.txt!");
while (<fid>)
{ @mot = (@mot,split(/[\s]/,$_));
while (<fid_lem>)
{
@mot_etiq = (@mot_etiq,split(/[\s]/,$_));
foreach $i (0..$#mot)
{
foreach $j (0..$#mot_etiq)
{
print fid_g ($mot_etiq[j].$mot[i]);
}
}
}
}
close(fid);
close(fid_lem);
close(fid_g); |
merci de votre aide
problème avec concaténation
Citation:
Envoyé par GLDavid
:tagcode:
Bonjour,
j'ai tjrs le meme pb c que le mot dans le fichier résultat s'affiche plusieurs fois.
merci de votre aide
