Discussion :

[Empty_body]

Salut,

J'aimerais savoir comment faire pour n'afficher que le premier mot d'une phrase.

Merci.

[Fango]

ben tu fais une expression reguliere

et tu mets la partie correspondant au 1er mot entre parentheses (dans l'expression reguliere), et tu le recuperes avec $1.

ca a repondu a ta question?

[2Eurocents]

Une solution relativement sûre et efficace consiste à découper la phrase en morceau qui ne sont que des mots et à prendre le premier d'entre eux.

Ainsi, le découpage se fait au moyen de la fonction split et l'expression de découpage est la négation de "Tout ce qui est un mot" ([[:word:]], en négation donc [^[:word:]]), ce qui regroupe les séparateurs, blancs et tabulations, les sauts de ligne, les signes de ponctuation, les apostrophes, etc.

Le retour du split est une liste de mots dont il suffit d'indexer le premier (de rang 0) en forçant le contexte de liste avec des parenthèses autour de l'appel.

Voici un exemple :

Code :

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

1
2
3
4
$ch="Quel est le premier mot d'une phrase ?";
 
$mot=(split (/[^[:word:]]/, $ch))[0];
print "$mot\n";

Il existe, bien sûr, d'autres possibilités.

[Jedai]

En particulier, pour éviter le problème des champs vides si ta ligne commence par plusieurs espaces :

Code :

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

1
2
3
my $sentence =" Quel est le premier mot d'une phrase ?";
my ($word) = ($sentence =~ m/\b(\w+)\b/);
print "$word\n";

\b détecte les "limites" de mot (passage d'un caractère non-mot à un caractère mot, ou carrément au début ou à la fin d'une string), \w est équivalent à [[:word:]].

Attention, avec ma solution comme avec celle de 2Eurocents, je te conseille de mettre "use locale;" avant de l'utiliser, de façon que \w (ou [:word:]]) matche aussi les caractères accentués.

--
Jedaï