Discussion :

[EpiTouille]

Bonjour,

je suis débutant en perl et j'ai vu dans un exemple de la faq qu'on pouvais se servir de $1 pour substituer le texte qui match dans la regexp. J'ai alors voulu écrire mon propre exemple pour mettre la premiere lettre d'un mot en majuscule (oui, oui, comme ucfirst )

Code :

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

1
2
3
4
5
6
7
 
 
my $name = "toto";
 
$name =~ s/^[a-z]/uc($1)/eg;
 
print $name;

il me dit alors que $1 est utilisé non initialisé, je me suis alors dit qui ma premiere expression ne matchais pas, mais si je remplace $1 par une lette, la premiere lettre est bien remplacée. Voici l'erreur exacte :

Use of uninitialized value $1 in uc at

Merci à vous !

[6ril23]

Si tu veux juste passer en majuscule, pas besoin de te servir d'expression régulière mais juste

Code :

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

$name = uc($name);

Pour les expressions régulières, pour définir tes variables $1,$2... il faut mettre entre parenthèse

Code :

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

1
2
3
my $phrase = 'bonjour a toi';
$phrase =~ s/^([a-z]+)\s*([a-z]+)\s*([a-z]+)/$3$2$1)/
print $phrase;  # affiche les mots en sens inverse et collé

[Lolo78]

Essaie simplement ceci:

Code :

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

$name =~ s/^([a-z])/uc($1)/eg;

[EpiTouille]

Bonjour,

Effectivement, il me manquait les parentheses, merci