Discussion :

[lobiman]

Salut

Comment pourrai je proceder pour avoir a chaque fois rien que la deuxieme position d´une adresse IP donnée?

Par exemple : 12.111.20.5 (recuperer 111) ou 125.1.0.11 (recuperer 1) etc...

Comment est ce que je pourrai aussi classer ces adresses en fonction de cette deuxieme position en ordre croissant?


Merci

[Gamdwin]

Obtenir la seconde position d'une adresse IP :

Code :

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

1
2
3
4
my $ip = "111.222.33.44";
(my $s = $ip) =~ s/\d+\.(\d+)\..*/$1/;
 
print "$s\n";

Trier une liste d'IP sur la seconde partie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub tri_seconde_position
{
    (my $s1 = $a) =~ s/\d+\.(\d+)\..*/$1/;
    (my $s2 = $b) =~ s/\d+\.(\d+)\..*/$1/;
 
    $s1 <=> $s2;
}
 
 
my @ips = ("111.22.33.44", "123.012.33.44", "222.0.33.44", "11.222.33.44");
my @tri = sort tri_seconde_position @ips;
 
print "$_\n" foreach  ( @tri );

[2Eurocents]

Une autre solution pour le tri :

Code :

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

1
2
3
4
my @ips = ("111.22.33.44", "123.012.33.44", "222.0.33.44", "11.222.33.44");
my @tri = sort { (split(/\./, $a))[1] <=> (split(/\./, $b))[1] } @ips;
 
print "$_\n" foreach  ( @tri );

Il y a, bien sûr, plus d'une façon de le faire

[Gamdwin]

Haaan, j'avais pas pensé au coup du split avec accès au tableau généré à la volée + fonction anonyme.

[2Eurocents]

Haaan, j'avais pas pensé au coup du split avec accès au tableau généré à la volée + fonction anonyme.

Pour être tout à fait rigoureux, il ne s'agit pas exactement d'une fonction anonyme, mais tout simplement du bloc de code personnalisé de la fonction sort.

[Gamdwin]

Ah oui, je viens de consulter la doc, je pensais que sort ne prenais forcément qu'une fonction en entrée.