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

_vince Messages postés 37 Statut Membre -  
lami20j Messages postés 21644 Statut Modérateur, Contributeur sécurité -
Bonjour,

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

Merci d'avance pour vos reponses.
A voir également:

2 réponses

lami20j Messages postés 21644 Statut Modérateur, Contributeur sécurité 3 570
 
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:~#
0
BLood
 
Bonjour, avec un logiciel comme mathematica, ca peut se faire facilement si tu l'as sous la main...
-1