Discussion :

[Jeh]

Salut !!
Je souhaite utiliser la fonction "split" sur une adresse IP afin d'incrémenter la dernière valeur de 1. Mais ça ne fonctionne pas. Voilà ce que ça donne :

interco : 10.128.240.116
0 :
1 :
2 :
3 :

nouvelle adresse Ip interco : ...1


Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
print "interco : $IPinterco<br>";
 
@tab = split('.',$IPinterco);
 
print "0 : @tab[0]<br>";
print "1 : @tab[1]<br>";
print "2 : @tab[2]<br>";
print "3 : @tab[3]<br>";
 
@tab[3]++;
$IPinterco = @tab[0].".".@tab[1].".".@tab[2].".".@tab[3];
print "<br>nouvelle adresse Ip interco : $IPinterco<br>";

[darkloran]

il faut écrire split '\.' car le '.' est le méta-caractère qui remplace n'importe quel caractère...
une astuce avec les expressions régulières :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$IPinterco =~ s/(\d+)$/$1+1/e;

[Jeh]

Merki bcp ma'm'zelle !!! Suis trop con de pas y avoir pensé, je l'utilise pour les backslashes déjà...

Je débute en perl, tu pourrais m'expliquer la sustitution que tu viens de me donner ?

[darkloran]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$IPinterco =~ s/(\d+)$/$1+1/e;

$variable =~ s///; effectue une substitution sur la variable '$variable'


le filtre se met entre les deux premiers '//'
\d filtre un chiffre
\d+ filtre au moins 1 chiffre (et plus...)
$ représente la fin de '$variable'
les () autour de \d+ représente le motif que l'on filtre et qui se trouveront dans $1 dans la valeur de remplacement

la valeur de remplacement entre les deux derniers '//'
le 'e' à la fin du s/// force l'évaluation de la valeur de remplacement, i.e. $1 est remplacé par la valeur qui est trouvée dans le filtre...

note si tu veux jouer avec une adresse IP :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
$ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
# $1 est le premier octet
# $2 le deuxième
# $3 le troisième
# et $4... le dernier :)