regex simple $1

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:

---

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 :

Citation:

---

Use of uninitialized value $1 in uc at

---

Merci à vous ! :ccool:

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

Code:

---

$name = uc($name);

---

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

Code:

---

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é

---

Essaie simplement ceci:

Code:

---

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

---

Bonjour,

Effectivement, il me manquait les parentheses, merci ;)