regexp recupération avant le .

bonjour,

j'ai une ligne qui peut etre

avr.
ou avril

et je souhaiterai récupérer ce qui se trouve avant le point , soit avr.

comment faire ??

Code:

---

/(.+)\./

---

en fait grace au code, ci-dessous : je récupére le mois, sous le format suivant (avr. mai juin juil.)

Code:

---

1 2 3

use MIME::Lite; my $Date_Mois = strftime ("%b" , localtime) ;

---

et je veux retirer le point quand celui là est présent, par exemple pour avr. et juil.

la commande suivante permet de récupérer tous ce qui est avant le point, mais quand il n'y a pas de point(.), alors j'ai une erreur.

Code:

---

1 2	$Date_Mois =~ (/(.+)\./) ;

---

merci pour votre aide

Essaie ceci pour voir :

Code:

---

$Date_Mois =~ (/(.+)\.?/) ;

---

si tu veux juste retirer le point, tu peux faire

Code:

---

$Date_Mois =~ s/\.//g;

---