[Perl] trouver la ieme lettre d'un mot ?
Fermé
_vince
Messages postés
37
Date d'inscription
mardi 30 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2008
-
21 janv. 2008 à 15:56
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 21 janv. 2008 à 16:41
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 21 janv. 2008 à 16:41
A voir également:
- [Perl] trouver la ieme lettre d'un mot ?
- Piratage facebook changer mot de passe - Guide
- Comment trouver le mot de passe wifi sur son téléphone - Guide
- Trouver adresse mac - Guide
- Trouver un nom avec une adresse ✓ - Forum Loisirs / Divertissements
- Mettre un mot de passe sur un dossier - Guide
2 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 567
21 janv. 2008 à 16:41
21 janv. 2008 à 16:41
Salut,
voici 3 possibilités
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:~#