[Perl] trouver la ieme lettre d'un mot ?
_vince
Messages postés
37
Statut
Membre
-
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
Bonjour,
je voudrais savoir comment isoler la 5eme lettre d'un mot de 12 ?
$mot = ABGSISMCDEFG
Merci d'avance pour vos reponses.
je voudrais savoir comment isoler la 5eme lettre d'un mot de 12 ?
$mot = ABGSISMCDEFG
Merci d'avance pour vos reponses.
2 réponses
-
Salut,
voici 3 possibilitésroot@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...
