Discussion :

[siham_06]

Bonjour,

J'ai un problème, je dois splitter une chaine de caractère tel que mot/NN/mot mot/JJ/mot ou mot/NN/mot mot/IN/mot mot/NN/mot d'un fichier qui se presente comme suit:

syAsp/NN/syAsp mn/IN/mn dwlyp/NN/dwlyp AlkAbws/NN/AlkAbws ytwASl/JJ/ytwASl

après le split le resultat devrait être:
syAsp/NN/syAsp mn/IN/mn dwlyp/NN/dwlyp dans un fichier
AlkAbws/NN/AlkAbws ytwASl/JJ/ytwASl dans un autre fichier

J'ai essayé des trucs mais ça marche pas
merci de m'aider

[Arioch]

J'ai trouvé !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
 
$_ = "syAsp/NN/syAsp mn/IN/mn dwlyp/NN/dwlyp AlkAbws/NN/AlkAbws ytwASl/JJ/ytwASl";
 
 
# RegExp pour rechercher selon le modèle chaineNNchaine chaineINchaine chaineNNchaine
if (/(\w+\/NN\/\w+) (\w+\/IN\/\w+) (\w+\/NN\/\w+) */) {
    print "$1 $2 $3\n";
} else {
    print "no ok\n";
}

[2Eurocents]

Merci, Arioch, car c'est le premier pas qui coûte ...

Sur ta solution, je proposerai l'évolution suivante :

Code :

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

1
2
3
4
5
6
$chaine = "syAsp/NN/syAsp mn/IN/mn dwlyp/NN/dwlyp AlkAbws/NN/AlkAbws ytwASl/JJ/ytwASl"; 
 
my @liste = ($chaine =~ m%(\w+/NN/\w+ (?:(?:\w+/IN/\w+) (?:\w+/NN/\w+)|(?:\w+/JJ/\w+)))%g);
 
my @in = grep { /IN/ } @liste;
my @jj = grep { /JJ/ } @liste;

Voila, voila, dans l'idée ... à adapter ...