Sujet Précédent Sujet Suivant

PERL : Analyse d'entiers dans une chaine

nick111 Messages postés 1 Statut Membre -  
lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   -
Bonjour,

Je desire extraire des entiers d une chaine de caracteres, ceci en PERL :
$chaine_0 = 192.168.123.123

Le resutat :
$entier_1=192
$entier_2=168
$entier_3=123
$entier_4=123

J ai bien trouve des trucs du type %d, dans les chapitres sur les expressions regulieres mais je ne vois pas comment le mettre en oeuvre.

Merci
A voir également:

2 réponses

Réponse 1 / 2
lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,
#!/usr/bin/perl
#
$chaine_0 = '192.168.123.123';
grep{print"\$chaine_${\(++$i)}=$_\n"}split/\./,$chaine_0;
__END__
--
lami20j
0
Réponse 2 / 2
lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
encore une possibilité
#!/usr/bin/perl
my $chaine_0 = '192.168.123.123';
print"\$chaine_${\(++$i)}=$_\n"for($chaine_0=~/(\d\d\d)/g);
__END__
--
lami20j
0

Discussions similaires

[PERL] problème avec la fonction exec()
Toine -
lami20j -

8 réponses
Perl et Variable
Goku -
lami20j -

13 réponses
Comment executer un script Perl ?
john_du_67 -
john_du_67 -

13 réponses
execution d'un fichier.txt avec perl
karim_khouja -
karim_khouja -

6 réponses
comment lire un fichier .pl perl ?
Limon -
zew-kids -

5 réponses