Discussion :

[siham_06]

Bonjour,

Je voudrais segmenter un fichier texte en phrase qui est sous la forme :

ysAndrw/NNP/ysAndrw nstA/NN/nstA ./PUNC/. w/CC/w >nq*/VBD/>nq* Al/DT/Al HArs/NN/HArs Al/DT/Al AyTAly/JJ/AyTAly ./PUNC/. jAnlwyjY/NNP/jAnlwyjY bwfwn/NNP/bwfwn mrmA/NN/mrmA h/PRP$/h mn/IN/mn hdf/NN/hdf./PUNC/.

une fois que je trouve "./PUNC/." je dois segmenter en phrase pour obtenir par exemple:
ysAndrw/NNP/ysAndrw nstA/NN/nstA
w/CC/w >nq*/VBD/>nq* Al/DT/Al HArs/NN/HArs Al/DT/Al AyTAly/JJ/AyTAly

merci de m'aider

[Hide]

Heu à tester :

Code :

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

1
2
3
4
5
6
7
 
open (LIST,"nom_fichier") ;
@tab = <LIST> ;
close(LIST) ;
 
$chain = join ("",@tab) ;
@tableau =  split (/\.\/PUNC\/\./ , $chaine) ;

je suis pas sur c'est à la volée

[siham_06]

salut,

merci pour ton aide, j'ai essayé le bout de code que tu m'as envoyé mais ça marche pas il ne splite pas en fait lorsqu'il trouve ./PUNC/.

[Hide]

Code :

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

1
2
 
@tableau =  split (/\.\/PUNC\/\./ , $chaine) ;

je viens de tester pour moi sa marche alors je comprend pas

[siham_06]

Salut,
J'ai toujours le meme problème, j'ai tout de meme rectifier ton code sous la forme mais ça marche pas

Code :

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

1
2
3
4
5
6
7
 
open (LIST,"nom_fichier") ;
@tab = <LIST> ;
close(LIST) ;
 
$chain = join ("",@tab) ;
@tab =  split (/\.\/PUNC\/\./ , $chain) ;

Code :

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

1
2
3
4
5
6
7
 
open (LIST,"nom_fichier") ;
@tab = <LIST> ;
close(LIST) ;
 
$chain = join ("",@tab) ;
@tableau =  split (/\.\/PUNC\/\./ , $chaine) ;

merci de ton aide

[ravachol]

Salut,
bon j'ai trouvé une petite erreur dans le code, mais franchement j'espère que c'est pas ça sinon tu vas t'arracher les cheveux
en fait une fois il y a $chain, et une autre fois $chaine.

J'ai testé la méthode de Hide, qui marche très bien, je t'en propose une autre au cas où :

Code :

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

1
2
3
4
5
6
open (LIST,"nom_fichier");
@tab = <LIST>;
close(LIST);
 
$chaine = join("",@tab);
$chaine =~ s/\.\/PUNC\/\./TOTO/g;

Voilà, TOTO remplacera toutes les occurences de ./PUNC/., typiquement il faudrait mettre \n

En esperant que ça t'auras avancé un peu

PS : si le problème vient bien de $chaine/$chain, je ne peux que te conseiller d'utiliser use strict, qui je crois t'aurais permis de voir tout de suite le problème...

[Hide]

$chain/$chaine erreur de frappe ^^ sorry

[siham_06]

Salut,
J'ai testé ton code apparement ça marche, je voudrais quand j'affiche la phrase aussi lui associer un numero sous la forme suivante:
<ph=1>w/CC/w lm/RP/lm yHtsb/VBP/yHtsb<\ph>
<ph=2>w/CC/w >nq*/VBD/>nq*<\ph>
merci pour ton aide

[Hide]

j'ai plus le nom sa doit être une concaténation je suis pas sur

Code simple :

Code :

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

1
2
3
4
 
for ( $i=0 ; $i<=$#tab(ou tableau) ; $i++) {
	$tableau[$i] = "<ph=$i+1>".$tableau[$i]."</ph>" ;
}

[Mr6]

dans le même style que :

Code :

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

1
2
 
for ( $i=0 ; $i<=$#tab(ou tableau) ; $i++) {

je fais comme ca :

Code :

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

1
2
 
for my $i (0..$#tableau) {

[Hide]

Code :

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

1
2
 
for my $i (0..$#tableau) {

Ah je connaissais pas ce genre d'écriture merci pour l'info