PERL : Analyse d'entiers dans une chaine

Fermé

nick111 Messages postés 1 Date d'inscription lundi 17 septembre 2007 Statut Membre Dernière intervention 17 septembre 2007 - 17 sept. 2007 à 14:14
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 17 sept. 2007 à 15:39

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:

PERL : Analyse d'entiers dans une chaine
Denon perl pro test - Accueil - Audio
Active perl - Télécharger - Édition & Programmation
Perl foreach ✓ - Forum Perl
Perl substitution ✓ - Forum Perl
[Perl] WWW::Mechanize - Forum Perl

2 réponses

Réponse 1 / 2

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 569
17 sept. 2007 à 15:16

Salut,

#!/usr/bin/perl
#
$chaine_0 = '192.168.123.123';
grep{print"\$chaine_${\(++$i)}=$_\n"}split/\./,$chaine_0;
__END__

--
lami20j

Réponse 2 / 2

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 569
17 sept. 2007 à 15:39

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

Discussions similaires

Extension fichier sous perl