Perl ( chaine de caractères )

Résolu
THIRIOT Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   -
Bonjour

J'ai besoin extraire le dernier chiffre d'une chaine de caractères sans connaitre la longueur de cette chaine , et tout cela dans le langage Perl
Merci d'avance pour votre aide
A voir également:

3 réponses

Réponse 1 / 3
blux Messages postés 27121 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
Salut,

il suffit d'utiliser la fonction substr avec un indice négatif.

$B=substr($A,-1)
0
depassage
 
Je passe par ici par hasard,

pour prendre le dernier caractère e manière élégante,

my $v="un truc";
print chop($v);

affichera sur la sortie

c

voir aussi chomp
0
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570 > depassage
 
Salut,

J'ai besoin extraire le dernier chiffre d'une chaine de caractères

Il ne demande pas le dernier caractère de la chaine mais le dernier chiffre dans une chaîne qui n'est pas forcément le dernier caractère de la chaîne ;-).

La fonction chop va envoyer le dernier caractère mais il faudra aussi tester si ce caractère est un chiffre.
La fonction chomp est utile pour effacer le saute de ligne.
0
Réponse 2 / 3
THIRIOT Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Super franchement on peut chercher des heures pour pas grand chose encore merci
0
Réponse 3 / 3
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,


extraire le dernier chiffre d'une chaine de caractères

Si la chaine est : "j'ai écrit 5 script perl" alors avec la solution de blux de retourne l et pas 5

Voilà une solution plus générique 
$chaine = "j'ai écrit 5 script perl";
($res)=$chaine=~/(\d)\D*$/;
--
lami20j
0
blux Messages postés 27121 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
Bien vu, j'ai mal lu l'énoncé ! :-)
0
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570 > blux Messages postés 27121 Date d'inscription   Statut Modérateur Dernière intervention  
 
Salut,

je pense que c'est la question qui a été mal posée vu que ta réponse est satisfaisante :-))
ce qui n'empêche pas d'avoir plusieurs solutions en Perl :-))
0

Discussions similaires

Impossible d'installer des chaînes (Thomson 32HE5606)
Kone -
Redbart -

2 réponses