PERL : Analyse d'entiers dans une chaine

nick111 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
lami20j Messages postés 21331 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

lami20j Messages postés 21331 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
lami20j Messages postés 21331 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