Discussion :

[nicok01]

Quel est la fonction pour mettre tout les mots d'une chaines en majuscules

Par exemple :

J'ai la chaine suivante "Problemes de majuscules"

Je voudrait avoir "Problemes De Majuscules"

merci

[le troll Hebus]

c'est pas très clair ce que tu veux.
si c'est tout le mot en majuscule: fonction uc
si c'est juste la première lettre: fonction ucfirst

[nicok01]

En php y'a une fonction qui le fait c'est ucwords()

Je voudrait juste connaitre si y'a un équivalent en perl.

merci

[Arioch]

Tiré de perlfunc :

uc EXPR
Returns an uppercased version of EXPR. This is the internal function implementing the \U escape in double-quoted strings. Respects current LC_CTYPE locale if use locale in force. See the perllocale manpage. Under Unicode (use utf8) it uses the standard Unicode uppercase mappings. (It does not attempt to do titlecase mapping on initial letters. See ucfirst for that.) If EXPR is omitted, uses $_.

ucfirst EXPR
Returns the value of EXPR with the first character in uppercase (titlecase in Unicode). This is the internal function implementing the \u escape in double-quoted strings. Respects current LC_CTYPE locale if use locale in force. See the perllocale manpage and the utf8 manpage. If EXPR is omitted, uses $_.

Ces deux fonctions ont leur homonyme pour l'effet inverse, c'est lc( ) et lcfirst( )

Si c'est chaque mot qui doit être mis en majuscule pour la 1ère lettre, tu peux spliter sur les espaces et faire un ucfirst sur chaque mot ou bien passer par une expression régulière.

Code :

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

1
2
3
4
5
6
7
$Chaine = "coucou ceci est un test";
@_ = split(/ /, $Chaine);
foreach (@_)
{
    ucfirst($_);    # ou ici ucfirst() puisqu'il utilise implicitement $_
}
$Chaine = join(" ", @_);

Ce qui devrait donner au final "Coucou Ceci Est Un Test"

[nicok01]

Ouais merci, c ce que j'ai finalement fait.