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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.