Discussion :

[olivier1209]

Bonjour, je dois créer un programme qui suit le déroulement suivant :

1. on tappe en entrée clavier plusieurs phrases
2. la première lettre de la phrase est mis en majuscule
3. le reste de la phrase est mis en minuscule
4. une phrase se termine par un point
5. on écrit ensuite dans un fichier une phrase par ligne

Exemple :
entrée (au clavier) : le chat eSt Noir.comment çA VA.

sortie (dans le fichier) : Le chat est noir.(\n)
Comment ça va.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
$fic1="lol.txt";
$i = 0 ;
 
 
open (F1, ">$fic1") || die "probleme d'ouverture du fichier" ;
 
 
 
while ( i < 3  ) 
{
 
  $ligne = <STDIN> ;
 
  $ligne=~ s/./\n/ ;
 
 
  print $ligne ; 
  print F1 $ligne ;
  $i ++ ;
 
}

J'espère que vous pourrez m'aider
merci d'avance

[Beniou]

Bonjour,

Ton problème peut se résoudre suivant le schéma suivant (pas forcément le plus rapide ni le plus élégant mais je pense qu'il est didactique):
1 - tu découpes la phrase tapée par l'utilisateur suivant le "point" grâce à la fonction "split" (attention il faut "échapper" le point de la sorte -> \. car c'est un caractère spécial. De cette façon tu as dans un tableau chaque phrase tapée par l'utilisateur.
2 - Pour chaque phrase tu fais :
2.1 - Mettre la phrase en minuscule grâce à la fonction "lc" (pour lowercase)
2.2 - Mettre le premier caractère en majuscule grâce à la fonction ucfirst (pour uppercase first character)
2.3 - Ajouter en fin de ta phrase un "point" suivi d'un "\n". (Le point est enlevé par la fonction split)
2.4 - Faire ce que tu veux de ta phrase : écrire dans un fichier etc.

Si tu as des problèmes à mettre cela en place refais nous signe. Si tu as des question n'hésite pas.

[Schmorgluck]

Il y a également moyen de le faire avec un opérateur de substitution, mais ça nécessite d'utiliser quelques échappements dans la chaîne de sortie.

[Jedai]

Code :

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

s/([^.]+)\.\s*/\u\L$1\E.\n/g

\u met la lettre suivante en majuscule (cf. ucfirst), \L met la chaîne qui suit en minuscule (cf. lc), \E met fin aux manipulations de casse.
--
Jedaï

[Schmorgluck]

Oui, c'est à peu près ce que j'avais trouvé (je voulais laisser olivier1209 explorer les autres possibilités), à part que j'ai mis le \s* en début de regex, avant les parenthèses, histoire d'éliminer d'éventuels blancs inutiles en début de fichier.

[Jedai]

Oui, c'est à peu près ce que j'avais trouvé (je voulais laisser olivier1209 explorer les autres possibilités)

Oui, je ne suis pas moi-même certain que ce soit la meilleure solution (elle est bien illisible en tout cas) mais les séquences d'échappements uUlLEQ sont peu connues donc je me suis dis qu'un exemple ne ferait pas de mal. (Et ma regexp n'est qu'une suggestion, elle peut être améliorée)

--
Jedaï