segmentation en phrase

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

Heu à tester :

Code:

---

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

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/.

Code:

---

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

---

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

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

Code:

---

1 2 3 4 5 6 7

open (LIST,"nom_fichier") ; @tab = <LIST> ; close(LIST) ;   $chain = join ("",@tab) ; @tab = split (/\.\/PUNC\/\./ , $chain) ;

---

Code:

---

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

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 :lol:
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:

---

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...

$chain/$chaine erreur de frappe ^^ sorry

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

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

Code simple :

Code:

---

1 2 3 4

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

---

dans le même style que :

Code:

---

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

---

je fais comme ca :

Code:

---

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

---

Code:

---

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

---

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