[Perl] trouver la ieme lettre d'un mot ? [Fermé]

Signaler
Messages postés
37
Date d'inscription
mardi 30 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2008
-
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
-
Bonjour,

je voudrais savoir comment isoler la 5eme lettre d'un mot de 12 ?
$mot = ABGSISMCDEFG

Merci d'avance pour vos reponses.

2 réponses

Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 544
Salut,

voici 3 possibilités
root@debian:~# perl -e '$mot = "ABGSISMCDEFG";($cinq) = $mot=~/^.{4}(.)/;print $cinq,"\n"'
I
root@debian:~# perl -e '$mot = "ABGSISMCDEFG";$cinq = substr($mot,4,1);print $cinq,"\n"'
I
root@debian:~# perl -e '$mot = "ABGSISMCDEFG";$cinq = unpack("x4 A1",$mot);print $cinq,"\n"'
I
root@debian:~#
Bonjour, avec un logiciel comme mathematica, ca peut se faire facilement si tu l'as sous la main...