Sujet Précédent Sujet Suivant

PERL : Analyse d'entiers dans une chaine

nick111 Messages postés 1 Statut Membre -  
lami20j Messages postés 21506 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
Configuration: Windows XP
Internet Explorer 6.0
A voir également:

2 réponses

Réponse 1 / 2
lami20j Messages postés 21506 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 21506 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 STDOUT redirection et retour au défaut.
Davlar -
davlar -

7 réponses
[Perl] Besoin d'aide
barichon -
Barichon -

44 réponses
[PERL] problème avec la fonction exec()
Toine -
lami20j -

8 réponses
[PERL] Ecrire dans une log en PERL
lefreeman63 -
lefreeman63 -

13 réponses
Perl sous Eclipse
sorbidot -
Hendawi -

1 réponse