How to sort IP address using perl script

[kk5151]

Hi,

Would like to learn and know how to sort the ip address using perl script?

For example:
172.27.32.200
172.19.32.100
10.1.1.60
192.20.30.133

@ipaddress = ('172.27.32.200 ','10.1.1.60',' 192.20.30.133', '172.19.32.100' );

Don't know what to do next?

thanks,
Ken

[miller]

Hello Ken,

There are likely lots of different ways to accomplish this, but here is one that I think is particularly cute.

my @ips = qw(
    172.27.32.200
    172.19.32.100
    10.1.1.60
    192.20.30.133
);
 
@ips = map {s/\s+//g; $_} sort map {s/(\d+)/sprintf "%3s", $1/eg; $_} @ips;
 
print join "\n", @ips;
 
# Output is:
# 10.1.1.60
# 172.19.32.100
# 172.27.32.200
# 192.20.30.133
 

- Miller

[kk5151]

Thanks Miller. This is excellent example

Thanks

[perlbabu]

Hello Ken,
we can do many ways so here is to sort based on numeric

sort is by default based on strings but if you want to sort based on number in perl
syntax:sort{$a <=>$b}

@ipaddress = ('172.27.32.200','10.1.1.60','192.20.30.133','172. 19.32.100');
@ips=sort{$a<=>$b}(@ipaddress);
foreach (@ips)
{
print "$_\n";
}

[thakar86]

HI Miller,

May I know what does

$1/eg

means here.

{s/(\d+)/sprintf "%3s", $1/eg; $_}