[EXP] Evaluation dans une expression régulière
Bonjour à tous,
Petite enigme Expression Régulière...
Je cherche, en une seule expression régulière, repérer une séquence dans une phrase, y appliquer une fonction perl, et la retourner.
Ainsi, avec la phrase "'La lettre est <ascii>65</ascii>", je veux récupérer "A"
(et non "La lettre est A")
Code:
1 2 3 4 5 6 7 8
|
$_= ' La lettre est <ascii>65</ascii> ';
($lettre) = /<ascii>(\d*)<\/ascii>/;
$lettre =~ s/(.*)/chr($1)/eg;
print "$lettre"; |
De cette façon, ma variable contient bien "A", mais je suis passé par 2 expressions. Je cherche un moyen de l'obtenir directement via un ($lettre) = ...
Merci de votre aide.